Складання і виконання алгоритмів знаходження сум і кількостей значень елементів табличної величини

багаторядковим текстовим полем (компонент (елемент керування) TMemo

текстовим полем

Width

багаторядковим полем (компонент (елемент керування)

значення цієї властивості визначає наявність чи відсутність на цьому компоненті смуг прокручування (горизонтальної)

значення цієї властивості визначає наявність чи відсутність на цьому компоненті смуг прокручування (горизонтальної, вертикальної, обох)

визначає можливість або неможливість редагування

є набір значень (текстів),

значенням цієї властивості є набір значень (текстів, чисел)

кожен рядок багаторядкового текстового поля має номер, число

значенням цієї властивості є набір значень (текстів), розташованих у рядках цього компонента; кожен рядок багаторядкового текстового поля має номер, нумерація яких починається з 0;

значення цієї властивості визначає можливість або неможливість редагування 

{дані з рядків першого багаторядкового текстового поля перевести в числа і присвоїти відповідним елементам табличної величини}

{піднести значення елементів табличної величини до квадрата}

очистити друге багаторядкове текстове поле

{вивести значення елементів табличної величини в рядки другого багаторядкового текстового поля}

{дані з рядків багаторядкового текстового поля перевести в дійсні числа та присвоїти відповідним елементам табличної величини}

{додавання до змінної s значення чергового елемента табличної величини}

виведення результату в напис

{початкове значення для змінної, значення якої визначатиме суму значень елементів табличної величини}

перериваємо виконання циклу, бо задане число є в табличній величині

задане число поки що не траплялося

Порівнюватимемо в циклі послідовно значення елементів табличної величини 

змінити знак елементів на протилежний

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; max: real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  max := a[1];

  for i := 2 to 10 do If a[i] > max Then max := a[i];

  Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; min: real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  min:= a[1];

  for i := 2 to 10 do If a[i] > min Then min := a[i];

  Label1.Caption := FloatToStr (min) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..5] of real; i: integer; m: real;

begin

 for i := 1 to 5 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  m:= a[2];

  for i := 2 to 5 do If a[i] > mThen m := a[i];

  Label1.Caption := FloatToStr (m) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  for i := 2 to 10 do If a[i] > max Then max := a[i];

  Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;

min := а[1];

 for і := 2 to 10 do If a[i] > min Then min := a[i];

min := а[1];

 for і := 2 to 10 do If a[i] ><min Then min := a[i];

min := а[1];

 for і := 2 to 10 do If a[i] <min Then min := a[i];

min := а[1];

 for і := 2 to 10 do If a[i] = min Then min := a[i];

сума значень усіх елементів табличної величини.

лічильник кількості елементів табличної величини

задане дійсне число серед значень елементів даної табличної величини

максимальне значення