Урок №18

Выполнение индивидуального задания и его защита

План:

1. Практическая работа «Индивидуальная проектная работа»

Bashni

Uses crt, Graph;

Var P:pointer;

Size:Word;

X1,Y1:Word;

gd,gm: integer;

Begin gd:=detect;

InitGraph(gd,gm,'');

IF GraphResult<>0 THEN Halt(1);

SetViewPort(0,0,640,80,TRUE);

ClearViewPort;

SetBkColor(black);

SetColor(yellow);

SetLineStyle(0,1,Thickwidth);

Rectangle(120,400,200,440);

Size:=ImageSize(120,400,200,440);

GetMem(p,Size);

GetImage(120,400,200,440,P^);

Y1:=440;

WHILE Y1>=40 DO begin X1:= 120;

begin PutImage(X1,Y1,p^,CopyPut);

Delay(59000);

X1:=X1+80

end;

Y1:=Y1-40 end; x1:=x1-160;WHILE X1<=280 DO

begin

PutImage(X1,Y1,p^,CopyPut);

{CopyPut = 0 - режим копирования изображения}

X1:=X1 +160

end;

setfillstyle(8,red);

Bar(200,40,280,500); Bar(40,40,120,500);

{добавляем надпись}

SetColor(11);SETTEXTSTYLE(6,7,6);

outtextxy(350,100,'BASHNYA!');

Readln;

CloseGraph

End.

Text

Uses crt, Graph;

Var P:pointer;{указатель на область}

Size:Word; {размер области}

X1,Y1:Word; {координаты нач точки}

gd,gm: integer;

Begin gd:=detect;

InitGraph(gd,gm,'');

SetColor(11);SETTEXTSTYLE(4,0,7);

outtextxy(20,200,'Turbo Pascal ');

Readln;

CloseGraph

End
cnegovik