veravlad
?>

пишет ошибку Program1.pas(8) : Нет перегруженной подпрограммы с такими типами параметров Program sum3; Var x: integer; var y:real; Begin writeln('введите x'); Readln (x); if x<0 then y:=1+2*x/1+sqr(x) else if 0<=x<1 then y:=sqr(sin)*x*sqrt(1+x) else if x>=1 then y:=sqr(sin)*x*exp(0, 2*x); writeln('y=', y, 'при x=', x); end.

Информатика

Ответы

volchek01112240

Program sum3;

Var x: integer;

   y:real;

Begin

   write('введите x'); readln (x);

   if x<0 then y:=1+2*x/(1+sqr(x)) else

   if (0<=x) and (x<1) then y:=sqr(sin(x))*sqrt(1+x) else

   if x>=1 then y:=sqr(sin(x))*exp(0.2*x);

   writeln('y = ',y:0:2,' при x = ',x);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

пишет ошибку Program1.pas(8) : Нет перегруженной подпрограммы с такими типами параметров Program sum3; Var x: integer; var y:real; Begin writeln('введите x'); Readln (x); if x<0 then y:=1+2*x/1+sqr(x) else if 0<=x<1 then y:=sqr(sin)*x*sqrt(1+x) else if x>=1 then y:=sqr(sin)*x*exp(0, 2*x); writeln('y=', y, 'при x=', x); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

filimon211
avolodyaev
Виктория Нина
Матвеев
Karmelita1978
snabdonm501
zvanton
komplekt7
Novikova Aleksandrovna
Aksinya1036
yanva
badalovao256
kirillreznikov
baranovaas
innesagrosheva22