ПОМОГИТЕ! 40Б! Составить программу которая запрашивает значение переменной x, номер...

Question

ПОМОГИТЕ! 40Б!
Составить программу которая запрашивает значение переменной x, номер арифметического действия и в зависимости от номера действия определяет y.

x(в квадрате), если n=1
cos(x), если n=2
y=
sin(x), если n=3
IxI, если n=4

Comments

в Косинусах и синусах градусы или радианы?

Answer 1

Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
  1: Writeln('y = ', x*x);
  2: Writeln('y = ', cos(x));
  3: Writeln('y = ', sin(x));
  4: Writeln('y = ', abs(x));
end;
end.

Comments

Спасибо огромное!)

Answer 2

Varn: real;beginwriteln('Введите значение n: ');readln(n);if n=1 then writeln('n= ',sqr(n))elseif n=2 then writeln('n= ',cos(n))else if n=3 then writeln('n= ',sin(n))elseif n=4 then writeln('n= ',abs(n));end.

Comments

var
n: real;
begin
writeln('Введите значение n: ');
readln(n);
if n=1 then writeln('n= ',sqr(n))
else
if n=2 then writeln('n= ',cos(n))
else
if n=3 then writeln('n= ',sin(n))
else
if n=4 then writeln('n= ',abs(n));
end.

---

Спасибо большое!)

---

не за что

---

если я захочу найти Квадрат числа 10, что я должен Ввести?

---

я бы сделал это,но он(а) сам(а) дал(а) мне данные числа n.

---

запрашивает значение переменной x , номер арифметического действия

---

по программе, нужно ввести 10 1, и получишь квадрат числа 10

---

аа,дошло,мдаа..

---

Бывает, вопрос трудно читается, а меня вообще игнорят с градусами и радианами...

---

:)