Что называется, из серии одной строкой
Код:
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грызть, чтоб "время движения" в кмч измерять
