Министерство образования и науки Российской федерации
Федеральное агентство по образованию
Саратовский Государственный Технический Университет
Кафедра «Информатика»
Курсовая работа
Тема: «Информатика. Алгоритмизация и программирование»
кг
Vmax, км/ч
кг/м3
м2
Шv
мин-1
Kv
зтр
6000
100
0,62
3,9
0,021
3000
1,2
0,88
По приведенной блок-схеме была составлена программа, листинг которой приведен ниже.
program lab1;
var m0,vmax,Ke,F,Fv,nN,Ky,n_tr:real; {peremennye - ishodnye dannye}
Nv,Ne_max,n_v,Ne,Me:real; {peremennye - rezultaty}
BEGIN
{-----------VVOD ISHODNYH DANNYH-----}
writeln ('Vvedite ishodnye dannye:');
write ('m0=');readln(m0);
write ('Vmax=');readln(Vmax);
write ('Ke=');readln(Ke);
write ('F=');readln(F);
write ('Fv=');readln(Fv);
write ('nN=');readln(nN);
write ('Ky=');readln(Ky);
write ('n_tr=');readln(n_tr);
{----------RASCHET-------------------}
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. Ниже представлен лист с решением и результатами.
Программу написанную на языке Паскаль копирую и вставляю в проект, затем исправляю существенные различия.
№
a
b
h
f(x)
Начало отрезка
Конец отрезка
Шаг по отрезку
9
-12
0
1
Эта схема была реализована на языке Паскаль в трех вариантах: были задействованы циклы с предусловием, с постусловием и с параметром. Листинги программ приведены ниже.
а) Цикл с постусловием
program lab21;
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))
f:=5* sin((3.14/12)*x);
writeln('f(',x:3:1,')=',f:6:2);
x:=x+1;
until x>0;
readln;
end.
б) Цикл с предусловием
program lab22;
var x,y:real;
while x<=0 do
if x<-7 then y:= sin((3.14/12)*x)
if x<=-3 then y:= 2*cos((3.14/6)*x+(3.14/12))
y:= 5* sin((3.14/12)*x);
writeln('f(',x:3:1,')=',y:6:2);
end;
в) Цикл с параметром
program lab23;
var
x,y,a,b,h,n1: real;
n ,i : integer;
Страницы: 1, 2