Курсовая работа / Курс / Волошко / GRAF

unit graf;
interface
uses crt,graph;
var gd,gm:integer;
errorcode:integer;
procedure mygraphlnit;
procedure vstyp;
procedure bb;
implementation
procedure mygraphlnit;
begin
gd:=detect;
initgraph(gd,gm,'');
errorcode:=graphresult;
if errorcode<>grok then
begin
write('Error',grapherrormsg(errorcode));
writeln('End');
halt(1);
end;
end;
procedure vstyp;
begin
clrscr;
mygraphlnit;
setcolor(3);
settextstyle(0,0,2);
setfillstyle(1,green);
floodfill(320,240,3);
MoveTo(230,200);
setcolor(Red);
OutText('Fail zapisei');
OutTextXY(140,220,'zda4i sesii stydentami');
settextstyle(0,0,1);
setcolor(0);
OutTextXY(280,260,'Variant 5');
OutTextXY(460,420,'by Voloshko Alexander');
OutTextXY(280,460,'Sumy 2012');
readkey;
closegraph;
end;
procedure bb;
begin
clrscr;
mygraphlnit;
setcolor(14);
setfillstyle(1,8);
floodfill(320,240,14);
settextstyle(0,0,2);
OutTextXY(140,200,'Spasibo za pol`zovanie');
readkey;
closegraph;
end;
end.