[faraon_forever]

Составить программу для вычисления пути, пройденного лодкой, если ее скорость в стоячей воде V км/ч, скорость течения реки A км/ч, время движения по озеру T1 км/ч, а против течения реки T2 км/ч.

[Alegun]

Что называется, из серии одной строкой

Код:

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