Воронеж 2021 Практическая работа №1 Тема практической работы: Файл проекта. Структура и Назначение
жүктеу/скачать 0.7 Mb.
|
- Бұл бет үшін навигация:
- Ход работы
| Практическая работа №10.
Тема практической работы: События. Цель практической работы: Рассмотреть работу с событиями в программах, написать обработчик на событие. Ход работы : Задание №1. Рис 21 Рис 22 Листинг : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Label4: TLabel; Button1: TButton; procedure button1Click (Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click (Sender: TObject); var
dist:integer; t:real;
min:integer; sek:integer; v:real; begin
dist:=StrToint(Edit1.Text); t:=StrToFloat(Edit2.Text); min:=Trunc(t); sek:=Trunc(t*100) mod 100; v:=(dist/1000)/((min*60+sek)/3600); label4.Caption:='Дистанция: '+ Edit1.Text +'м'+#13+'Время : '+IntToStr(min)+' Мин. '+IntToStr(sek)+ ' Сек. '+#13+ 'Скорость :'+FloatToStrF(v,ffFixed,4,2)+' км/час'; end; end.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Label4: TLabel; Button1: TButton; procedure button1Click (Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click (Sender: TObject); var
dist:integer; t:real;
min:integer; sek:integer; v:real; begin
dist:=StrToint(Edit1.Text); t:=StrToFloat(Edit2.Text); min:=Trunc(t); sek:=Trunc(t*100) mod 100; v:=(dist/1000)/((min*60+sek)/3600); label4.Caption:='Дистанция: '+ Edit1.Text +'м'+#13+'Время : '+IntToStr(min)+' Мин. '+IntToStr(sek)+ ' Сек. '+#13+ 'Скорость :'+FloatToStrF(v,ffFixed,4,2)+' км/час'; end;
procedure TForm1.Button2Click (Sender: Tobject); var CanClose: Boolean; begin if MessageDlg('Вы действительно хотите выйти ?',mtWarning,[mbYes,mbNo],0)=mrNo then CanClose:=False end;
end. жүктеу/скачать 0.7 Mb. Достарыңызбен бөлісу:
|