|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Составить программу для вычисления пути, пройденного лодкой
Составить программу для вычисления пути, пройденного лодкой, если ее скорость в стоячей воде V км/ч, скорость течения реки A км/ч, время движения по озеру T1 км/ч, а против течения реки T2 км/ч.
|
#2
|
||||
|
||||
Что называется, из серии одной строкой
Код:
procedure TForm1.Button1Click(Sender: TObject); begin { Edit1: скорость в стоячей воде (V) Edit2: скорость течения реки (A) Edit3: время движения по озеру (T1) Edit4: против течения реки (T2) Формула для расчёта Result:= T1 * V + T2 * (V - A); } Label1.Caption:= FloatToStr(StrToInt(Edit3.Text) * StrToFloat(Edit2.Text) + StrToInt(Edit4.Text) * (StrToFloat(Edit2.Text) - StrToFloat(Edit1.Text))); end; З.Ы. Преподы совсем сдвинулись, это сколько же надо было им "гранита" cгрызть, чтоб "время движения" в кмч измерять Я не понял Вашего вопроса, но всё же Вам на него отвечу! |