ДОМАШНЄ ЗАВДАННЯ
тривалість рейсу
Procedure TForm1.Button1Click(Sender: TObject);
Procedure TForm1.Button1Click(Sender: TObject);
var s1, s2, s3, v1, v2, v3, t: integer;
r: real;
begin
s1:=StrToInt(InputBox('Введення даних', 'ВВедіть довжину першого маршруту', ''));
label4.Caption:=IntToStr(s1);
s2 :=StrToInt (InputBox ('Введення даних', 'Введіть довжину другого маршруту', ''));
label5.Caption:=IntToStr(s2);
s3:=StrToInt(InputBox('Введення даних', 'Введіть довжину третього маршруту', ''));
label6.Caption:=IntToStr(s3);
v1:=StrToInt(InputBox('Введення даних', 'Введіть швидкість на першому маршруті', ''));
label7.Caption:=IntToStr(v1);
v2:=StrToInt(InputBox('Введення даних', 'Введіть швидкість на другому маршруті', ''));
label8.Caption:=IntToStr(v2);
v3:=StrToInt(InputBox('Введення даних', 'Введіть швидкість на третьому маршруті', ''));
label9.Caption:=IntToStr(v3);
t:=StrToInt(InputBox('Введення даних', 'Введіть тривалість зупинок', ''));
label10.Caption:=IntToStr(t);
r:=s1/v1 * s2/v2 + s3/v3+t*2/60;
label12.Caption:=floatToStr(r);
end;
Комментариев нет:
Отправить комментарий