Контрольная работа: Среда программирования программы Borland Pascal 70
begin
for j:=5 to 1000 do
Delay(5);
PutPixel(random(640),random(480),15);
end;
x:=325; y:=225;
for i:=1 to 3000 do
begin
Delay(5);
for j:=5 to 1000 do
SetColor(random(16));
Line (x,y,random(800),random(600));
end;
for i:=1 to 100 do
begin
SetTextStyle(0,0,3);
SetColor(0);
OutTextxy(110,140,'ДОБРО ПОЖАЛОВАТЬ');
OutTextxy(140,170,'В ТЕСТИРУЮЩУЮ');
OutTextxy(160,200,'ЛАБАРАТОРИЮ');
OutTextxy(170,250,'ПРОФЕССОРА');
SetTextStyle(0,0,4);
SetColor(15);
OutTextxy(150,300,'АЛХИМИКУСА');
end;
SetFillStyle(1,0);
Bar(0,0,GetMaxx,GetMaxy);
end;
End .