InitGraph(Gd,Gm,''); {Vklyuchenie graficheskogo rezhima}

if GraphResult <> 0 then Halt(1);

{Vklyuchenie zvukovogo signala}

Sound(5000);

Delay(2000);

NoSound;

SetFillStyle(1,15);

OutTextXY(280,25,'Graphic mode');

Repeat

SetFillStyle(1,15);

FillEllipse(x,y,R,R);

Delay(time); { Zaderzhka programmy}

SetColor(0); { Zadanie chernogo cveta}

Circle(x,y,R);

SetFillStyle(1,0);

FillEllipse(x,y,R,R);

x:=x+1;

y:=trunc((5/7)*x+(60/7));

if x>=590 then

begin

x:=50; {Esli dobralis' do nizhnego pravogo ugla,}

y:=50; { vozvrashaemsya nazad }

end;

Until KeyPressed;

CloseGraph; { Vyhod iz graficheskogo rezhima}

Sound(5000);

Delay(20000);

NoSound;

WriteLn('Vypolnil student gruppy IM-81 Pavlenko Roman');

WriteLn('Graphic mode closed. Press Enter for Exit');

ReadLn;

End.

Program n1;

Uses Graph,Crt;

Var

x,y,dx,time,delta,Gd,Gm: integer;

Begin

WriteLn ('Text mode');

WriteLn;

WriteLn ('Izobrazit na ekrane dvizhenie pryamoi ');

WriteLn ('sleva na pravo s umensheniem razmera');

WriteLn ('do seredini ekrana i s uvelicheniem');

WriteLn ('razmera ot seredini razmera do konca.');

WriteLn ;

WriteLn ;

WriteLn ;

WriteLn ('Press "Enter" to launch software...');

WriteLn ('Graphics mode');

Readln;

Gd := Detect;

InitGraph(Gd,Gm,''); {Vklyuchaem graficheskiy rezhim}

if GraphResult <> 0 then Halt(1);

Rectangle(0,0,GetMaxX,GetMaxY); {Ramka vokrug ekrana}

x:=320; y:=240; { Koordinaty centra}

delta:=10; { Velichina peremesheniya }

dx:=delta; { Velichina peremesheniya po X }

time:=10000; { Velichina zaderzhki }

Repeat

SetColor(15); { Zadanie nelogo cveta liniy }

Line(320,240,x,y); { Risovanie beloy pryamoy}

{ Smena napravleniya dvizheniya pri dostizhenii granic }

{ i vklyuchenie zvukovogo signala }

if x>=GetMaxX then { Praviy kray }

begin dx:=-delta; Sound(2000) end;

if x<=0 then { Leviy kray }

begin dx:= delta; Sound(4000); end;

Delay(time); { Zaderzhka vypolneniya }

NoSound;

SetColor(0); { Zadanie chernogo cveta }

Line(320,240,x,y); { Risovanie chernoy pryamoy}

x:=x+dx; { RAschet novyh koordinat }

{ Vyhod pri nazhatii lyuboy klavishi }

Until KeyPressed;

CloseGraph; { Vyhod iz graphicheskogo rezhima }

end;

begin

WriteLn ('zavershenie raboti v graphicheskom rezhime');

WriteLn ('Executed Student of the group BM-81');

WriteLn ('Dryomov Dimitriy');

readln;

end;

End.

Program Dots;

Uses Graph, Crt;

Var

x,x2,x3,dx,time,delta,Gd,Gm: integer;

Begin

dx:=-1;

x:=600;

x2:=600;

x3:=600;

time:=2000;

WriteLn('titulnik');

WriteLn('');

WriteLn('');

WriteLn('');

WriteLn('To initialize graphic mode press Enter.');

ReadLn;

Gd := Detect;

InitGraph(Gd,Gm,''); {Vklyuchenie graficheskogo rezhima}

if GraphResult <> 0 then Halt(1);

{Vklyuchenie zvukovogo signala}

Sound(5000);

Delay(20000);

NoSound;

Repeat

SetColor(10);

PutPixel(x,100,13);

PutPixel(x2,200,14);

PutPixel(x3,300,12);

if (x<0) then x:=640;

if (x2<0) then x2:=640;

if (x3<0) then x3:=640;

Delay(time); { Zaderzhka programmy}

SetColor(0);

PutPixel(x3,300,0);

PutPixel(x2,200,0);

PutPixel(x,100,0);

x:=x+3*dx;

x2:=x2+dx;

x3:=x3+2*dx;

Until KeyPressed;

CloseGraph; { Vyhod iz graficheskogo rezhima}

Sound(5000);

Delay(20000);

NoSound;

WriteLn('Graphic mode closed. Press Enter for Exit');

ReadLn;

End.

Program LineMove;

Uses Graph,Crt;

Var

x,y,dx,time,delta,Gd,Gm: integer;

Begin

WriteLn ('Федеральное агенство по образованию');

WriteLn ('Государственное образовательное учреждение высшего профессионального образования');

WriteLn ('"Курский государственный технический университет"');

WriteLn ('Кафедра Биомедицинской инженерии');

WriteLn ;

WriteLn ;

WriteLn ;

WriteLn ('Курсовая работа');

WriteLn ('"Графические возможности языка Pascal"');

WriteLn ;

WriteLn ;

WriteLn ('Выполнил студент Такой-то');

WriteLn ('Press "Enter" to launch software...');

ReadLn;

Gd := Detect;

InitGraph(Gd,Gm,''); {Vklyuchaem graficheskiy rezhim}

if GraphResult <> 0 then Halt(1);

Rectangle(0,0,GetMaxX,GetMaxY); {Ramka vokrug ekrana}

x:=320; y:=240; { Koordinaty centra}

delta:=10; { Velichina peremesheniya }

dx:=delta; { Velichina peremesheniya po X }

time:=10000; { Velichina zaderzhki }

Repeat

SetColor(15); { Zadanie nelogo cveta liniy }

Line(320,240,x,y); { Risovanie beloy pryamoy}

{ Smena napravleniya dvizheniya pri dostizhenii granic }

{ i vklyuchenie zvukovogo signala }

if x>=GetMaxX then { Praviy kray }

begin dx:=-delta; Sound(2000) end;

if x<=0 then { Leviy kray }

begin dx:= delta; Sound(4000); end;

Delay(time); { Zaderzhka vypolneniya }

NoSound;

SetColor(0); { Zadanie chernogo cveta }

Line(320,240,x,y); { Risovanie chernoy pryamoy}

x:=x+dx; { RAschet novyh koordinat }

{ Vyhod pri nazhatii lyuboy klavishi }

Until KeyPressed;

CloseGraph; { Vyhod iz graphicheskogo rezhima }

End.

Program LineMove;

Uses Graph, Crt;

Var

x,y,dy,dx,time,delta,radius,Gd,Gm: integer;

Begin

Gd := Detect;

InitGraph(Gd,Gm,'');

if GraphResult <> 0 then Halt(1);

Rectangle(0,0,GetMaxX,GetMaxY);

x:=100; y:=100;

delta:=10;

dx:=delta;

time:=10000;

Repeat

SetColor(15);

Line(300,300,x,y);

if x>=GetMaxX then

begin dx:=-delta; Sound(5000); end;

if x<=0 then

begin dx:= delta; Sound(4000); end;

Delay(time);

NoSound;

SetColor(0);

Line(300,300,x,y);

x:=x+dx;

Until KeyPressed;

CloseGraph;

End.