Построение изображения заданного четырехугольника — Pascal(Паскаль)

uses graph, crt;

var
  gd, gm, choice: integer;

label 1, 2, 3, 4;

begin
  writeln('1-параллеограмм 2-прямоугольник 3-ромб 4-квадрат');
  readln(choice);
  initgraph(gd, gm, 'c:\bp\bgi');
  IF choice = 1 THEN
    GOTO 1;
  IF choice = 2 THEN
    GOTO 2;
  IF choice = 3 THEN
    GOTO 3;
  IF choice = 4 THEN
    GOTO 4;
1:
  clearviewport;
  LINE(320, 240, 400, 240);
  LINE(350, 290, 430, 290);
  LINE(320, 240, 350, 290);
  LINE(400, 240, 430, 290);
  repeat
    ;
  until keypressed;
  halt;
2:
  clearviewport;
  rectangle(320, 240, 400, 290);
  repeat
    ;
  until keypressed;
  halt;
3:
  clearviewport;
  LINE(320, 240, 270, 290);
  LINE(320, 240, 370, 290);
  LINE(320, 340, 370, 290);
  LINE(320, 340, 270, 290);
  repeat
    ;
  until keypressed;
  halt;
4:
  clearviewport;
  rectangle(320, 240, 420, 340);
  repeat
    ;
  until keypressed;
  halt;
  closegraph;

end.

Leave a Comment

5 + 2 =