Question

В чём проблема выдаёт ошибку 7 строчка ((помогите)) PascalABC program калькулятор_степеней; var x,n:integer; var c,R:real; var u,s,ns,ss:boolean; begin writeln('вычисление степеней'); ((readln(s);)) if ss=true then begin ns:=false; s:=false end; if ss=false then begin writeln('вычисление суммы'); readln(s); if s=true then ns:=false else begin writeln('вычисление разности'); readln(ns); end; end; if (s=false)and(ns=false)and(ss=true) then begin writeln('основание степени'); readln(c); writeln('показатель степени'); readln(n); u:=false; if (n<=0)and(c=0) then begin u:=true ; end; if (n>=1)and(u=false) then begin R:=c; x:=2; while x<=n do begin R:=R*c; x:=x+1; end; end; if (n=0)and(u=false) then R:=1; if (c=0)and(u=false) then R:=0; if (n<0) then begin R:=1; x:=-1; while x>=n do begin R:=R/c; x:=x-1; end; end; if u=false then begin writeln('результат'); writeln(R); end; if u=true then writeln('не определено'); end; if (s=true)and(ns=false)and(ss=false) then begin writeln('введите слогаемые(через пробел)'); readln(R,c); R:=c+R; writeln('результат'); writeln(R); end; if (s=false)and(ns=true)and(ss=false) then begin writeln('введите уменьшаемое и вычитаемое(через пробел)'); readln(R,c); R:=R-c; writeln('результат'); writeln(R); end; end.

Answer 1

Ошибку выдаёт вот здесь ((readln(s);)) из-за скобок. При readln(s); программа выполняеться без ошибок.

Суть ошибки в том, что Вы заканчиваете строку скобкой, а не ; . Возможно скобки были поставлены случайно.

Answer 2

Проблема в данном коде возникает из-за неправильного синтаксиса использования оператора сравнения. В строке "if (n<=0)and(c=0) then begin u:=true ; end;" используется оператор "<=" вместо "<", что приводит к ошибке.

Также стоит отметить, что в строке "readln(s);" используется несуществующая переменная "s", возможно, она должна быть объявлена в программе.

Для устранения ошибки в 7 строке кода необходимо заменить оператор сравнения "<=" на "<" следующим образом:

if (n<0)and(c=0) then begin u:=true ; end;

Также следует проверить правильность объявления переменных и их использование в программе, чтобы избежать ошибок в работе калькулятора.