Програмування Pascal, Детальна інформація

Програмування Pascal
Тип документу: Курсова
Сторінок: 35
Предмет: Комп`ютерні науки
Автор: фелікс
Розмір: 176.9
Скачувань: 1243
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;

The online video editor trusted by teams to make professional video in minutes