Арканоид на Паскале
p; assign(f_s,'levelslevel'+s+'.den');
erase(f_s);
rename(f,'levelslevel'+s+'.den');
exit;
end;
end;
end;
until false;
end;
var j:1..494;
begin
{for j:=1 to 494 do
a[j]:=0;}
i:=1;
randomize;
text_na_ekran;
initgr;
build_level;
mouseoff;
closegraph;
end.
Список используемой литературы:
1) Ян Белецкий «Турбо Паскаль с графикой для персональных компьютеров»
2) Walasek J.Konwersacyjne otoczenie programowe Pascala. WNT, Warsawa
3) Turbo Tutor. Borland International. Scotts Valley, California
4) Cherry G. Pascal Programming Structures. Reston Publishing Company.
Reston, Virginia
| | скачать работу |
Арканоид на Паскале |