Использование зависимых и независимых переключателей
Лабораторная работа №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);
If RadioButton2.Checked then
edit5.Text:=Inttostr(b*c);
If Radiobutton3.Checked then
edit5.Text:=Inttostr(a-d);
end;
end.
Контрольный пример
Лабораторная работа №24
Использование зависимых и независимых переключателей
Постановка задачи
Задача 2.23 По введенным координатам вершин вычислить площади фигур в каждой четверти и общую площадь фигуры.
Таблица компонентов
Название компонента | Тип компонента | Свойства | События |
Label1-4 | Tlabel | Caption | Text |
ListBox | TlistBox | Items | Text |
Листинг программы
Контрольный пример
Лабораторная работа №25
Использование контейнеров
Постановка задачи
Тест
Таблица компонентов
Название компонента | Тип компонента | Свойства | События |
Button1 | Standart | Caption | OnClick |
Button2 | Standart | Caption | OnClick |
Label1 | Standart | Caption | |
Label2 | Standart | Caption | |
Image1 | Aditional | Picture | |
ComboBox1 | Standart | Items | |
Edit1 | Standart | Text | |
PageControl1 | Aditional | ||
Panel1 | OnShow |
Листинг программы
Unit1:
Unit2:
Unit3:
Контрольный пример