Программы

ВР обязала ТВ-провайдеров обеспечить своим абонентам доступ к программам всех телекомпаний, чье эфирное или спутниковое вещание распространяется на территорию телесети. За законопроект проголосовало большинство народных депутатов.

Однако эксперты сферы считают, что в данном случае ресурса абсолютного большинства украинских аналоговых сетей не хватит не только на иностранные программы, но и на украинские.

Компания ESET сообщила об учащении случаев кибер-угроз, нацеленных на пользователей социальной сети Facebook.

В середине февраля специалисты аналитического центра кибер-угроз ESET провели исследование активности вредоносного ПО в социальной сети Facebook.

uses
ZLib;

{ Compress a stream }

procedure CompressStream(inpStream, outStream: TStream);
var
InpBuf, OutBuf: Pointer;
InpBytes, OutBytes: Integer;
begin
InpBuf := nil;
OutBuf := nil;
try
GetMem(InpBuf, inpStream.Size);
inpStream.Position := 0;
InpBytes := inpStream.Read(InpBuf^, inpStream.Size);
CompressBuf(InpBuf, InpBytes, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if InpBuf nil then FreeMem(InpBuf);
if OutBuf nil then FreeMem(OutBuf);
end;
end;


{ Decompress a stream }
procedure DecompressStream(inpStream, outStream: TStream);
var
InpBuf, OutBuf: Pointer;
OutBytes, sz: Integer;
begin
InpBuf := nil;
OutBuf := nil;
sz := inpStream.Size - inpStream.Position;
if sz > 0 then
try
GetMem(InpBuf, sz);
inpStream.Read(InpBuf^, sz);
DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if InpBuf nil then FreeMem(InpBuf);
if OutBuf nil then FreeMem(OutBuf);
end;
outStream.Position := 0;
end;


{
Example:
Compress the contents of RichEdit1 and
calculate the compression rate.
Then save the stream to a file (ms2.dat)

Beispiel:
Komprimiert den Inhalt von RichEdit1 und
berechnet die Kompressionsrate.
Dann wird der Stream in eine Datei (ms2.dat) gespeichert.
}

procedure TForm1.Button1Click(Sender: TObject);
var
ms1, ms2: TMemoryStream;
begin
ms1 := TMemoryStream.Create;
try
ms2 := TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(ms1);
CompressStream(ms1, ms2);
ShowMessage(Format('Stream Compression Rate: %d %%',
[round(100 / ms1.Size * ms2.Size)]));
ms2.SaveToFile('C:\ms2.dat');
finally
ms1.Free;
end;
finally
ms2.Free;
end;
end;

{
Loads the stream from a file (ms2.dat)
and decompresses it.
Then loads the Stream to RichEdit1.

Ladt den komprimierten Stream von einer Datei (ms2.dat)
und dekomprimiert ihn.
Dann wird der Stream wieder in RichEdit1 geladen.
}

procedure TForm1.Button2Click(Sender: TObject);
var
ms1, ms2: TMemoryStream;
begin
ms1 := TMemoryStream.Create;
try
ms2 := TMemoryStream.Create;
try
ms1.LoadFromFile('C:\ms2.dat');
DecompressStream(ms1, ms2);
RichEdit1.Lines.LoadFromStream(ms2);
finally
ms1.Free;
end;
finally
ms2.Free;
end;
end;

Лабораторная работа №4
Вариант – 5
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{****************************************************}
{Программа:Treygolniс,Лаб.раб.#5,Вар.6 }
{Цель:проверка,является ли треугольник равносторонним}
{Описание параметров и переменных: }
{A,B,C-исходные числа }
{K,F-логические переменные }
{Программист:Юняев А.А.,гр.243 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:8.10.2002год }
{****************************************************}
Program Treygolnic;
Var a,b,c:Real;
k,f:Boolean;
Begin{Treygolnic}
 Writeln('Введите числа a,b,c');
 Read(a,b,c);
 Writeln('Исходные данные');
 Writeln('a=',a,',b=',b,',c=',c);
 k:=(a>0)and(b>0)and(c>0)and(a+b>c)and(b+c>a)and(a+c>b);
 f:=(a=b)and(b=c);
 If k
 Then If f
 Then Writeln ('Треугольник равносторонний')
 Else Writeln ('Треугольник не равносторонний')
 Else Writeln ('Треугольник не существует')
End.{Treygolnic}

Структура проекта
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

В Object Pascal в качестве ограничителей комментария могут также использоваться пары символов (*, *) и //.