Изучение Delphi. Отчёт 4.1

Условие задачи: В каждой из задач данного раздела предполагается, что задан массив чисел. Программа должна:

1) вводить размерность и элементы массива;

2) вводить некоторые дополнительные числа;

3) выполнять действия в соответствии с условием задачи;

4) выводить исходные данные и результаты вычислений.

Исходные данные для отладки программы выбрать самостоятельно. Для ввода и вывода массива использовать компонент StringGrid.

Исходные данные :

A (массив)

X (число)

Y (число)

n (размер массива)

Результат:

S (сумма отрицательных чисел, стоящих на четных местах)

Kol (количество чисел, непринадлежащих промежутку (X, Y] )

Графическая схема алгоритма:

Таблица переменных:

Проектирование формы:

Таблица компонентов:

Таблица используемых событий:

Код процедуры обработки события:

procedure TForm1.Button1Click(Sender: TObject);

const

Max=20;

var

i,n,K,Kol:integer;

X,Y,S:real;

A: array[1..Max] of real;

begin

try

n:=StrToInt(Edit1.Text);

X:=StrToFloat(Edit2.Text);

Y:=StrToFloat(Edit3.Text);

for i:=1 to n do

A[i]:=StrToFloat(StringGrid1.Cells[i-1,1]);

K:=0;

S:=0;

i:=2;

While(i<=n)do

begin

if(A[i]<0)then

begin

S:=S+A[i];

K:=1;

end;

i:=i+2;

end;

if(K=0)then

begin

Label5.Caption:='В массиве нет таких элементов!';

end

else

begin

Label5.Caption:='Сумма отрицательных чисел, стоящих на четных местах равна '+FloatToStr(S);

end;

i:=1;

Kol:=0;

While(i<=n)do

begin

if(A[i]>Y)or(A[i]<=X)then

begin

Kol:=Kol+1;

end;

i:=i+1;

end;

Label6.Caption:='Количество чисел, непринадлежащих промежутку (X, Y] равно '+IntToStr(Kol);

except ShowMessage('Ошибка!');

end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

const

Max=20;

var

i,n:integer;

begin

try

n:=StrToInt(Edit1.Text);

if(Max<n)then

begin

StringGrid1.Visible:=False;

ShowMessage('Максиальный размер массива равна 20!');

end

else

begin

StringGrid1.Visible:=true;

StringGrid1.ColCount:=n;

for i:=1 to n do

StringGrid1.Cells[i-1,0]:='A'+'['+IntToStr(i)+']';

end;

except ShowMessage('Ошибка!');

end;

end;

Окно программы:

Тестовые наборы:

Вывод:  Приобрели навыки разработки алгоритмов и программ с использованием операторов цикла      

для вычисления сумм, произведения и количества элементов одномерного массива.