1.Программа «Параллелепипед»
Цель:- вспомнить формулы, научиться составлять программу для вычисления площади и периметра параллелепипеда
Листинг программы:
procedureTForml.ButtonlClick(Sender:TObject);
vara,b,c,s,v:integer;
begin
a:=StrtoInt(Editl.Text);
b:=StrtoInt(Edit2.Text);
c:=StrtoInt(Edit3.Text);
v:=a*b*c;
s:=2*(a*b+a*c+b*c);
Edit4.Text:=InttoStr(v);
Edit5.Text:=InttoStr(s);
end;
procedureTForml.Button2Click(Sender:TObject);
begin
close
end;
end.
Сохраните проект.
2 Программа « Вклад»
Листинг программы
procedureTForml.ButtonlClick(Sender:TObject);
var i,srok,rub,kop: integer;
vkl,pro,drb,drb1:real;
begin
vkl:=StrtoFloat(Editl.Text);
srok:=StrtoInt(Edit2.Text);
pro:=StrtoFloat(Edit3.Text);
for i:=l to srok do
vkl:=vkl+vkl*pro/100;
rub:=trunc(vkl);
Edit4.Text:=InttoStr(rub);
drb:=vkl-rub;
drb1:=drb*100;
kop:= round(drbi);
Edit5.Text:=InttoStr(kop)
end;
procedureTForml.Button2Click(Sender:TObject);
begin
Editl.Text:=’-1';
Edit2.Text:=’ ’;
Edit3.Text:=’ ’;
Edit4.Text:=' ';
Edit5.Text:=' '
end;
procedureTForml.Button3Click(Sender:TObject);
begin
close
end;
end.
3. Программа «Тест»
Procedure TForml.Buttonl ClickfSender:TObject);
var k:integer;:
begin
k:=StrtoInt(Editl.Text);
if k=1957
then Label1.Caption:='Bы ответили правильно’
else Label1.Caption:='Bы ошиблись'
end;
procedure TForml.Button2 Click(Sender:TObject);
begin
Form1.Show
end;
procedure TForml.Button3 Click(Sender:TObject);
begin
Close
end;
end.
4. Программа «Текущее время и текущая дата»
Цель работы - создать программу, которая выводит текущее время и текущую дату. Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: Button, Edit, Label.
3. Выполнить следующие действия:
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Form1 |
Properties |
Caption |
Установка имени формы "Таймер" |
Button1 |
Properties |
Caption |
Введите название "Текущее время" |
Events |
Onclick |
DateTime:=Time; Edit1.Text:=TimeToStr(DateTime); |
|
Button2 |
Properties |
Caption |
Введите название "Текущая дата" |
Events |
Onclick |
Edit2.Text:=DateToStr(Date); |
|
Edit1 |
Properties |
Caption |
Очистить значение свойства Text |
Edit2 |
Properties |
Caption |
Очистить значение свойства Text |
Листинг подпрограмм
Var DateTime : TdateTime;
procedure TForm1.Button1Click(Sender: Tobject); begin
DateTime:=Time;
Edit1.Text:=TimeToStr(DateTime); end;
procedure Tform1.Button2Click(Sender: Tobject); begin
Edit2.Text:=DateToStr(Date); end; end.
5. Программа Бросок кубика.
Цель работы:
- создать программу, выполняющую следующие действия:
1. После запуска программы появляется надпись "Брось кубик".
2. По щелчку мышью на кнопке "Бросок кубика" появляется сообщение, выдающее числа-очки в диапазоне 0 - 6.
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: метку Label и кнопку Button.
3. Выполнить следующие действия:
Таблица .
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Forml |
Properties |
Caption |
Установка имени формы "Бросок кубика" |
Label1 |
Properties |
Caption |
Ввод текста надписи "Брось кубик" |
Button! |
Properties |
Caption |
Установка имени кнопки "Бросок кубика" |
Events |
OnClick |
Label1.Caption := IntToStr (n); |
4. Сохраните проект, запустите и протестируйте его. Фрагмент программы:
procedure TForml.ButtonlClick(Sender: TObject); var n: Integer;
begin
n := random (6) + 1 ;
Label1.Caption := IntToStr (n) ; end; end.
5. Создать функцию, отображающую числовые значения граней. Function Kubic (Sides:Integer): Integer;
Begin
If Sides >= 1 then begin
Result := random (Sides) +1 ; end else begin
Result :=0; end;
End;