Предмет: Информатика, автор: Kas09

Case


Program...
Var y,x:real;
Writeln
Че дальше желать???

Приложения:

Ответы

Автор ответа: nkpk
1

var x,y:real; a:integer;

begin

writeln('Введите номер :');

readln(a);

case(a) of

1:

begin

writeln('x = ');

readln(x);

writeln('y = ',sin(x) + Power(x,2));

end;

2:

begin

writeln('x = ');

readln(x);

writeln('y = ',sqrt(cos(x)-2*Power(x,3)));

end;

3:

begin

writeln('x = ');

readln(x);

y := Power(x,2);

writeln('y = ',y);

end;

else

Writeln('Под таким номером формулы нет!');

end;


end.




Я еще приведу пример кода на PascalABC.NET так для сравнение

begin

var a:=ReadInteger('Введите номер: ');

case(a) of

1:

begin

var x:=ReadInteger('x = ');

writeln('y = ',sin(x) + Power(x,2));

end;

2:

begin

var x:=ReadInteger('x = ');

writeln('y = ',sqrt(cos(x)-2*Power(x,3)));

end;

3:

begin

var x:=ReadInteger('x = ');

writeln('y = ',Power(x,2));

end;

else

Writeln('Под таким номером формулы нет!');

end;

end.

Похожие вопросы
Предмет: История, автор: nurmuhammedovmuhamma
Предмет: Алгебра, автор: amaslyanaya
Предмет: Математика, автор: АнастасияМ3958