Курсовая работа: Информатика Алгоритмизация и программирование
Nv:=2.725E-03*m0*Fv*Vmax/n_tr+2.14e-05*Ke*F*sqr(Vmax)*Vmax/n_tr;
Ne_max:=Nv/(Ky*(1+Ky*(1+Ky)));
n_v:=Ky*nN;
Ne:=Ne_max*(n_v/nN+sqr(n_v/nN)-sqr(n_v/nN)*n_v/nN);
Me:=9549*(Ne/n_v);
{----------VIVOD REZULTATA-----------}
writeln('Nv=',Nv);
writeln('Ne_max=',Ne_max);
writeln('n_v=',n_v);
writeln('Ne=',Ne);
writeln('Me=',Me);
End.
Решение этой же задачи было проведено в ЭТ Excel. Ниже представлен лист с решением и результатами.
Программу написанную на языке Паскаль копирую и вставляю в проект, затем исправляю существенные различия.
Задача 2.
Вычислить функцию , для
с шагом
.
№ | a | b | h | f(x) | ||
Начало отрезка | Конец отрезка | Шаг по отрезку | ||||
9 | -12 | 0 | 1 | ![]() |
РЕШЕНИЕ
Выполним схему алгоритма.
Эта схема была реализована на языке Паскаль в трех вариантах: были задействованы циклы с предусловием, с постусловием и с параметром. Листинги программ приведены ниже.
а) Цикл с постусловием
program lab 21;
var x,f:real;
begin
x:=-12;
repeat
if x<-7 then f:=sin((3.14/12)*x)
else
if x<=-3 then f:=2*cos((3.14/6)*x+(3.14/12))