Cpascal #10

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Обслуживая станок работница проходит 1,5м.
Расстояние между станками 2м, ее скорость 2,3 км/ч.
Сколько секунд потребуется для обслуживания n станков.

Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2014г.
}
Program CyberPascal; uses crt;

const v_kmh=2.3; {Скорость работницы, км/ч}
      dist1=1.5; {Расстоние на обслуживание,м}
       dist2=2.0; {Расстояние между станками, м}

var v_mss,dist:real;
    n,second:integer;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите кол-во станков: '); Readln(N);
Write('--------------------------------------------------------------------------------');
v_MsS:=(v_KmH*1000)/3600;
Dist:=(Dist1*N)+(Dist2*(N-1));
Second:=Round(Dist*v_MsS);
Writeln(' Для обслуживание ',N,' станков потребуется ',Second,' сек.');
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.