Разработка программного обеспечения

setcolor(6);

line(250,25,250,75);delay(3000);

setcolor(6);

line(250,25,300,25);delay(3000);

setcolor(6);

line(250,50,300,50);delay(3000);

setcolor(6);

line(300,25,300,50);delay(3000);

setcolor(10);

line(350,25,350,75);delay(3000);

setcolor(10);

line(350,25,400,25);delay(3000);

setcolor(10);

line(350,50,400,50);delay(3000);

setcolor(10);

line(350,75,400,75);delay(3000);

setcolor(10);

line(400,50,400,75);delay(3000);

setcolor(8);

line(450,25,500,25);delay(3000);

setcolor(8);

line(450,25,450,75);delay(3000);

setcolor(8);

line(500,25,500,75);delay(3000);

setcolor(8);

line(450,75,500,75);delay(3000);

setcolor(9);

line(25,350,25,400);delay(3000);

setcolor(9);

line(25,350,75,350);delay(3000);

setcolor(9);

line(75,350,75,400);delay(3000);

setcolor(13);

line(125,350,100,400);delay(3000);

setcolor(13);

line(125,350,150,400);delay(3000);

setcolor(13);

line(113,375,137,375);delay(3000);

setcolor(12);

line(175,350,225,350);delay(3000);

setcolor(12);

line(175,350,175,400);delay(3000);

setcolor(12);

line(175,400,225,400);delay(3000);

setcolor(2);

line(250,350,250,400);delay(3000);

setcolor(2);

line(250,375,300,350);delay(3000);

setcolor(2);

line(250,375,300,400);delay(3000);

setcolor(11);

line(350,350,325,400);delay(3000);

setcolor(11);

line(350,350,375,400);delay(3000);

setcolor(11);

line(337,375,363,375);delay(3000);

setcolor(14);

line(425,350,400,400);delay(3000);

setcolor(14);

line(425,350,450,350);delay(3000);

setcolor(14);

line(450,350,450,400);delay(3000);

setcolor(5);

line(475,350,475,400);delay(3000);

setcolor(5);

line(475,375,525,375);delay(3000);

setcolor(5);

line(475,400,525,400);delay(3000);

setcolor(5);

line(525,375,525,400);delay(3000);

delay(5000);

end;

READLN;

end; 

procedure zad; {  Анимация  "Распылитель";}

label 1;{ описание метки}

var m,d,x,i,y,p: integer;{раздел описания переменных}

a,ch:char;

c:char;

BEGIN

d:=detect; InitGraph (D,M,'d:\bp\bin');{подключение графического режима}

IF GraphResult <> grOK THEN Halt (1);

Setcolor(1+random(15-1+1));{цвет прямоугольника}

Rectangle(90,90,490,390);{вывод прямоугольника на экран}

while c<>#27 do begin {условие выхода из проседуры}

SetViewPort (100,100,540,380,clipon);{устанавливает текущее окно для графического вывода}

1:repeat

    i:= random (10); { изменение цвета точки случайным образом }

    y:= random (540);{ изменение координаты (у) точки случайным образом}

    x:= random(380);{изменение цвета координаты(х)точки случайным образом }

    putpixel(x,y,i); {вывод точек на экран}

    delay (10);{задержка}

until keypressed;{преостановление работы программы при нажатии любой клавишей}

    if a='x'then goto 1;{возвращение к продолжению программы}

 CLEARDEViCE;{очистка экрана в графическом режиме}

CLOSEGRAPH;{закрытие графического режима}

C:=READKEY;

END;

end; 

procedure op; {.Анимация "Олимпийский символ"     }

const {описание констант}

patt1: FillPatternType= ($49,$92,$49,$92,$49,$92,$49,$92);{постоянный шаблон заполнения}

patt2: FillPatternType= ($00,$18,$24,$42,$42,$24,$18,$00); {постоянный шаблон заполнения}

var{блок описания переменных}

d,m,e,i,n: Integer;

C:CHAR;

begin

d := Detect; InitGraph(d, m, 'd:\bp\bin');{подключение графического режима}

e := GraphResult; if e <> grOk then{условие: если нет ошибок, то продолжать программу}

WriteLn(GraphErrorMsg(e))

else

begin

if d=CGA then {установка адаптера}

SetGraphMode (0) ;{устанавливает новый графический режим и очищает экран}

SetFillStyle(UserFill,White);{установка стиля и цвета закраски}

SetFillPattern(Patt1,1); {левый верхний квадрат}

Bar(0,0,GetMaxX div 2, GetMaxY div 2); {вывод закрашенного прямоугольника}

SetFillPattern(Patt2,2); {правый нижний квадрат}

Bar(GetMaxX div 2,GetMaxY div 2,GetMaxX,GetMaxY);

{if ReadKey=#0 then d := ord(ReadKey);}

WHILE C<>#27 DO BEGIN

FOR I:=1 TO 10 DO BEGIN

setcolor(1+ random(14-1+1)); {вывод окружностей}

circle(225,150,100); circle(225,150,99);circle(225,150,98); delay(3000);

circle(225,150,50); circle(225,150,49); delay(3000);

circle(225,150,25); delay(3000);

setcolor(1+ random(14-1+1));

circle(375,150,100); circle(375,150,99); circle(375,150,98);delay(3000);

circle(375,150,50); circle(375,150,49); delay(3000);

circle(375,150,25); delay(3000);

setcolor(1+ random(14-1+1));

circle(150,300,100); circle(150,300,99);circle(150,300,98); delay(3000);

circle(150,300,50); circle(150,300,49); delay(3000);

circle(150,300,25); delay(3000);

setcolor(1+ random(14-1+1));

circle(300,300,100); circle(300,300,99);circle(300,300,98); delay(3000);

circle(300,300,50); circle(300,300,49); delay(3000);

circle(300,300,25); delay(3000);

setcolor(1+ random(14-1+1));

circle(450,300,100); circle(450,300,99);circle(450,300,98); delay(5000);

circle(450,300,50); circle(450,300,49); delay(5000);

circle(450,300,25); delay(5000);END;

C:=READKEY;

end;

end;

CloseGraph;{закрытие графического режима}

end; 

procedure ppp1; { Анимация "Исчезновение"    }

var{блок описания переменных}

d, r, e : Integer;

i: integer;

begin

d := Detect; InitGraph(d, r, 'd:\bp:bin'); {инициализация графики}

e := GraphResult; if e <> grOk then

WriteLn(GraphErrorMsg(e))

else

begin

          for i:=1 to maxint do

      putpixel(random(632)+3,random(466)+3,random(120)); {}

          rectangle(3,3,634,470);{вывод прямоугольника белого цвета заполненный цветными точками}

d := GetMaxX div 4;  {вывод прямоугольника в центре экрана}

r := GetMaxY div 4;

Rectangle(d,r,3*d,3*r);

SetViewPort(d+1,r+1,3*d-1,3*r-1,ClipOn);{установка текущего окна для графического режима}

repeat

for i:=1 to maxint do

putpixel(random(635),random(469),random(2)-7);

        putpixel(random(635),random(469),random(120)); 

SetFillStyle(Random(12), Random(succ(GetMaxColor)));{установка стиля и цвета закраски}

SetColor (Random(succ(GetMaxColor)));

Sector(Random(GetMaxX div 2),Random(GetMaxY div 2),

Random(360),Random(360),Random(GetMaxX div 5),

Random(GetMaxY div 5));

FillEllipse (Random (GetMaxX div 2),

Random(GetMaxY div 2),Random(GetMaxX div 5),

Random(GetMaxY div 5))

until KeyPressed;

if ReadKey=#0 then d := ord(ReadKey);delay(maxint);

end

end; 

procedure menu; { процедура вывода меню на экран }

label 10; {раздел описания меток}

type punkt=record {раздел описания новых типов}

x:integer;

s:string[50]; end; 

const{блок описания констант}

msg1='Выберите пункт';

msg2='Управление производится кнопками';

var mas:array [1..7] of punkt; {}

man:array [1..7] of punkt;

nr,p:integer;

ch,c:char; 

begin

     textbackground(BLUE);  clrscr; {}

     mas[1].x:=6; mas[1].s:='1. Анимация"Турбо Паскаль"   ';

     

  mas[2].x:=8; mas[2].s:='2. Анимация  "Распылитель";

  mas[3].x:=10;mas[3].s:='3. Анимация "Олимпийский  символ"     ';

  mas[4].x:=12;mas[4].s:='4.  Анимация "Исчезновение"    ';