Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2009, 08:58   #1
DarthaBaudh
 
Регистрация: 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 ');-- справка
DarthaBaudh вне форума Ответить с цитированием
Старый 04.06.2009, 09:05   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Примерно так:
Код:
uses crt;

PROCEDURE do;
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;

var c:char;

BEGIN
    textcolor(white);
    repeat
     clrscr;
     window(27,5,55,15);
     textbackground(6);
     writeln('********MENU*******');
     writeln;
     writeln('1. =START=');
     writeln('2. =HELP=');
     write('3. =EXIT=');
     c:=readkey;
     if c='1' then do;
    repeat c=#13;
END.
Не тестировал.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.06.2009, 09:11   #3
DarthaBaudh
 
Регистрация: 25.05.2009
Сообщений: 8
По умолчанию

ошибку выдает вот тут

PROCEDURE do; - identifier expected
DarthaBaudh вне форума Ответить с цитированием
Старый 04.06.2009, 09:13   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Тьху бли... Из Модулы взял имя..
Код:
PROCEDURE dodo
Код:
if c='1' then dodo;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.06.2009, 09:30   #5
DarthaBaudh
 
Регистрация: 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.
DarthaBaudh вне форума Ответить с цитированием
Старый 04.06.2009, 13:11   #6
OCTAGRAM
Oldschool geek
Форумчанин
 
Аватар для OCTAGRAM
 
Регистрация: 09.03.2009
Сообщений: 611
По умолчанию

Между вариантами '1' и '2' три бегина и два энда.
If you want to get to the top, you have to start at the bottom

http://pascal.net.ru/
OCTAGRAM вне форума Ответить с цитированием
Старый 04.06.2009, 13:55   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
все равно ошибка.
Ты что секретный шпыгун? Текст ошибки на ходу поезда в Бруклин схавал??
Сказал бы уж на какой строке, ато я с потолка брал код.
Замени repeat c=#13; на until c=#13;
и наслаждайся.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите с задачей 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