Что касается второго задания надо просто делать по шагам, что написано в задании:
Цитата:
|
Разработать новое приложение, состоящее из однострочного поля редактирования для ввода длины одномерного массива
|
Создаете новый проект с пустой формой. Добавляете на форму TEdit компонент для ввода длины одномерного массива.
Далее по тексту задания:
Цитата:
|
и нескольких кнопок с надписями: Ввод массива, Сумма, Произведение, Среднее значение, Максимум, Минимум, Закрыть.
|
Добавляете на форму 7 компонентов TButton и меняете для каждого из них свойство Caption согласно задания.
Цитата:
|
Установить на форме многострочное редактируемое поле Memo
|
Добавляете компонент TMemo на форму.
Цитата:
|
в которое выдавать весь массив и его параметры при нажатии на кнопки. Например, при нажатии на кнопку Ввод массива выдать введенный от датчика случайных чисел массив.
|
Для компонента TButton у которого Caption = "Ввод" надо будет обработать событие OnClick. Там будет примерно такой код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
begin
Memo1.Clear;
Randomize;
for i := 0 to StrToInt(Edit1.Text) - 1
do Memo1.Lines.Add(IntToStr(Random(10)));
end;
Для компонента TButton у которого Caption = "Сумма" надо будет обработать событие OnClick. Там будет примерно такой код:
Код:
procedure TForm1.Button2Click(Sender: TObject);
Var i,Sum: Integer;
begin
if Memo1.Lines.Count = 0 then Exit;
Sum := 0;
for i := 0 to Memo1.Lines.Count - 1
do Sum := Sum + StrToInt(Memo1.Lines[i]);
Memo1.Lines.Add(IntToStr(Sum));
end;
и т.д.