Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 22 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

21
После выхода из цикла остается задержать результаты работы на экране с
помощью пустого оператора ввода и завершить программу.
Readln
End.
Теперь соберем все фрагменты в единую программу.
Program Lab3;
Const h=Pi/5;
Var x,y:real;
Begin
writeln;
writeln(’ Автор – Иванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант № 100’);
writeln(’ Программа для заполнения таблицы значений функции’);
writeln(’ |2*x x>2.5’);
writeln(’Y= |x^3-x 0<=x<=2.5’);
writeln(’ |x*(sin(x)) x<0’);
writeln(’на отрезке [-Pi; Pi] с шагом Pi/5’);
writeln;
x:=-Pi;
While x<=Pi do
Begin
If x>2.5 then
Y:=2*x
Else
If x>=0 then
y:=sqr(x)*x-x
Else
Y:=x* sin(x);
Writeln(x:7:3,y:10:3);
x:=x+h
end;
Readln
End.
Таблица 3.1
Варианты заданий
№ вар.
Функция
Интервал
изменения
аргумента
Шаг
изменения
аргумента
1.
⎪
⎩
⎪
⎨
⎧
+
−
=
)cos(ln
1
2
2
xx
x
x
y
[-π; π] π /10
x > 2.5
0 ≤ x ≤ 2.5
x < 0

Страницы