Вычисление суммы квадратов положительных элементов массива

Практическая работа 5

Задание: Задан массив B размерностью m элементов. Вычислить сумму квадратов положительных элементов массива B, если таких нет, выдать соответствующее сообщение.

Ход работы:

Листинг программы:

var

Form1: TForm1;

m: integer;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

m := StrToInt(Edit1.Text);

if m > 10 then

begin

Showmessage('Ошибка. Введите число до 10.');

m := 0;

end;

StringGrid1.ColCount := m;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

B: array [0 .. 10] of integer;

i, sum: integer;

begin

for i := 0 to m - 1 do

begin

B[i] := StrToInt(StringGrid1.Cells[i, 0]);

end;

sum := 0;

for i := 0 to m - 1 do

begin

if B[i] > 0 then

begin

sum := sum + B[i] * B[i];

end;

end;

if sum = 0 then

begin

if StringGrid1.ColCount = 1 then

begin

Showmessage

('Массив B сейчас имеет размерность 0 элементов. Пожалуйста, введите новое значение размерности массива B.');

end

else

begin

Showmessage('В массиве B размерностью ' + FloatToStr(m) + ' элементов отсутствуют положительные элементы.');

end;

end

else

begin

Showmessage

('Сумма квадратов положительных элементов массива B размерностью ' + FloatToStr(m) + ' равна: ' + FloatToStr(sum));

end;

end;

Данная программа состоит из двух процедур. Первая процедура - обработка события нажатия кнопки Button2, то есть задается значение размерности массива B. Вторая процедура - обработка события нажатия кнопки Button1, то есть тут уже начинается обработка основного кода программы, происходит вычисление.

Блок-схемы первой и второй процедуры программы представлены на рисунках 5.1 и 5.2 соответственно.

Рисунок 5.1 - Блок-схема программы. Обработка события нажатия на кнопку Button2.

Рисунок 5.2 - Блок-схема программы. Обработка события нажатия на кнопку Button1.

Выполнение программы представлено на рисунке 5.3

Рисунок 5.3 - Выполнение программы