ҚосымшаЛАР Бағдарламалар листингі

procedure TForm3.Panel2Click(Sender: TObject);

begin

//inif.Free;

panel7.Visible:=true;

panel5.Visible:=true;

form3.close;

end;

procedure TForm3.Panel1Click(Sender: TObject);

i: integer;

j,temp,max,min: integer;

S,m:real;

begin

panel5.Visible:=false;

label37.Visible:=false;

//инициализируем генератор случайных чисел

randomize;

//генерируем массив от 0 до 100

for i:=1 to n do

begin

// функция random генерирует случайные числа

mas[i]:=random(80);

end;

//записываем в файл

Assignfile(f,'mas_unsorted.txt');

//создаем новый файл и открываем его

rewrite(f);

//записываем все элементы массива в файл,

//каждый элемент в отдельную строку

for i:=1 to n do

writeln(f,mas[i]);

//разрывает связь между файловой переменной f

//и файлом mas_unsorted.txt

closefile(f);

//очищаем Image1 и рисуем рамку

Image1.Canvas.Pen.Color:=clBlack;

//рисуем прямоугольник белого цвета с черной рамкой

Image1.Canvas.Brush.Color:=clwhite;

Image1.Canvas.Rectangle(Image1.ClientRect);

//рисуем гистограмму цвет рисования красный

Image1.Canvas.Pen.Color:=clRed;

for i:=1 to n do

begin

Image1.Canvas.MoveTo(i*5,Image1.Height-1);

Image1.Canvas.LineTo(i*5,100-mas[i]);

end;

begin

//из заданного диапазона

s:=s+mas[i];

S:=s/20;

min:=mas[1];

if mas[i]>max then max:=mas[1];

// if mas[i]< min then min:=mas[i]; M:=(max-min)/2;

if max>65 then begin

label28.Caption:='Температура повысилась до '+floattostrf(max,fffixed,5,2);

PlaySound('Sound//pap',0,1); end;

end;

if (mas[i]>8) and (mas[i]<18) then label37.caption:=floattostr(mas[i]);

label22.Caption:=floattostrf(s,fffixed,5,2);

label23.Caption:=floattostrf(max,fffixed,5,2);

begin

//сортируем массив

for j:=1 to n-1 do

//в зависимости от выбора пользователя

//сортируем по убыванию или по возрастанию

//if RadioGroup1.ItemIndex=0 then

begin

begin

mas[j]:=mas[j+1];

mas[j+1]:=temp;

end;

for i:=1 to n do

//очищаем Image2 и рисуем рамку

//рисуем прямоугольник белого цвета с черной рамкой

Image4.Canvas.Pen.Color:=clBlack;

Image4.Canvas.Brush.Color:=clwhite;

Image4.Canvas.Rectangle(Image1.ClientRect);

//рисуем гистограмму

//цвет рисования - синий

Image4.Canvas.Pen.Color:=clBlue;

for i:=1 to n do

begin

Image4.Canvas.MoveTo(i*5,Image2.Height-1);

Image4.Canvas.LineTo(i*5,100-mas[i]);

end;

Assignfile(f,'mas_sorted.txt');

rewrite(f);

for i:=1 to n do

writeln(f,mas[i]);

closefile(f);

end;

end;

var

j,temp,max: integer;

s:real;

begin

//инициализируем генератор случайных чисел

randomize;

//очищаем Memo1

// Memo1.Clear;

//генерируем массив от 0 до 100

for i:=1 to n do

begin

//из заданного диапазона

mas[i]:=random(80);

// Memo1.Lines.Add(IntToStr(Mas[i]))

end;

closefile(f);

end;