Помощь - Поиск - Пользователи - Календарь
Полная версия: Японский кроссворд.....
Форум «Всё о Паскале» > Pascal, Object Pascal > Написание игр
ERIK
Здрасте, собственно такая проблема, задали мне решить задачку по программированию, реализовать нада игру, в которой игрок должен разгодать японский кроссворд, сделать это нада на Паскале ! Игра должна содержать меню ну и собственно процесс решения !
Я программирование вообще не знаю, я смог реализовать только это:
program ERIK;
uses crt, graph;
const r=11;
var p: 0..1; a,b: array[0..r,0..r] of 0..1;
i,j,n,k1,k2,ss,x,y,gm,gd:integer; c:char;
begin
detectgraph(i,j); initgraph(i,j,'c:/bp/bgi');
begin
gm:=vgahi; setgraphmode(gm); setlinestyle(0,0,1); setcolor(4);
for i:=0 to r-1 do
begin
line(20+i*20,20,20+i*20,r*20);
line(20,20+i*20,r*20,20+i*20);
end;
x:=10; y:=10;
repeat
c:=readkey; if c=#0 then c:=readkey;
case c of
#72 : begin
setcolor(0); circle(x,y,2); y:=y-20; setcolor(15); circle(x,y,2);
end;

#80 : begin
setcolor(0); circle(x,y,2); y:=y+20; setcolor(15); circle(x,y,2);
end;

#75 : begin
setcolor(0); circle(x,y,2); x:=x-20; setcolor(15); circle(x,y,2);
end;

#77 : begin
setcolor(0); circle(x,y,2); x:=x+20; setcolor(15); circle(x,y,2);
end;

#13 : begin
floodfill(x,y,4); a[(x-5) div 10,(y-5) div 10]:=1;
b[(x-5) div 10,(y-5) div 10]:=1;
end;

#32 : begin
setfillstyle(1,5); bar(x-9,y-9,x+9,y+9);
a[(x-5) div 10,(y-5) div 10]:=0;
b[(x-5) div 10,(y-5) div 10]:=0;
setfillstyle(1,15);
end;
end; {case}
until c=#27;
setcolor(0); circle(x,y,2);
end;
Пожалуйста помогите очень срочно нада, заранее большое СПАСИБО !!!
Michael_Rybak
Если ты совсем не знаешь программирования, как же ты смог *это* реализовать?

Учись, разбирайся и приходи с конкретными вопросами.
Michael_Rybak
И вообще, врать нехорошо.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.