|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
23.06.2011, 21:44 | #1 |
Регистрация: 31.03.2011
Сообщений: 9
|
не пойму в чём ошибка
При проверке паскаль высвечюет "eror in statement" указуя на until в конце фрагмента. Вот етот фрагмент программы. Может ктото знает почему.
repeat ttt: r:=random(10)+1; t:=random(10)+1; if q[r,t]=9 then goto ttt; if (q[r-1,t-1]=9)or(q[r-1,t+1]=9)or(q[r+1,t+1]=9)or(q[r-1,t-1]=9)or(q[r-1,t]=9)or(q[r+1,t]=9)or(q[r,t-1]=9)or(q[r,t+1]=9) then goto ttt; r5:=random(4)+1; if r5=1 then begin if tr=10 then t5:=3; if (tr<10)and(tr>7) then t5:=2; if (tr<8)and(tr>4) then t5:=1; if tr<5 then t5:=0; for n:=1 to t5 do begin if (q[r-n-1,t-1]=9)or(q[r-n-1,t-1]=9)or(q[r-n+1,t-1]=9)or(q[r-n+1,t-1]=9) then goto ttt; q[r-n,t]:=9; r7:=r7+1; tr:=tr-1; end; if r5=2 then begin if tr=10 then t5:=3; if (tr<10)and(tr>7) then t5:=2; if (tr<8)and(tr>4) then t5:=1; if tr<5 then t5:=0; for n:=1 to t5 do if (q[r-1,t+n-1]=9)or(q[r-1,t+n-1]=9)or(q[r+1,t+n-1]=9)or(q[r+1,t+n-1]=9) then goto ttt; q[r,t+n]:=9; r7:=r7+1; tr:=tr-1; end; if r5=3 then begin if tr=10 then t5:=3; if (tr<10)and(tr>7) then t5:=2; if (tr<8)and(tr>4) then t5:=1; if tr<5 then t5:=0; for n:=1 to t5 do if (q[r+n-1,t-1]=9)or(q[r+n-1,t-1]=9)or(q[r+n+1,t-1]=9)or(q[r+n+1,t-1]=9) then goto ttt; q[r+n,t]:=9; r7:=r7+1; tr:=tr-1; end; if r5=4 then begin if tr=10 then t5:=3; if (tr<10)and(tr>7) then t5:=2; if (tr<8)and(tr>4) then t5:=1; if tr<5 then t5:=0; for n:=1 to t5 do if (q[r-1,t-n-1]=9)or(q[r-1,t-n-1]=9)or(q[r+1,t-n-1]=9)or(q[r+1,t-n-1]=9) then goto ttt; q[r,t-n]:=9; r7:=r7+1; tr:=tr-1; end; until r7=10; |
23.06.2011, 23:56 | #2 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
Код:
Есть вопросы, пишите в ЛС.
|
24.06.2011, 08:15 | #3 |
Регистрация: 31.03.2011
Сообщений: 9
|
спасибо , так оно и есть
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не пойму в чём проблема | Winterwolf93 | Помощь студентам | 0 | 31.03.2011 18:19 |
Не пойму в чём проблема. Кажется дело в типах.(С++) | Зелёный | Помощь студентам | 2 | 26.11.2010 09:49 |
Не пойму в чем ошибка | Machete | PHP | 2 | 08.12.2008 10:09 |
Ресурсы приложения, не пойму в чём проблема. | Air | Общие вопросы Delphi | 13 | 10.08.2008 21:44 |