Реферат: Программирование на языке высокого уровня 2

3.3 Исходные данные для отладки и тестирования программы

В качестве исходных данных вводим любое целое число n – количество элементов массива и, нажав на кнопку «Создать массив», формируем одномерный массив, заполненный случайным образом целыми числами из промежутка [-10,20].

При нажатии на кнопку «Выполнить» происходит вычисление, заданные в задании.

Результаты можно посмотреть в рабочем окне программы рис. 7

3.4 Исходный текст программы

Описание глобальных переменных

var

Form1: TForm1;

n:integer;

a:array of integer;

Текст процедуры для задания массива случайными числами.

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

begin

Randomize;

n:=StrToInt(Edit1.Text);

SetLength(a,n);

Edit2.Clear;

for i:=1 to n do

begin

a[i]:=Random(30)-10;

Edit2.Text:=Edit2.Text+' '+IntToStr(a[i]);

end;

end;

Текст процедуры для вычислений и вывода результатов на экране

procedure TForm1.Button2Click(Sender: TObject);

var

sum,i,k,l,a1:integer;