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

UptoLike

ВУЗ: 

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

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

Рубрика: 

69
в противном случае y=x+1.
program gar5;
var
y,x:real;
begin
writeln('Вычислить значение y в зависимости от значения x.');
writeln('Если x<–0.5 y=1+sqrt(cos(x)),');
writeln(' x>1 y=1–x*x.');
writeln('в противном случае y=x+1.');
writeln('Введите x');
read(x);
if (x>=–0.5)and(x<=1) then
y:=x+1
Else if (x<–0.5) then if (cos(x)>=0) then
y:=1+sqrt(cos(x)); {Оператор if }
else
begin {составной оператор}
writeln('Для х=',x,' нельзя вычислить функцию');
exit {завершение программы}
end;
else if x>1 then
y:=1–x*x;
write('Значение y =',y:5:3);
writeln('Нажмите enter ');
readln;
readln;
end.
Пример 3.5. Вычислить значение y в зависимости от x.
Если x=1, то y не вычисляется,
x>0, y=2*x,
x>–1 и x<=10, y=1–ln(abs(1–x*x)),
x<–1, y=exp(–x).
program gar6;
var
x,y:real;
begin
writeln('Вычислить значение y в зависимости от
x.');
writeln('Если x=1 то y не вычисляется,');
writeln(' x>0 y=2*x, ');
writeln(' x>–1 и x<=10 y=1–ln(abs(1–x*x)), ');
writeln(' x<–1 y=exp(–x). ');
writeln('Введите y');

Страницы