Програмування Pascal, Детальна інформація
Програмування Pascal
setcolor (green);
setfillpattern (full, blue);
bar3d (10,10,maxx-20,265,10,topon);
setfillpattern (full, green);
bar (180,10,181,265);
setfillpattern (full, black);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (yellow);
setfillpattern (full,black);
bar3d (40,40,150,65,0,topon);
bar3d (40,80,150,105,0,topon);
bar3d (40,120,150,145,0,topon);
bar3d (40,160,\x3531\x2C30\x3831\x2C35\x2C30\x6F74\x6F70\x296E\x0D3B††\x6162\x3372\x2064\x3428\x2C30\x3032\x2C30\x3531\x2C30\x3232\x2C35\x2C30\x6F74\x6F70\x296E\x0D3B††\x6573\x6374\x6C6F\x726F\x2820\x3531\x3B29
outtextxy (50,50,'ЗАДАЧА № 1');
outtextxy (50,90,'ЗАДАЧА № 2');
outtextxy (50,130,'ЗАДАЧА № 3');
outtextxy (50,170,'ПРО АВТОРА');
outtextxy (50,210,'ВИХIД В DOS');
str:=('Клавiшами '#24#25' виберiть потрiбний пункт меню; ENTER - пiдтвердити вибiр.');
outtextxy (30,255,str);
end;
{******************** Эффект переливающихся букв ****************}
procedure flash (x,y,x1,y1,bk,oc:integer);
var c,t,xps,yps,pixcolor:integer;
begin
t:=0;
repeat
t:=t+1;
if t=16 then t:=0;
if t=bk then t:=t+1;
setfillpattern (full, blue);
bar3d (10,10,maxx-20,265,10,topon);
setfillpattern (full, green);
bar (180,10,181,265);
setfillpattern (full, black);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (yellow);
setfillpattern (full,black);
bar3d (40,40,150,65,0,topon);
bar3d (40,80,150,105,0,topon);
bar3d (40,120,150,145,0,topon);
bar3d (40,160,\x3531\x2C30\x3831\x2C35\x2C30\x6F74\x6F70\x296E\x0D3B††\x6162\x3372\x2064\x3428\x2C30\x3032\x2C30\x3531\x2C30\x3232\x2C35\x2C30\x6F74\x6F70\x296E\x0D3B††\x6573\x6374\x6C6F\x726F\x2820\x3531\x3B29
outtextxy (50,50,'ЗАДАЧА № 1');
outtextxy (50,90,'ЗАДАЧА № 2');
outtextxy (50,130,'ЗАДАЧА № 3');
outtextxy (50,170,'ПРО АВТОРА');
outtextxy (50,210,'ВИХIД В DOS');
str:=('Клавiшами '#24#25' виберiть потрiбний пункт меню; ENTER - пiдтвердити вибiр.');
outtextxy (30,255,str);
end;
{******************** Эффект переливающихся букв ****************}
procedure flash (x,y,x1,y1,bk,oc:integer);
var c,t,xps,yps,pixcolor:integer;
begin
t:=0;
repeat
t:=t+1;
if t=16 then t:=0;
if t=bk then t:=t+1;
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021