Case


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

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.