Вычисление выражений

Составьте программы на языке программирования Pascal, используя условный оператор и оператор выбора.

Изображения

  

0

ну помогите кто нибудь

0

надо решать:)

0

нет просто записать

0

Сейчас помогу

0

А сами что - нибудь написали? Пытались? Код в студию!

0

тут тебе гибрид и из оператора выбора и из условного оператора=) в общем думаю всё как хотел

var y,x:real;
a,b:integer;
begin
write('Введите значение a=');
read(a);

case a of
1..11: begin
write('Введите значение b=');
read(b);
if a<=8 then y:=cos(a)+exp(5*ln(sqr(a)+b))
else y:=ln(a)+b-a;
end;

12..20: begin
write('Введите значение x=');
read(x);
y:=(sin(a+x)/cos(a+x))/sqrt(x);
end;
else writeln('значение A в недопустимых пределах');
end;
writeln('Ответ=',y);
end.

Правый пример

var y:real;
a,b,x,c:integer;
begin
write('Введите значение x=');
read(x);

case a of
1..7: y:=cos(sin(x));
8..12: begin
write('Введите значение a=');
read(a);
y:=exp(3*ln(2*a*x*ln(x)));
end;

13..40: begin
write('Введите значение b=');
read(b);
write('Введите значение c=');
read(c);
y:=2*x+b-c;
end;
else writeln('значение X в недопустимых пределах');
end;
writeln('Ответ=',y);
end.

P.S. Переменные брал целого типа так как case не работает с вещественным

1