Деректерді реттеу әдістерін зерделеу және сипаттау Реттеу алгоритмдерінің бағдарламалық құралдарын талдау


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



бет15/15
Дата06.01.2022
өлшемі0,51 Mb.
#14296
түріҚұрамы
1   ...   7   8   9   10   11   12   13   14   15
Байланысты:
отчет сортировка

ҚосымшаЛАР

Бағдарламалар листингі

procedure TForm3.Panel2Click(Sender: TObject);

begin

//inif.Free;



panel6.Visible:=true;

panel7.Visible:=true;

panel5.Visible:=true;

form3.close;

end;

procedure TForm3.Panel1Click(Sender: TObject);



var

i: integer;

j,temp,max,min: integer;

S,m:real;

begin

panel5.Visible:=false;



label28.caption:=' ';

label37.Visible:=false;

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

randomize;

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

for i:=1 to n do

begin

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



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

mas[i]:=random(80);

end;

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



//связываем переменную f с файлом mas_unsorted.txt

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.Pen.Width:=2;

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

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

end;


for i:=1 to n do

begin


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

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

s:=s+mas[i];

S:=s/20;


max:=mas[1];

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;


for i:=1 to n do

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 i:=1 to n do

for j:=1 to n-1 do

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

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

//if RadioGroup1.ItemIndex=0 then

begin


if mas[j]>mas[j+1] then

begin


temp:=mas[j];

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

mas[j+1]:=temp;

end;


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.Pen.Width:=2;

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;


procedure TForm3.Panel3Click(Sender: TObject);

var


i: integer;

j,temp,max: integer;

s:real;

begin


panel6.Visible:=false;

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

randomize;

//очищаем Memo1

// Memo1.Clear;

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

for i:=1 to n do

begin


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

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

mas[i]:=random(80);

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

end;

closefile(f);



end;

end;


end.

Достарыңызбен бөлісу:
1   ...   7   8   9   10   11   12   13   14   15




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет