Проекты в среде Lazarus по теме Массивы
Проекты на тему «Массивы»
№ 1. Создание обработчика события заполнения массива случайными числами.
На форме компоненты: Button1, ListBox1. Для генерации псевдослучайных последовательностей используется функция Random(). Для генерации случайных чисел используют оператор Randomize.
3394710112395Описать переменные и массив: n: array[0..9] of integer;
i:integer;
Прописать код для события OnClick:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear();
randomize;
for i:=0 to 9 do
begin n[i]:=random(100);ListBox1.Items.Add(inttostr(n[i]));
end;
end;
Сохранить проект и проверить.
00Описать переменные и массив: n: array[0..9] of integer;
i:integer;
Прописать код для события OnClick:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear();
randomize;
for i:=0 to 9 do
begin n[i]:=random(100);ListBox1.Items.Add(inttostr(n[i]));
end;
end;
Сохранить проект и проверить.
-11049083820
№ 2. Создание обработчика события заполнения массива с клавиатуры.
Добавляем на форму объекты: ListBox2, Button2.
Описать массив: a: array[0..9] of string;
Прописать код для события OnClick:
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox2.Items.Clear();
for i:=0 to 4 do
begin
a[i] :=inputbox('ввод элементов массива с клавиатуры', 'Введите элемент массива','');
ListBox2.Items.add(a[i]);
end;
end;
№3. Создание обработчика события заполнения массива из файла.
Создать текстовый файл в программе блокнот, в блокноте записать с буквы русского алфавита, каждую с новой строки. Сохранить файл в той же папке, что и проект под именем alphabet.txt, при сохранении указать кодировку UTF-8. Добавляем на форму объекты: ListBox3, Button3.
-186690341630975360341630384238574930Описать файл: f:TextFile;
Прописать код для события OnClick:
procedure TForm1.Button3Click(Sender: TObject);
begin
ListBox3.Items.Clear();
AssignFile(f,'alphabet.txt');
Reset(f);
For I:=0 to 32 do
begin
Readln(f,B[I]);
ListBox3.Items.add(B[i]);
end;
end;
00Описать файл: f:TextFile;
Прописать код для события OnClick:
procedure TForm1.Button3Click(Sender: TObject);
begin
ListBox3.Items.Clear();
AssignFile(f,'alphabet.txt');
Reset(f);
For I:=0 to 32 do
begin
Readln(f,B[I]);
ListBox3.Items.add(B[i]);
end;
end;