|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.06.2009, 08:58 | #1 |
Регистрация: 25.05.2009
Сообщений: 8
|
Помогите с задачей.
есть сам текст задачи
program Pherz; uses crt; var a:array[1..8,1..8] of char; i,j,m,n:integer; begin clrscr; writeln('координаты ферзя'); readln(m,n); for i:=1 to 8 do for j:=1 to 8 do begin if (i=m) and (j=n) then a[i,j]:='F'; if ((i=m) and (a[i,j]<>'F')) or ((j=n) and (a[i,j]<>'F')) then a[i,j]:='*'; if (i+j=m+n) and (a[i,j]<>'F') then a[i,j]:='*'; if (i-j=m-n) and (a[i,j]<>'F') then a[i,j]:='*'; if (a[i,j]<>'F') and (a[i,j]<>'*') then a[i,j]:='0'; end; for i:=1 to 8 do begin for j:=1 to 8 do write(a[i,j]:2); writeln; end; readkey; end. мне надо вставить сюда меню вот такое: textcolor(white); repeat clrscr; window(27,5,55,15); textbackground(6); clrscr; writeln('********MENU*******'); writeln; writeln('1. =START='); writeln('2. =HELP='); write('3. =EXIT='); сколько ни пробовал, не получается. Помогите решить надо срочно writeln('viberitr koordinati pheryza ');-- справка |
04.06.2009, 09:05 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Примерно так:
Код:
I'm learning to live...
|
04.06.2009, 09:11 | #3 |
Регистрация: 25.05.2009
Сообщений: 8
|
ошибку выдает вот тут
PROCEDURE do; - identifier expected |
04.06.2009, 09:13 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Тьху бли... Из Модулы взял имя..
Код:
Код:
I'm learning to live...
|
04.06.2009, 09:30 | #5 |
Регистрация: 25.05.2009
Сообщений: 8
|
все равно ошибка.
я вот так попробовал program Pherz; uses crt; var a:array[1..8,1..8] of char; i,j,m,n:integer; begin textcolor(white); repeat clrscr; window(27,5,55,15); textbackground(6); clrscr; writeln('********MENU*******'); writeln; writeln('1. =START='); writeln('2. =HELP='); write('3. =EXIT='); case readkey of '1':begin clrscr; writeln(' vvedite koopdinati pherzya '); readln(m,n); for i:=1 to 8 do for j:=1 to 8 do begin if (i=m) and (j=n) then a[i,j]:='F'; if ((i=m) and (a[i,j]<>'F')) or ((j=n) and (a[i,j]<>'F')) then a[i,j]:='*'; if (i+j=m+n) and (a[i,j]<>'F') then a[i,j]:='*'; if (i-j=m-n) and (a[i,j]<>'F') then a[i,j]:='*'; if (a[i,j]<>'F') and (a[i,j]<>'*') then a[i,j]:='0'; end; for i:=1 to 8 do begin for j:=1 to 8 do write(a[i,j]:2); writeln; end; '2':begin --- вот здесь выдает error in statement clrscr; writeln('eta programma pokazivaet vse vozmozhnie xodi pherzya'); end; '3':begin clrscr; write(' GOOD BAY'); end; readkey; end. |
04.06.2009, 13:11 | #6 |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
Между вариантами '1' и '2' три бегина и два энда.
|
04.06.2009, 13:55 | #7 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Цитата:
Сказал бы уж на какой строке, ато я с потолка брал код. Замени repeat c=#13; на until c=#13; и наслаждайся.
I'm learning to live...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите с задачей | StakanpORTvejna | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 11.10.2008 19:19 |
Помогите с задачей. | terminadoor | Помощь студентам | 4 | 22.07.2008 18:38 |
помогите с задачей на с++ | JOFRIF | Помощь студентам | 7 | 23.04.2008 20:46 |
Помогите с задачей в С++ | vovchara | Помощь студентам | 2 | 22.04.2008 22:49 |