Полезные коды для PascalABC.NET

{$resource MyImage.png} //Загружаем картинку в ресурсы
var MyImage:System.drawing.Image;
begin
MyImage:=Image.FromStream(GetResourceStream('MyImage.png')); //Пользуемся картинкой
end.

{$resource Icon.ico} //Сначала конечно загрузим её
var 
MyIcon:System.drawing.Icon;
MyForm:System.windows.forms.form;
begin
MyForm:=new Form; //Обозначим форму
MyIcon:=new Icon(GetResourceStream('MyImage.png')); //Достанем иконку
MyForm.Icon:=MyIcon; //Поставим иконку
System.windows.forms.Application.run(MyForm); //Запустим форму

#apptype windows
#reference 'System.Windows.Forms.dll'
uses
  System, 
  System.Windows.Forms,
  System.Net;
var w := new WebBrowser;
var bbr := new Form;
begin
w.Url := new System.Uri('http://www.google.ru/');
w.Dock := Dockstyle.Fill;
bbr.Controls.Add(w);
Application.Run(bbr);
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
uses
  System, 
  System.Windows.Forms,
  System.Net;
 
var
  w := new WebBrowser;
 
var
  bbr := new Form;
 
begin
  w.Url := new System.Uri('http://www.google.ru/');
  w.Dock := Dockstyle.Fill;
  bbr.Controls.Add(w);
  Application.Run(bbr);
end.

uses graphABC;
begin
//размер окна
setwindowsize(600,500);
//ушки
setbrushcolor(clGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clBisque);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
//голова
setbrushcolor(clGray);
Ellipse(100,430,500,130);
//глаза
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
//мордочка 
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,320);
// усы
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
 
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
//брови 
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
 
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
 
end.

uses graphABC;
var i: integer;
begin
//размер окна
setwindowsize(300,400);
//тело
setbrushcolor(clskyblue);
ellipse(30,130,150,320);
ellipse(150,130,270,320);
setbrushcolor(clblue);
ellipse(50,100,250,350);
circle(150,100,70);
setbrushcolor(clskyblue);
ellipse(70,170,230,340);
//глаза
ellipse(110,60,145,105);
ellipse(155,60,190,105);
setbrushcolor(clwhite);
ellipse(115,50,145,100);
ellipse(155,50,185,100);
setbrushcolor(clskyblue);
circle(130,80,10);
circle(170,80,10);
setbrushcolor(clblack);
circle(130,80,5);
circle(170,80,5);
//клюв
setbrushcolor(clyellow);
circle(150,130,20);
setpenwidth(3);
arc(150,142,17,0,180);
//чубчик
setpencolor(clblue);
for i:=-5 to 5 do
    line(150,50,150+(i*6),10);
//лапки
setpenwidth(1);
setpencolor(clblack);
setbrushcolor(clyellow);
for i:=-3 to 3 do
    if i<>0 then
       ellipse(145+(i*20),350,165+(i*20),370);
end.

uses graphABC;
begin
//размер окна
setwindowsize(500,400);
 
setbrushcolor(clgray);
//хвост
circle(450,300,20);
//тело
ellipse(250,200,450,350);
//уши
ellipse(190,50,250,200);
ellipse(260,50,320,200);
 
setbrushcolor(clsilver);
ellipse(200,60,240,200);
ellipse(270,60,310,200);
//лапки и голова
setbrushcolor(clgray);
circle(260,210,70);
circle(260,340,25);
circle(300,340,25);
circle(410,320,45);
ellipse(350,370,440,340);
//мордочка
setbrushcolor(clsilver);
circle(275,240,20);
circle(235,240,20);
setbrushcolor(clblack);
circle(255,230,10);
//глаза
setbrushcolor(clwhite);
circle(280,200,15);
circle(230,200,15);
setbrushcolor(clblack);
circle(275,200,7);
circle(225,200,7);
//морковь
line(20,150,80,350);
line(150,150,80,350);
line(20,150,150,150);
floodfill(80,200,clred);
line(20,20,60,150);
line(160,20,120,150);
line(20,20,82,100);
line(160,20,80,100);
floodfill(80,140,clgreen);
end.

uses graphabc;
var i,j: byte;
 
begin
setwindowsize(400,400);
for i:=1 to 8 do
  for j:=1 to 8 do
   //если счетчик для i и для j четен, или и тот и другой нечетны одновременно - черная клетка 
   if (odd(i) and odd(j)) 
    or ((not (odd(i))) and (not (odd(j)))) then
      begin
      setbrushcolor(clblack);
      rectangle(i*50-50,j*50-50,i*50,j*50);
      end;
end.

uses graphABC;
var x1,y1,x2,y2: integer;
 
//процедура рисования травы
procedure Trava;
begin
for var i:=1 to 1000 do
    begin
    x1:=random(801);
    y1:=random(251)+390;
    x2:=x1+random(10)-5;
    y2:=y1+random(20)+10;
    setpencolor(rgb(random(255),255,random(255)));
    line(x1,y1,x2,y2);
    end;
end;
 
//процедура рисования облака 
procedure Oblako(x2,y2: integer);
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(x2,y2-20,x2+100,y2);
circle(x2,y2-10,10);
circle(x2+100,y2-10,10);
circle(x2+20,y2-20,20);
circle(x2+80,y2-20,20);
circle(x2+50,y2-30,20);
end;
 
//процедура рисования забора 
procedure Zabor;
begin
x1:=00;
setbrushcolor(clyellow);
for var i:=1 to 20 do
    begin
    rectangle(x1,450,x1+20,600);
    x1:=x1+40;
    end;
rectangle(0,510,800,530);
end;
 
//процедура рисования яблок 
procedure Yabloki;
begin
for var i:=1 to 10 do
    begin
    x1:=random(141)+600;
    y1:=random(201)+200;
    setpencolor(clred);
    setbrushcolor(clred);
    circle(x1,y1,10);
    setpencolor(clyellow);
    setbrushcolor(clyellow);
    circle(x1-4,y1-4,5);
    end;
end;
//процедура рисования дыма 
procedure Dym(x1,y1,x2,y2: integer);
begin
setpencolor(clsilver);
setbrushcolor(clsilver);
ellipse(x1,y1,x2,y2);
setpencolor(clgray);
setbrushcolor(clgray);
ellipse(x1+5,y1+5,x2-15,y2-15);
end;
 
 
begin
//размер окна
setwindowsize(800,600);
//фон
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,800,400);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,400,800,600);
Trava;
Oblako(-50,200);
Oblako(200,100);
Oblako(500,200);
Oblako(600,130);
//дом
setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50,300,250,500);
rectangle(250,500,500,300);
line(50,300,150,200);
line(150,200,250,300);
line(400,200,500,300);
line(150,200,400,200);
floodfill(150,250,clsilver);
floodfill(300,250,clMaroon);
setbrushcolor(clcyan);
rectangle(110,360,190,440);
rectangle(280,360,360,440);
setbrushcolor(clSilver);
rectangle(280,180,320,230);
setbrushcolor(clMaroon);
rectangle(400,350,470,500);
setbrushcolor(clcyan);
circle(150,270,20);
setbrushcolor(clBrown);
rectangle(650,400,670,500);
//яблоня
setbrushcolor(clgreen);
ellipse(570,150,750,420);
Yabloki;
Zabor;
Dym(320,130,380,170);
Dym(400,100,480,150);
Dym(490,40,600,100);
Dym(630,0,750,70);
end..

uses graphABC;
 
//процедура рисования цветка
procedure Zv (x,y: integer; cl:color);
var k: integer;
begin
//коэффициент размера лепестка
k:=0;
for var i:=1 to 10 do
    begin
//"задние" лепестки
    setpencolor(cl);
    setpenwidth(4);
    setbrushcolor(cl);
    circle(x+k div 2+k div 4,y+k div 2+k div 4,k div 2);
    circle(x+k div 2+k div 4,y-k div 2-k div 4,k div 2);
    circle(x-k div 2-k div 4,y+k div 2+k div 4,k div 2);
    circle(x-k div 2-k div 4,y-k div 2-k div 4,k div 2);
//сердцевинка
    setbrushcolor(clyellow);
    circle(x,y,k div 2);
//"передние" лепестки
    setbrushcolor(cl);
    circle(x-k,y,k div 2);
    circle(x+k,y,k div 2);
    circle(x,y-k,k div 2);
    circle(x,y+k,k div 2);
    k:=k+3;
    end;
end;
 
begin
//размер окна
setwindowsize(360,320);
//тень вазы
setpencolor(clblack);
setbrushcolor(clblack);
ellipse(100,270,250,300);
//ваза
setpencolor(clskyblue);
setbrushcolor(clskyblue);
rectangle(150,150,200,250);
circle(175,250,50);
//листва
setpencolor(clgreen);
setbrushcolor(clgreen);
circle(100,150,20);
circle(150,100,20);
circle(220,40,20);
circle(260,100,20);
circle(120,50,20);
circle(210,170,20);
//цветы
Zv (100,100,clred);
Zv (170,50,clmaroon);
Zv (210,80,clred);
Zv (230,130,clFuchsia);
Zv (160,150,clPurple);
end.

uses graphABC;
 
begin
//блокировка рисования в гр.окне, чтобы убрать мерцание при анимации
lockdrawing;
//заголовок и размер окна
SetWindowTitle('С Новым Годом!');
setwindowsize(550,400);
//бесконечный цикл анимации
repeat
//очистить окно
clearwindow;
//фон
setpencolor(clblack);
setbrushcolor(clblack);
rectangle(0,0,600,150);
setpencolor(clnavy);
setbrushcolor(clnavy);
rectangle(0,150,600,250);
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(0,250,600,400);
//ель
setpencolor(clgreen);
line(300,350,400,50);
line(400,50,500,350);
line(500,350,300,350);
floodfill(400,100,clgreen);
floodfill(400,200,clgreen);
floodfill(400,300,clgreen);
//ствол ели
setpencolor(clbrown);
setbrushcolor(clbrown);
rectangle(380,350,420,380);
//снеговик
setpencolor(clSkyBlue);
setbrushcolor(clSkyBlue);
circle(110,290,60);
circle(110,210,40);
circle(63,232,10);
circle(156,232,10);
//мордашка снеговика
setpencolor(clblack);
setbrushcolor(clblack);
circle(110,250,10);
circle(110,280,10);
circle(90,200,5);
circle(130,200,5);
 
setpencolor(clred);
setbrushcolor(clred);
circle(110,210,10);
//текст
setbrushcolor(clblack);
SetFontColor(clyellow);
SetFontSize(30);
SetFontName('Times');
TextOut(20,20,'С Новым Годом!!!');
//снег
for var j:=1 to 100 do
    begin
    setbrushcolor(clwhite);
    setpencolor(clwhite);
    circle(random(550),random(400),3);
    end;
//задержка и перерисовка
sleep(100);
redraw;
until false;
 
end.

uses GraphABC;
var x0,y0, x,y,  R, min, sec,chas: integer;
 
begin
  //блокировка рисования в гр.окне, для устранения мерцания при анимации
  lockdrawing;
  //размер окна
  SetWindowSize(700,600);
  //начальные значения: центр цифреблата, значение минут и секунд
  x0:=350; y0:=350; min:=0; sec:=0;
  //бесконечный цикл
  repeat
  //очистить окно
    ClearWindow;
    //корпус и циферблат часов
    SetPenWidth(5);
    setpencolor(clblack);
    rectangle(20,150,680,550);
    arc(350,130,100,0,180);
    line(250,130,450,130);
    circle(350,350,170);
    floodfill(30,160,clgreen);
    floodfill(350,50,clgray);
    setbrushcolor(clblack);
    rectangle(330,130,370,150);
    setbrushcolor(clgreen);
    rectangle(100,550,600,570);
    setbrushcolor(clwhite);
    rectangle(330,10,370,30);
    //надписи
    setfontsize(20);
    setfontcolor(clblack);
    setfontstyle(fsbold);
    textout(335,190,'12');
    textout(343,480,'6');
    textout(485,340,'3');
    textout(205,340,'9');
    //вычисляем положение стрелок и рисуем их
    sec:=sec+1; min:= sec div 60;chas:=min div 60;
    x:=x0+Round(120*sin(Pi*sec/30));
    y:=y0-Round(120*cos(Pi*sec/30));
    SetPenWidth(3);
    setpencolor(clblue);
    Line(x0, y0, x, y);
    x:=x0+Round(100*sin(Pi*min/30));
    y:=y0-Round(100*cos(Pi*min/30));
    SetPenWidth(7);
    setpencolor(cllime);
    Line(x0, y0, x, y);
    x:=x0+Round(60*sin(Pi*chas/30));
    y:=y0-Round(60*cos(Pi*chas/30));
    SetPenWidth(10);
    setpencolor(clred);
    Line(x0, y0, x, y);
    //задержка, перерисовка
    sleep(1000);
 
    Redraw;
  until false;
end.

uses graphABC;
var vx,vy: integer;
//процедура рисования взлета ракеты
procedure Vzlet(x,k: integer);
var i,y: integer;
begin
//начальные координаты петарды
y:=500;
for i:=1 to 100 do
    begin
    //рисуем петарду и след
    setbrushcolor(clwhite);
    setpencolor(clwhite);
    circle(x,y,5);
    //стираем остатки следа
    if i>10 then
       begin
       setbrushcolor(clblack);
       setpencolor(clblack);
       circle(x-(k*10),y+(4*10),6);
       end;
    y:=y-4;
    x:=x+k;
    sleep(10);
    end;
end;
//процедура взрыва петарды (6 раз перерисовываются постепенно уменьшающиеся, осыпающиеся цветные вспышки)
procedure Bach (x,y: integer);
var i,j,kx,ky: integer;
begin
for j:=1 to 6 do 
    begin
    //очистить окно
    clearwindow(clblack);
    //100 случайных вспышек в пределах круга
    for i:=1 to 100 do
        begin
        setbrushcolor(rgb(random(255),random(255),random(255)));
        setpencolor(rgb(random(255),random(255),random(255)));
        repeat
        kx:=random(200)-100;
        ky:=random(200)-100;
        until sqr(kx)+sqr(ky)<sqr(100);
        circle(x+kx,y+ky,6-j);
        sleep(1);
        end;
    y:=y+10;
    sleep(50);
    end;
end;
//основная программа
begin
//размер окна, очистить окно
setwindowsize(800,500);
clearwindow(clblack);
//бесконечный цикл
repeat
vx:=random(400)+200;
vy:=random(6)-3;
Vzlet(vx,vy);
Bach (vx+(vy*100),random(100)+100);
until false;
end.

uses graphABC;
var x,y,kx,ky,v: integer;
    b: boolean;
//процедура рисования фона, бильярндный стол
procedure Fon;
begin
clearwindow;
setbrushcolor(clbrown);
rectangle(10,10,490,390);
setbrushcolor(clgreen);
rectangle(20,20,480,380);
setbrushcolor(clbrown);
circle(30,30,20);
circle(470,370,20);
circle(470,30,20);
circle(30,370,20);
end;
//процедура рисования шарика и коррекции направления
procedure Shar(var xx,yy,kkx,kky: integer);
begin
if (xx<35) or (xx>465) then kkx:=kkx*(-1); //если шарик соприкоснулся с бортом, направление меняется на противоположное
if (yy<35) or (yy>365) then kky:=kky*(-1);
xx:=xx+kkx;
yy:=yy+kky;
setbrushcolor(clwhite);
circle(xx,yy,10);
end;
 
begin
lockdrawing;
//случайным образом генерирует направление и скорость шарика
v:=random(4);  
case v of
0: kx:=1;
1: kx:=2;
2: kx:=-1;
3: kx:=-2;
end;
v:=random(4);
case v of
0: ky:=1;
1: ky:=2;
2: ky:=-1;
3: ky:=-2;
end;
//начальные координаты
x:=250;
y:=200;
//цикл будет повторяться до попадания в лузу
repeat
Fon;
Shar(x,y,kx,ky);
sleep(1);
redraw;
//проверяем условие попадания в лузу
b:=((x<45) and (y<45)) or ((x<45) and (y>355))
 or ((x>455) and (y<45)) or ((x>455) and (y>355));
until b;
end.

uses graphabC;
var x,y,ky: integer;
//процедура рисования облака
procedure Oblako(x,y: integer);
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(x,y-20,x+100,y);
circle(x,y-10,10);
circle(x+100,y-10,10);
circle(x+20,y-20,20);
circle(x+80,y-20,20);
circle(x+50,y-30,20);
end;
//процедура рисования птицы
procedure Ptiza (xx,yy: integer);
begin
setbrushcolor(clsilver);
rectangle(xx+35,115,xx+60,125);
rectangle(xx-80,115,xx-30,125);
rectangle(xx-70,105,xx-20,115);
rectangle(xx-70,125,xx-20,135);
ellipse(xx-40,100,xx+40,140);
line(xx+80,115,xx+100,120);
line(xx+80,125,xx+100,120);
circle(xx+70,120,15);
floodfill(xx+90,120,clred);
//крылья
setbrushcolor(clgray);
rectangle(xx-20,120,xx+20,120+yy);
setbrushcolor(clblack);
circle(xx+75,120,5);
end;
 
begin
//размер окна
setwindowsize(800,200);
//запрет рисования в гр.окне
lockdrawing;
y:=0;
ky:=-2;
//бесконечный цикл
repeat
x:=-80;
while x<=900 do
    begin
    //очистить экран
    clearwindow(clskyblue);
    //облака
    Oblako(200,50);
    Oblako(450,80);
    //птица
    Ptiza (x,y);
    //вычисление следующих координат
    y:=y+ky;
    //при необходимости - смена направления взмаха крыла
    if (y>50) or (y<-50) then ky:=ky*(-1);
    redraw;
    inc(x,5);
    end;
until false;
end.

uses GraphABC;
begin
  SetWindowSize(800,600);
  Coordinate.Origin := Window.Center; // Координаты начала координат - в центре окна
  Coordinate.SetMathematic;           // устанавливаем обычную математическую систему координат
  line(-400,0,400,0);                 //строим оси координат
  line(0,-300,0,300);
  var a: real :=0;
 Repeat
    var r:=15;                   
      var x:=round(r*10*Cos(a)*Cos(a)*Cos(a));  // вычисляем функцию, переводим в "экранные"
      var y:=round(r*10*Sin(a)*Sin(a)*Sin(a));  // координаты и округляем. Деление на 10 позволяет уменьшить радиус
      PutPixel(x,y,ClMaroon);             // рисуем точку на графике
      a:=a+0.001
  until a>=180
end.

uses GraphABC;
begin
  SetWindowSize(800,600);
  Coordinate.Origin := Window.Center; // Координаты начала координат - в центре окна
  Coordinate.SetMathematic;           // устанавливаем обычную математическую систему координат
  line(-400,0,400,0);                 //строим оси координат
  line(0,-300,0,300);
  var a: real :=0;
  var n:=5;
 Repeat
    var r:=2*sin(n*a);             // вычисляем значение функции
      var x:=round(r*100*Cos(a));  // переводим в "экранные"
      var y:=round(r*100*Sin(a));  // координаты и округляем. Деление на 10 позволяет уменьшить радиус
      PutPixel(x,y,ClMaroon);             // рисуем точку на графике
      a:=a+0.001
  until a>=180
end.