Question

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО!!!!!! Встречено '(', а ожидалось '.' (с 14-ой строчки мне пишет это) вот вся программа: program figura2; uses crt, GraphABC; var r1,r2,a,b:integer; S:real; begin SetWindowSize(350,350); SetPenWidth(3); line(110,50,270,50); line(110,170,270,170); circle(110,110,20); circle(270,110,20); arc(110,110,60,90,270); (110,110) (90,270) arc(270,110,60,270,90); (270,110) (270,90) a:=8,b:=6; r1:=1;r2:=3; S:=a*b+pi*r2*r2-2*pi*r1*r1; write('S=',S:2:2); end.

Answer 1

А что это у тебя:
(110,110)
(90,270)
и это
(270,110)
(270,90)
?

Answer 2

Проблема в вашем коде заключается в том, что после вызова процедуры arc вы встречаете символ "(", который не должен быть там. Процедура arc принимает следующие параметры:

scssCopy code
arc(x, y, startAngle, endAngle, radius);

Вместо этого вы, вероятно, хотели добавить комментарии для этих двух вызовов arc. В языке Pascal комментарии обозначаются фигурными скобками { }.

Вот исправленный код:

pascalCopy code
program figura2;
uses crt, GraphABC;

var
  r1, r2, a, b: integer;
  S: real;

begin
  SetWindowSize(350, 350);
  SetPenWidth(3);
  line(110, 50, 270, 50);
  line(110, 170, 270, 170);
  circle(110, 110, 20);
  circle(270, 110, 20);
  arc(110, 110, 60, 90, 270); { это комментарий }
  arc(270, 110, 60, 270, 90); { это тоже комментарий }
  
  a := 8;
  b := 6;
  r1 := 1;
  r2 := 3;
  S := a * b + pi * r2 * r2 - 2 * pi * r1 * r1;
  write('S=', S:2:2);
end.

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