Програмування Pascal, Детальна інформація
Програмування Pascal
{********************** Процедура "Про автора" *******************}
procedure about;
var str:string;
exit:boolean;
maxx:integer;
begin
exit:=false;
maxx:=getmaxx;
setfillpattern (full, black);
bar (11,11,maxx-21,254);
setcolor (green);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (white);
str:='Esc - вихiд.';
outtextxy (30,255,str);
settextstyle (defaultfont,horizdir,2);
setcolor (red);
str:='Курсова робота';
outtextxy (180,30,str);
settextstyle (defaultfont,horizdir,1);
setcolor (white);
str:='З дисциплiни:';
outtextxy (100,60,str);
setcolor (13);
str:='Основи програмування та алгоритмiчнi мови';
outtextxy (120,80,str);
setcolor (white);
str:='Виконав:';
outtextxy (100,100,str);
setcolor (13);
procedure about;
var str:string;
exit:boolean;
maxx:integer;
begin
exit:=false;
maxx:=getmaxx;
setfillpattern (full, black);
bar (11,11,maxx-21,254);
setcolor (green);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (white);
str:='Esc - вихiд.';
outtextxy (30,255,str);
settextstyle (defaultfont,horizdir,2);
setcolor (red);
str:='Курсова робота';
outtextxy (180,30,str);
settextstyle (defaultfont,horizdir,1);
setcolor (white);
str:='З дисциплiни:';
outtextxy (100,60,str);
setcolor (13);
str:='Основи програмування та алгоритмiчнi мови';
outtextxy (120,80,str);
setcolor (white);
str:='Виконав:';
outtextxy (100,100,str);
setcolor (13);
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021