Встречено '.', а ожидалось ','

Question

Встречено '.', а ожидалось ','

выва вывович Ученик (109), открыт 1 неделю назад

uses graphABC;
const n=6;
type Point=record
x,y:integer;
end;
poly=array[1..n] of Point;
procedure Polygon(R,x,y:integer;var points:poly);
var i:byte;
a:real;
begin
SetWindowSize(800, 600);
ClearWindow(clSkyBlue);

// Draw the sun
SetBrushColor(clYellow);
Circle(700, 100, 50);

// Draw the sea
SetBrushColor(clBlue);
Rectangle(0, 300, 800, 600);

// Draw the sand
SetBrushColor(clYellow);
Rectangle(0, 250, 800, 300);

// Draw some clouds
SetBrushColor(clWhite);
Ellipse(100, 100, 200, 150);
Ellipse(150, 80, 250, 130);
Ellipse(400, 50, 500, 100);
Ellipse(450, 30, 550, 80);

// Draw beach umbrellas
SetBrushColor(clRed);
Polygon(100, 250);
Polygon(130, 250);
Polygon(115, 200);
Rectangle(115, 250, 125, 300);

SetBrushColor(clBlue);
Polygon([Point(200, 250), Point(230, 250), Point(215, 200)]);
Rectangle(215, 250, 225, 300);

SetBrushColor(clGreen);
Polygon([Point(300, 250), Point(330, 250), Point(315, 200)]);
Rectangle(315, 250, 325, 300);

// Draw beach balls
SetBrushColor(clRed);
Circle(400, 400, 20);
SetBrushColor(clBlue);
Circle(450, 420, 20);
SetBrushColor(clYellow);
Circle(500, 380, 20);

// Draw some palm trees
SetBrushColor(clBrown);
Rectangle(600, 250, 620, 300);
SetBrushColor(clGreen);
Ellipse(580, 230, 640, 250);
Ellipse(590, 210, 630, 230);

Rectangle(650, 250, 670, 300);
Ellipse(630, 230, 690, 250);
Ellipse(640, 210, 680, 230);

// Draw some seagulls
SetBrushColor(clBlack);
MoveTo(300, 100);
LineTo(320, 120);
MoveTo(320, 100);
LineTo(300, 120);

MoveTo(350, 120);
LineTo(370, 140);
MoveTo(370, 120);
LineTo(350, 140);

MoveTo(400, 80);
LineTo(420, 100);
MoveTo(420, 80);
LineTo(400, 100);

// Draw some footprints
SetBrushColor(clBrown);
Ellipse(100, 500, 120, 520);
Ellipse(130, 510, 150, 530);
Ellipse(160, 500, 180, 520);

// Draw some shells
SetBrushColor(clPink);
Ellipse(200, 550, 220, 570);
Ellipse(220, 540, 240, 560);

// Draw some starfish
SetBrushColor(clOrange);
Polygon([Point(300, 550), Point(310, 570), Point(290, 570)]);
Polygon([Point(290, 550), Point(300, 570), Point(280, 570)]);

// Draw some more details
SetBrushColor(clWhite);
Circle(600, 500, 10);
Circle(620, 520, 10);

// Finalize drawing
Flush;
end.
В последней строке выдает ошибку, которая написана в теме вопроса, подскажите, как исправить.

Answer 1

geymaster zxc Мудрец (11837) 1 неделю назад

люби код за то какой он есть

выва вывовичУченик (109) 1 неделю назад

у нас не взаимно

geymaster zxc Мудрец (11837) выва вывович, настои на своем

Answer 2

вик Мудрец (19735) 1 неделю назад

как то так

Answer 3

 uses graphABC; 
 
const 
  n = 6; 
 
type 
  Point = record 
    x, y: integer; 
  end; 
 
  poly = array[1..n] of Point; 
 
procedure DrawScene(R, x, y: integer; var points: poly); 
var 
  i: byte; 
  a: real; 
begin 
  SetWindowSize(800, 600); 
  ClearWindow(clSkyBlue); 
   
  SetBrushColor(clYellow); 
  Circle(700, 100, 50); 
   
  SetBrushColor(clBlue); 
  Rectangle(0, 300, 800, 600); 
   
  SetBrushColor(clYellow); 
  Rectangle(0, 250, 800, 300); 
   
  SetBrushColor(clWhite); 
  Ellipse(100, 100, 200, 150); 
  Ellipse(150, 80, 250, 130); 
  Ellipse(400, 50, 500, 100); 
  Ellipse(450, 30, 550, 80); 
   
  SetBrushColor(clRed); 
  Polygon(100, 250); 
  Polygon(130, 250); 
  Polygon(115, 200); 
  Rectangle(115, 250, 125, 300); 
   
  SetBrushColor(clBlue); 
  Polygon([Point(200, 250), Point(230, 250), Point(215, 200)]); 
  Rectangle(215, 250, 225, 300); 
   
  SetBrushColor(clGreen); 
  Polygon([Point(300, 250), Point(330, 250), Point(315, 200)]); 
  Rectangle(315, 250, 325, 300); 
   
  SetBrushColor(clRed); 
  Circle(400, 400, 20); 
  SetBrushColor(clBlue); 
  Circle(450, 420, 20); 
  SetBrushColor(clYellow); 
  Circle(500, 380, 20); 
   
  SetBrushColor(clBrown); 
  Rectangle(600, 250, 620, 300); 
  SetBrushColor(clGreen); 
  Ellipse(580, 230, 640, 250); 
  Ellipse(590, 210, 630, 230); 
   
  Rectangle(650, 250, 670, 300); 
  Ellipse(630, 230, 690, 250); 
  Ellipse(640, 210, 680, 230); 
   
  SetBrushColor(clBlack); 
  MoveTo(300, 100); 
  LineTo(320, 120); 
  MoveTo(320, 100); 
  LineTo(300, 120); 
   
  MoveTo(350, 120); 
  LineTo(370, 140); 
  MoveTo(370, 120); 
  LineTo(350, 140); 
   
  MoveTo(400, 80); 
  LineTo(420, 100); 
  MoveTo(420, 80); 
  LineTo(400, 100); 
   
  SetBrushColor(clBrown); 
  Ellipse(100, 500, 120, 520); 
  Ellipse(130, 510, 150, 530); 
  Ellipse(160, 500, 180, 520); 
   
  SetBrushColor(clPink); 
  Ellipse(200, 550, 220, 570); 
  Ellipse(220, 540, 240, 560); 
   
  SetBrushColor(clOrange); 
  Polygon([Point(300, 550), Point(310, 570), Point(290, 570)]); 
  Polygon([Point(290, 550), Point(300, 570), Point(280, 570)]); 
   
  SetBrushColor(clWhite); 
  Circle(600, 500, 10); 
  Circle(620, 520, 10); 
   
  Flush; 
end; 
 
var 
  points: poly; 
 
begin 
  DrawScene(0, 0, 0, points); 
end.

Answer 4

Jurii Высший разум (176313) 1 неделю назад

procedure Polygon объявлена, а где основная программа?

выва вывовичУченик (109) 1 неделю назад

здравствуйте, высший разум, а можно на русском пожалуйста? я не понимаю

JuriiВысший разум (176313) 1 неделю назад

Это не вся программа.
Откройте любой букварь по паскалю и прочтите главу „Процедуры и функции“

JuriiВысший разум (176313) 1 неделю назад

Если кратко, то процедуры по классической схеме работают вот так:

Есть описание процедуры и операторные скобки означающие их начала и конец, а так-же операторные скобки основной программы.

Answer 5

 uses graphABC; 
 
const n=6; 
 
type  
  Point=record  
    x,y:integer; 
  end; 
  poly=array[1..n] of Point; 
 
procedure Polygon(R,x,y:integer;var points:poly); 
var  
  i:byte; 
  a:real; 
begin 
  SetWindowSize(800, 600); 
  ClearWindow(clSkyBlue); 
   
  // Draw the sun 
  SetBrushColor(clYellow); 
  Circle(700, 100, 50); 
   
  // Draw the sea 
  SetBrushColor(clBlue); 
  Rectangle(0, 300, 800, 600); 
   
  // Draw the sand 
  SetBrushColor(clYellow); 
  Rectangle(0, 250, 800, 300); 
   
  // Draw some clouds 
  SetBrushColor(clWhite); 
  Ellipse(100, 100, 200, 150); 
  Ellipse(150, 80, 250, 130); 
  Ellipse(400, 50, 500, 100); 
  Ellipse(450, 30, 550, 80); 
   
  // Draw beach umbrellas 
  SetBrushColor(clRed); 
  Polygon(100, 250); 
  Polygon(130, 250); 
  Polygon(115, 200); 
  Rectangle(115, 250, 125, 300); 
   
  SetBrushColor(clBlue); 
  Polygon([Point(200, 250), Point(230, 250), Point(215, 200)]); 
  Rectangle(215, 250, 225, 300); 
   
  SetBrushColor(clGreen); 
  Polygon([Point(300, 250), Point(330, 250), Point(315, 200)]); 
  Rectangle(315, 250, 325, 300); 
   
  // Draw beach balls 
  SetBrushColor(clRed); 
  Circle(400, 400, 20); 
  SetBrushColor(clBlue); 
  Circle(450, 420, 20); 
  SetBrushColor(clYellow); 
  Circle(500, 380, 20); 
   
  // Draw some palm trees 
  SetBrushColor(clBrown); 
  Rectangle(600, 250, 620, 300); 
  SetBrushColor(clGreen); 
  Ellipse(580, 230, 640, 250); 
  Ellipse(590, 210, 630, 230); 
  Rectangle(650, 250, 670, 300); 
  Ellipse(630, 230, 690, 250); 
  Ellipse(640, 210, 680, 230); 
   
  // Draw some seagulls 
  SetBrushColor(clBlack); 
  MoveTo(300, 100); 
  LineTo(320, 120); 
  MoveTo(320, 100); 
  LineTo(300, 120); 
  MoveTo(350, 120); 
  LineTo(370, 140); 
  MoveTo(370, 120); 
  LineTo(350, 140); 
  MoveTo(400, 80); 
  LineTo(420, 100); 
  MoveTo(420, 80); 
  LineTo(400, 100); 
   
  // Draw some footprints 
  SetBrushColor(clBrown); 
  Ellipse(100, 500, 120, 520); 
  Ellipse(130, 510, 150, 530); 
  Ellipse(160, 500, 180, 520); 
   
  // Draw some shells 
  SetBrushColor(clPink); 
  Ellipse(200, 550, 220, 570); 
  Ellipse(220, 540, 240, 560); 
   
  // Draw some starfish 
  SetBrushColor(clOrange); 
  Polygon([Point(300, 550), Point(310, 570), Point(290, 570)]); 
  Polygon([Point(290, 550), Point(300, 570), Point(280, 570)]); 
   
  // Draw some more details 
  SetBrushColor(clWhite); 
  Circle(600, 500, 10); 
  Circle(620, 520, 10); 
   
  // Finalize drawing 
  Flush 
end; 
 
begin 
  Polygon(100, 400, 300, points); // Вызов процедуры рисования 
end.

Answer 6

ожидалось ; а не, кончилась процедура, а не программа.

Answer 7

 uses graphABC;  
 
const n=6;  
 
type   
  Point=record   
    x,y:integer;  
  end;  
  poly=array[1..n] of Point;  
 
procedure Polygon(R,x,y:integer;var points:poly);  
var   
  i:byte;  
  a:real;  
begin  
  SetWindowSize(800, 600);  
  ClearWindow(clSkyBlue);  
   
  // Draw the sun  
  SetBrushColor(clYellow);  
  Circle(700, 100, 50);  
   
  // Draw the sea  
  SetBrushColor(clBlue);  
  Rectangle(0, 300, 800, 600);  
   
  // Draw the sand  
  SetBrushColor(clYellow);  
  Rectangle(0, 250, 800, 300);  
   
  // Draw some clouds  
  SetBrushColor(clWhite);  
  Ellipse(100, 100, 200, 150);  
  Ellipse(150, 80, 250, 130);  
  Ellipse(400, 50, 500, 100);  
  Ellipse(450, 30, 550, 80);  
   
  // Draw beach umbrellas  
  SetBrushColor(clRed);  
  Polygon(100, 250);  
  Polygon(130, 250);  
  Polygon(115, 200);  
  Rectangle(115, 250, 125, 300);  
   
  SetBrushColor(clBlue);  
  Polygon([Point(200, 250), Point(230, 250), Point(215, 200)]);  
  Rectangle(215, 250, 225, 300);  
   
  SetBrushColor(clGreen);  
  Polygon([Point(300, 250), Point(330, 250), Point(315, 200)]);  
  Rectangle(315, 250, 325, 300);  
   
  // Draw beach balls  
  SetBrushColor(clRed);  
  Circle(400, 400, 20);  
  SetBrushColor(clBlue);  
  Circle(450, 420, 20);  
  SetBrushColor(clYellow);  
  Circle(500, 380, 20);  
   
  // Draw some palm trees  
  SetBrushColor(clBrown);  
  Rectangle(600, 250, 620, 300);  
  SetBrushColor(clGreen);  
  Ellipse(580, 230, 640, 250);  
  Ellipse(590, 210, 630, 230);  
  Rectangle(650, 250, 670, 300);  
  Ellipse(630, 230, 690, 250);  
  Ellipse(640, 210, 680, 230);

Answer 8

Один вопрос - откуда ты взял этот код, если проблемы с синтаксисом?