Question

Написал программу, выбивает ошибку "ожидался оператор". В чём проблема? Язык - Паскаль

uses GraphABC;
begin
SetWindowSize(400, 400);
var radius : 50;
var rectWidth : 200;
var rectHeight : 100;
var rectX : WindowWidth div 2 - rectWidth div 2;
var rectY : WindowHeight div 2 - rectHeight div 2;

SetBrushColor(clBlack);
SetPenColor(clBlack);
RoundRect(rectX, rectY, rectX + rectWidth, rectY + rectHeight, 0, 20);
Circle(rectX + radius, WindowHeight div 2, radius);
Circle(rectX + rectWidth - radius, WindowHeight div 2, radius);
end.

Answer 1

Ответ:

В языке Паскаль необходимо завершать каждый оператор точкой с запятой (;).

Измените последнюю строку на:

`Circle(rectX + rectWidth - radius, WindowHeight div 2, radius);` ;

Добавьте точку с запятой (;) после этой строки, чтобы завершить оператор, и программа должна работать правильно.

Исправленный код:

```

uses GraphABC;

begin

SetWindowSize(400, 400);

var radius : 50;

var rectWidth : 200;

var rectHeight : 100;

var rectX : WindowWidth div 2 - rectWidth div 2;

var rectY : WindowHeight div 2 - rectHeight div 2;

SetBrushColor(clBlack);

SetPenColor(clBlack);

RoundRect(rectX, rectY, rectX + rectWidth, rectY + rectHeight, 0, 20);

Circle(rectX + radius, WindowHeight div 2, radius);

Circle(rectX + rectWidth - radius, WindowHeight div 2, radius);

end.;

```