| Автор | DELPHI 7 |
|---|
прошу минут 10 подержать тему в общаке.
вот этот лабиринт,мне надо как-то двигать '$' а как? #-препятствие
%-клад.
$-это тот кем ходишь.
Суть в том что надо передвигать $ к % обходя #. Начало проги написано прошу помочь её дописать ,желательно не очень сложно.
{$APPTYPE CONSOLE}
var
a: array[1..12, 1..12] of char;
x,y,c,b,n,m,i,o,p,u: integer;
l ,w,s,x,d: string ;
begin
randomize;
begin
x:= random(11);
y:= random(11);
n := random (11);
m := random (11);
a[x+1][y+1]:='%';
a[n+2][m+2]:='$';
for c:= 1 to 12 do
for b:= 1 to 12 do
begin
if a[c][b]='X' then
else
if a[c][b]='$' then
else
if random(2)=0 then
a[c][b]:=' '
else
a[c][b]:='#';
if b=12 then
writeln;
begin
write(a[c][b]);
end ;
end ;
readln(i);
end ; end ;
end ;
readln ;
end. |
| вашпе к героям... |
| закроют. Переноси во внеигровой. |
| во внеигровом тебе помогут, вероятно |
алгоритм Дейкстры
тему фтопку |
| Тема перенесена из форума "Общий игровой форум" в "Форум для внеигровых тем". |
| я только в паскале и С++ шарю, прости делфи не пробовал,но щя рескну мож) |
| я помочь прошу |
| Мдя... скок те лет, прогер? |
| Шмалевич, спасибо за перенесение темы фтопку. :) |
| Тебе курсором двигать надо или через readln? |
| не ваще все другое не понимаю,сори( |
| readln |
| Судя по нику парню 15 лет и он хочет создать собственных героев |
| какая нах разница скок мне лет? я что не человек щас чтоль? или ты забыл как сам мелким был? |
| я просто учусь в очень сильной школе ,только 3 месяца учат прогать . Извините если я туплю |
я просто учусь в очень сильной школеИзвините если я туплю
взаимоисключающе)))))))))))))00000 |
для ALEX-94-:
Хм...Где я этих Делфи 7 видел=) Даже знаю где....в ЛКИ за хрен знает какой год и месяц были диски, там учили прогать хилинькие 3Д игры=) Делфи 7 была как пример=) |
| А зачем рэндом? Дли инициализации клада? Не понимаю тем более зачем рэндом внутри цикла |
| так поможете? |
