Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

i, k, Leng, High: byte;

begin

Leng:=x2-x1;

High:=y2-y1;

Window(x1, y1, x1+Leng, y1+High);

Colour(c1);

ClrScr;

Window(1, 1, 80, 25);

if Double=True then Print(x1, y1, c1, 'Й') else Print(x1, y1, c1, 'Ъ');

for i:=1 to Leng do

·

„J

^„J

„J

^„J

if Double=True then Print(x1+i, y1, c1, 'Н') else Print(x1+i, y1, c1, 'Д');

if Double=True then Print(x2+1, y1, c1, '»') else Print(x2+1, y1, c1, 'ї');

for i:=1 to High do begin

if Double=True then Print(x1, y1+i, c1, 'є') else Print(x1, y1+i, c1, 'і');

if Double=True then Print(x2+1, y1+i, c1, 'є') else Print(x2+1, y1+i, c1, 'і');

end;

if Double=True then Print(x1, y2, c1, 'И') else Print(x1, y2, c1, 'А');

for i:=1 to Leng do

if Double=True then Print(x1+i, y2, c1, 'Н') else Print(x1+i, y2, c1, 'Д');

if Double=True then Print(x2+1, y2, c1, 'ј') else Print(x2+1, y2, c1, 'Щ');

if S<>'' then Print(x1+(Leng div 2)-(Length(S) div 2), y1, c2, ' '+S+' ');

end;

procedure menu_init(var m: menu);

begin

m.mains:=0;