1. Главная
  2. Блоги
  3. Ермак
  4. PABC #2 Beta 1

PABC #2 Beta 1

Program THERUNNER;
Uses crt, GraphABC;
Var i:integer;
Begin

For i:=1 to 100500 Do Begin

SetBrushColor(ClSkyBlue);
FillRect(0,0,1200,150);
SetBrushColor(ClGray);
FillRect(0,150,1200,500);
SetBrushColor(ClYellow);
Circle(50,50,30);

SetBrushColor(ClBlack);
Line(230,500,420,500);
Line(230,500,270,150);
Line(420,500,380,150);

SetBrushColor(ClWhite);
SetPenColor(ClWhite);
Ellipse(100,10,300,50);
Ellipse(200,50,300,90);
Ellipse(220,50,330,100);
Ellipse(300,30,410,70);
Ellipse(400,70,480,90);
Ellipse(450,20,510,50);
Ellipse(500,50,560,90);

SetBrushColor(ClBrown);
SetPenColor(ClBlack);
FillRect(150,400,170,280);
FillRect(550,400,570,280);
SetBrushColor(ClGreen);
Circle(160,280,50);
Circle(560,280,50);

SetbrushColor(ClWhite);
FillRect(300,200,350,275);
Pie(300,220,20,90,180);
Pie(350,220,20,0,90);

Setbrushcolor(ClBrown);
FillRect(280,220,292,280);
FillRect(358,220,370,280);
//Äæèíñû
Setbrushcolor(ClBlue);
FillRect(300,275,320,345);
FillRect(330,275,350,345);

SetBrushColor(ClWhite);
Setpencolor(ClWhite);
FillRect(300,345,320,355);
FillRect(330,345,350,355);
Circle(310,355,10);
Circle(340,355,10);
SetBrushColor(ClBlack);
FillRect(300,355,320,356);
FillRect(330,355,350,356);

SetPenColor(ClBlack);
SetBrushColor(ClBlack);
Pie(325,168,20,0,180);
SetBrushColor(ClBrown);
FillRect(315,200,335,180);
Ellipse(310,190,340,150);
SetBrushColor(ClBlack);
Circle(320,165,3);
Circle(330,165,3);
Arc(325,175,7,160,360);

Delay(300);
ClearWindow;

SetBrushColor(ClSkyBlue);
FillRect(0,0,1200,150);
SetBrushColor(ClGray);
FillRect(0,150,1200,500);
SetBrushColor(ClYellow);
Circle(50,50,30);

SetBrushColor(ClBlack);
Line(230,500,420,500);
Line(230,500,270,150);
Line(420,500,380,150);

SetBrushColor(ClBrown);
SetPenColor(ClBlack);
FillRect(150,300,165,210);
FillRect(550,300,565,210);
SetBrushColor(ClGreen);
Circle(157,210,38);
Circle(557,210,38);

SetBrushColor(ClWhite);
SetPenColor(ClWhite);
Ellipse(100,10,300,50);
Ellipse(200,50,300,90);
Ellipse(220,50,330,100);
Ellipse(300,30,410,70);
Ellipse(400,70,480,90);
Ellipse(450,20,510,50);
Ellipse(500,50,560,90);

SetbrushColor(ClWhite);
FillRect(300,200,350,275);
Pie(300,220,20,90,180);
Pie(350,220,20,0,90);

Setbrushcolor(ClBrown);
FillRect(280,220,292,250);
FillRect(358,220,370,250);
FillRect(280,250,310,262);
FillRect(358,250,388,262);

Setbrushcolor(ClBlue);
FillRect(300,275,320,345);
FillRect(330,275,350,325);
SetBrushColor(ClBlack);
Line(330,320,350,321);

SetBrushColor(ClWhite);
SetPencolor(ClWhite);
FillRect(300,345,320,355);
Circle(310,355,10);
SetBrushColor(ClBlack);
FillRect(300,355,320,356);

SetPenColor(ClBlack);
SetBrushColor(ClBlack);
Pie(325,168,20,0,180);
SetBrushColor(ClBrown);
FillRect(315,200,335,180);
Ellipse(310,190,340,150);
SetBrushColor(ClBlack);
Circle(320,165,3);
Circle(330,165,3);
Arc(325,175,7,160,360);

Delay(300);
ClearWindow;

SetBrushColor(ClSkyBlue);
FillRect(0,0,1200,150);
SetBrushColor(ClGray);
FillRect(0,150,1200,500);
SetBrushColor(ClYellow);
Circle(50,50,30);

SetBrushColor(ClBlack);
Line(230,500,420,500);
Line(230,500,270,150);
Line(420,500,380,150);

SetBrushColor(ClWhite);
SetPenColor(ClWhite);
Ellipse(100,10,300,50);
Ellipse(200,50,300,90);
Ellipse(220,50,330,100);
Ellipse(300,30,410,70);
Ellipse(400,70,480,90);
Ellipse(450,20,510,50);
Ellipse(500,50,560,90);

SetBrushColor(ClBrown);
SetPenColor(ClBlack);
FillRect(150,200,160,140);
FillRect(550,200,565,140);
SetBrushColor(ClGreen);
Circle(155,140,25);
Circle(555,140,25);

SetbrushColor(ClWhite);
FillRect(300,200,350,275);
Pie(300,220,20,90,180);
Pie(350,220,20,0,90);

Setbrushcolor(ClBrown);
FillRect(280,220,292,280);
FillRect(358,220,370,280);

Setbrushcolor(ClBlue);
FillRect(300,275,320,345);
FillRect(330,275,350,345);

SetBrushColor(ClWhite);
Setpencolor(ClWhite);
FillRect(300,345,320,355);
FillRect(330,345,350,355);
Circle(310,355,10);
Circle(340,355,10);
SetBrushColor(ClBlack);
FillRect(300,355,320,356);
FillRect(330,355,350,356);

SetPenColor(ClBlack);
SetBrushColor(ClBlack);
Pie(325,168,20,0,180);
SetBrushColor(ClBrown);
FillRect(315,200,335,180);
Ellipse(310,190,340,150);
SetBrushColor(ClBlack);
Circle(320,165,3);
Circle(330,165,3);
Arc(325,175,7,160,360);

Delay(300);
ClearWindow;

SetBrushColor(ClSkyBlue);
FillRect(0,0,1200,150);
SetBrushColor(ClGray);
FillRect(0,150,1200,500);
SetBrushColor(ClYellow);
Circle(50,50,30);

SetBrushColor(ClBlack);
Line(230,500,420,500);
Line(230,500,270,150);
Line(420,500,380,150);

SetBrushColor(ClWhite);
SetPenColor(ClWhite);
Ellipse(100,10,300,50);
Ellipse(200,50,300,90);
Ellipse(220,50,330,100);
Ellipse(300,30,410,70);
Ellipse(400,70,480,90);
Ellipse(450,20,510,50);
Ellipse(500,50,560,90);

SetbrushColor(ClWhite);
FillRect(300,200,350,275);
Pie(300,220,20,90,180);
Pie(350,220,20,0,90);

Setbrushcolor(ClBrown);
FillRect(280,220,292,250);
FillRect(358,220,370,250);
FillRect(293,250,252,262);
FillRect(371,250,331,262);

Setbrushcolor(ClBlue);
FillRect(300,275,320,325);
FillRect(330,275,350,345);
SetBrushColor(ClBlack);
FillRect(300,320,320,321);

SetBrushColor(ClWhite);
Setpencolor(ClWhite);
FillRect(330,345,350,355);
Circle(340,355,10);
SetBrushColor(ClBlack);
FillRect(330,355,350,356);

SetPenColor(ClBlack);
SetBrushColor(ClBlack);
Pie(325,168,20,0,180);
SetBrushColor(ClBrown);
FillRect(315,200,335,180);
Ellipse(310,190,340,150);
SetBrushColor(ClBlack);
Circle(320,165,3);
Circle(330,165,3);
Arc(325,175,7,160,360);

Delay(300);
ClearWindow;

End;
End.

01 мая 2012, 13:12 by Ермак
1083 прочтений

Комментарии

  • avatar
    MrEverest 01 мая 2012, 13:20

    А нельзя ли всё в один блог? И мне кажется, что от тематики сайта ты стал отдаляться. Сначла паскаль, потом ассасин, теперь снова паскаль. Втф, Виталь?

  • avatar
    4eLoVek 01 мая 2012, 13:54

    Втф Виталь, можно скрин прикреплять? 😆 Я не обладаю паскалем на компе, и устанавливать не собираюсь, а посмотреть хочется 😆

  • avatar
    D@NTE 01 мая 2012, 15:04

    Прикольно, но мне кажется, что переменные "i,x2,y2" можно было и не вводить! =) Вот что получилось:

    👍😆

  • avatar
    Ермак 01 мая 2012, 15:41

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

    И откуда кто знает моё имя?

  • avatar
    MrEverest 01 мая 2012, 16:26

    2Macro SDHC контахтэ, товарисч Балезин! 😆

  • avatar
    4eLoVek 01 мая 2012, 16:51
    Macro SDHC И откуда кто знает моё имя

    Чувак, это магия.

  • avatar
    Ермак 01 мая 2012, 17:00

    Та не.
    Я ж как бы мак/макро/марк (который девеллис) (ежик поймет)
    Но не суть.

  • avatar
    Shooter 01 мая 2012, 22:47

    А первоначальное название (ник) было Micro SDHC. просто у меня так на флэшке написано 😆

  • avatar
    kekc 02 мая 2012, 12:48

    2Macro SDHC хватит олдскульным паскалем страдать)) хотя бы на html5 или java рисуй штоле

  • avatar
    Zonda F 07 мая 2012, 15:09

    Мне кажется или пора учить Delphin? 🤪

  • avatar
    kekc 08 мая 2012, 18:00

    2Zonda F facepalm. у delphi и pascal одинаковый синтаксис. да и делфи уже давно устарел

  • avatar
    Alone 14 мая 2012, 09:02

    тк тогда С++, с помощью ооп там можно норм рисовалку сделать(у меня на лабах было задание сделать такую прогу что бы можно было изменять размер линии, положение на екране и тд. тп. 😎 )

    •
Войдите  или  зарегистрируйтесь  для добавления комментария.
Или можете войти через соцсети: