If RadioButton1.Checked then
Лабораторная работа №20
Использование компонентов списков и выпадающих списков
Постановка задачи
Задача 2.23 Найти сумму элементов матрицы А(9х9) кратных четырем;
Таблица компонентов
| Название | Назначение | Свойство | Событие |
| Button1 | выполнение | caption | Oneclick |
| StringGrid | ввод | cells | |
| Edit1 | вывод | text |
Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var s:real;
i,j:integer;
a:array [1..9,1..9] of integer;
Begin
s:=0;
for i:=1 to 9 do
for j:=1 to 9 do
Begin
a[i,j]:=1+random(100);
stringgrid1.cells[i,j]:=inttostr(a[i,j]);
if a[i,j] mod 4=0 then
s:=s+a[i,j];
End;
edit1.text:=floattostr(s);
End;
End.
Контрольный пример
Лабораторная работа №21
Использование компонентов управления(таймер)
Постановка задачи
Задача 2.23 С интервалом в 0.5 секунд вывести значения минут и секунд.
Таблица компонентов
| Название компонента | Тип компонента | Свойства | События |
| Label1 | Tlabel | Caption | Text |
| Label2 | Tlabel | Caption | Text |
| Label3 | Tlabel | Caption | Text |
| Button1 | Tbutton | Caption | OneClick |
| Button2 | Tbutton | Caption | OneClick |
| Timer1 | TTimer | Enabled | Timer |
Листинг программы
Begin
Label2.Visible := not Label2.Visible;
If not Label2.Visible
Then exit;
if s=59 then
Begin
Inc(m);
Label1.Caption :=IntToStr(m);
s:=0;
End
Else
Inc(s);
if s<10 then
Label3.Caption:='0'+ IntToStr(s)
Else
Label3.Caption:=IntToStr(s);
End;
procedure TForm1.Button1Click(Sender: TObject);
Begin
If Timer1.Enabled
Then
Begin
Timer1.Enabled:= False;
Button1.Caption:='Старт';
Button2.Enabled:=True;
End
Else
Begin
Timer1.Enabled:= True;
Button1.Caption:='Стоп';
Button2.Enabled:=False;
End;
procedure TForm1.Button2Click(Sender: TObject);
Begin
s:=0;
m:=0;
Label1.Caption:='00';
Label3.Caption:='00';
End;
End.
Контрольный пример
Лабораторная работа №22
Использование компонентов таблиц для работы с двумерным массивом
Постановка задачи
Задача 2.23 Вывести числа из правого верхнего угла и левого нижнего.
Таблица компонентов
| Название компонента | Тип компонента | Свойства | События |
| Button1 | TButton | Caption | OneClick |
| Label1-2 | TLabel | Caption | Text |
| Edit1 | Ввод | Text | |
| Edit2 | Ввод | Text | |
| StringGrid1 | TStringGrid | cells |
Листинг программы
Контрольный пример
Лабораторная работа №23
Использование зависимых и независимых переключателей
Постановка задачи
Задача 2.23 По введенным четырем переменным с клавиатуры определить сумму, произведение и разность.
Таблица компонентов
| Название компонента | Тип компонента | Свойства | События |
| Edit1 | TEdit | Text | |
| Edit2 | TEdit | Text | |
| Edit3 | TEdit | Text | |
| Edit4 | TEdit | Text | |
| Edit5 | TEdit | Text | |
| Label1-Label6 | Tlabel | caption | Text |
| Button1 | TButton | caption | OneClick |
| RadioButton1 | TRadioButton | ItemIndex | OneClick |
| RadioButton2 | TRadioButton | ItemIndex | OneClick |
| RadioButton3 | TRadioButton | ItemIndex | OneClick |
Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:integer;
Begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
If RadioButton1.Checked then
edit5.text:=Inttostr(a+b);