Регистрация
perrezz
16.08.2022 16:05
Информатика
Есть ответ 👍

Написать на листочке блок-схему к этой программе const a=-8;
b=2;
h=0.3;
var x: real;
begin
x: =a;
while x< =b do
begin
write('x=',x: 4: 1);
if x< -6 then writeln(' y=',cos(2*x): 4: 1)
else
if x< 0 then
begin
if x< 0 then writeln('y=функция не имеет значений')
else
writeln('у=',ln(x)-exp(ln(x)/3): 4: 1);
end
else writeln(' y=',(exp(ln(x)/3)*sin(x)*cos(x)+sqr(2)/sin(x): 4: 1));
x: =x+h;
end;
end.

169
210
Посмотреть ответы 1

Ответы на вопрос:

Dima890438
Dima890438
4,4(75 оценок)
Var a,b,min,max,f: integer; begin readln(a,b); min: =a+b; max: =a*b; if a> b then f: =1 else f: =2; case f of 1: begin   a: =max; b: =min end;   2: begin a: =min; b: =max  end; end; writeln(a,b); end.

Популярно: Информатика