Напишите программку на delphi или vba excel.

[faraon_forever]

Задача "Путь"

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

[Sciv]

Что вызывает затруднения?

Алгоритм простой:

1) Составляем математическую модель, то бишь уравнение, описывающее движение лодки, выражаем из него искомую величину (Икс).
2) Берем Дельфи или Ексель и программируем полученную формулу. С учетом ввода параметров и вывода результата непосредственно код займет не более трех строк.

[faraon_forever]

Да но я совершенно не знаю как написать. Много прогуливал. Напишите пожалуйста сам код

[Sciv]

на дельфи:

var A,V: real;
    T1,T2: integer;
    X: Real;
begin
  ReadLn(A,V,T1,T2);
  X:=T1*V+T2*(V-A);
  WriteLn(X);
end.

И кстати, время движения измеряется в часах (минутах, секундах), а не в км/ч - это что касается исходного условия.

[faraon_forever]

Sciv, большое вам спасибо за помощь. А этот код вписывать в button или как. И нужно наверное чтобы куда то результат выводился.

[Sciv]

А этот код вписывать в button или как

это код для консольного приложения в дельфях. Чтоб создать консольное: File -> New -> Other -> Console Application

И нужно наверное чтобы куда то результат выводился.

Он и выводится на экран:

  WriteLn(X);

[faraon_forever]

Sciv, ОГРОМНОЕ ВАМ СПАСИБО ЗА ПОМОЩЬ. Сейчас буду пробовать.

[faraon_forever]

А когда нажимаешь File -> New -> Other -> Console Application. То появляется следующий код program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
{ TODO -oUser -cConsole Main : Insert code here }
end.

А КУДА ВПИСЫВАТЬ ВАШ КОД КОТОРЫЙ ВЫ НАПИСАЛИ ВЫШЕ?

[Sciv]

{$APPTYPE CONSOLE}

uses
SysUtils;

var A,V: real;
    T1,T2: integer;
    X: Real;

begin
{ TODO -oUser -cConsole Main : Insert code here }
  ReadLn(A,V,T1,T2);
  X:=T1*V+T2*(V-A);
  WriteLn(X);
  readLn;
end.

Если что - выделенное жирным переводится как "Вставьте код сюда". Английский тоже прогуливал?

[faraon_forever]

Scan, благодарю. А можно как-нибудь эту программу создать путем простой формы, т.е. File -> New -> Application. Чтобы на форме были компоненты и вывод результата ? Просто это задание нужно завтра на экзамен. Мне кажется преподаватель скажет что консольный вариант не подойдет.