>
{----------- 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.14 e-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
В В В
РІШЕННЯ
Виконаємо схему алгоритму.
В
В
p> Ця схема була реалізована на мові Паскаль в трьох варіантах: були задіяні цикли з передумовою, з постусловіем і з параметром. Листинги програм наведені нижче. p> а) Цикл з постусловіем
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))
else
f: = 5 * sin ((3.14/12) * x);
writeln ('f (', x: 3:1, ') =', f: 6:2);
x: = x +1;
until x> 0;
readln;
end.
б) Цикл з передумовою
program lab 22;
var x, y: real;
begin
x: = -12;
while x <= 0 do
begin
if x <-7 then y: = sin ((3.14/12) * x)
else
if x <= -3 then y: = 2 * cos ((3.14/6) * x + (3.14/12))
else
y: = 5 * sin ((3.14/12) * x);
writeln ('f (', x: 3:1, ') =', y: 6:2);
x: = x +1;
end;
readln;
end.
в) Цикл з параметром
program lab 23;
var
x, y, a, b, h, n1: real;
n, i: integer;
begin
x: = -12;
a: = -12; b: = 0; h: = 1;
n1: = (b-a)/h; n: = round (n1);
for i: = 0 to n do
begin
if x <-7 then y: = sin ((3.14/12) * x)
else
if x <= -3 then y: = 2 * cos ((3.14/6) * x + (3.14/12))
else
y: = 5 * sin ((3.14/12) * x);
writeln ('f (', x: 3:1, ') =', y: 6:2);
x: = x +1;
end;
readln;
end.
Рішення цієї ж завдання було проведено в Excel. При обчисленні функції використовувалася логічна функція ЕСЛИ. Лист з рішенням завдання розміщений нижче.
В В
Програму написану мовою Паскаль копіюю і вставляю в проект, потім виправляю суттєві відмінності.
В
Задача 3
