Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 86 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

84
nn: write (‘
Выберите
порядок
производной
:’);
writeln;
writeln (‘1 –
производная
1-
ого
порядка
’);
writeln (‘2 –
производная
2-
ого
порядка
’);
writeln (‘3 –
производная
3-
ого
порядка
’);
writeln (‘4 –
производная
4-
ого
порядка
’);
readln(n);
case n of
1: begin
rr: write (‘
Выберите
вид
аппроксимации
:’);
writeln;
writeln (‘1 –
с
помощью
левых
разностей
’);
writeln (‘2 –
с
помощью
центральных
разностей
’);
writeln (‘3 –
с
помощью
правых
разностей
’);
readln(r);
case r of
1: begin
write (‘
Введите
y0:’);
readln(y0);
write (‘
Введите
y1:’);
readln(y1);
y:=(y1-y0)/h;
end;
2: begin
write (‘
Введите
y0:’);
readln(y0);
write (‘
Введите
y2:’);
readln(y2);
y:=(y2-y0)/(2*h);
end;
3: begin
write (‘
Введите
y1:’);
readln(y1);
write (‘
Введите
y2:’);
readln(y2);
y:=(y2-y1)/h;
end;
else goto rr;
end;
end;

Страницы