Курсовая работа: Информатика Алгоритмизация и программирование

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))

К-во Просмотров: 548
Бесплатно скачать Курсовая работа: Информатика Алгоритмизация и программирование