Пример 1. Определить мощность главных двигателей судна для обеспечения скорости хода 20 узлов, если известно сопротивление воды движению судна и пропульсивный КПД установки.
,
где N – мощность главных двигателей, л.с.; R – сопротивление воды движению судна, кг; V – скорость хода, уз; h – пропульсивный КПД установки.
Рисунок 1 – Блок схема линейного алгоритма
Программа:
Program Primer1;
Uses Crt;
Var N,V,R,KPD:real;
Begin
Write(‘Введите сопротивление воды движению судна, кг:’);
Readln(R);
Write(‘Введите скорость хода судна, уз:’);
Readln(V);
Write(‘Введите пропульсивный кпд установки:’);
Readln(KPD);
N:=0.515*R*V/(75*KPD);
Writeln(‘Мощность главных двигателей N=’, N:1:3);
Readkey;
End.
