Алгоритмы и программы. Афанасьева Т. В - 84 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

84
program tab2;
const
h:real=0.5;
var
a, b, x, p, y: real;
begin
writeln('Табулирование функции y=sin(x) на отрезке [1,5] с шагом 0,5');
writeln('Вывод предпоследнего положительного значения функции');
a:=1;
b:=5;
x:=a;
y:=0;
repeat
if sin(x)>0 then
begin
p:=y; { запоминание предыдущего значения }
y:=sin(x); { вычисление текущего значения y }
end;
writeln('x= ',x:3:1,'y= ',sin(x):4:2);
x:=x+h;
until x>=b;
writeln('Предпоследнее положительное значение функции = ',p:4:2);
write('Нажмите ENTER');
readln;
end.
Пример 4.9. Вычислить максимальное значение функции y=sin(x) на
отрезке [1, 10]. Шаг=0.5.
program max;
const
h: real=0.5;
var
y, b, x, max: real;
begin
writeln('Максимальное значение функции y=sin(x) на отрезке [1,10].
Шаг=0.5');
x:=1;
b:=10;
max:=–1; { начальное значение максимума }
repeat
y:=sin(x);
writeln(y:5:3);
if y>max then max:=y;

Страницы