Другие языки программирования и технологии
Как написать программу в Turbo Pascal?
Всем Привет. Я никогда не имела дело с Паскалем, а тут на тебе задачи пошли=) Необязательно все решение полностью, просто напишите как рисовать доску,если мы use crt a не graph ...и как сделать так,чтобы при наборе номера поля, на котором стоит конь, автоматически отмечались поля, которые он бьет, т.е., например, конь стоит на а8 и надо чтобы звездочками отметились поля б6 и с7...и так собственно для каждого поля, но я так полагаю,что на одном примере, подобное можно будет составить для всей доски. Заранее спаисибо за помощь
Влад Липский
330
нужно создать двумерный массив 8х8 of char
условиться, что
' '- ничего нет
'К' -конь
'*' - возможные ходы
и опрашивать куда ставить?
после опроса делаешь очистку экрана clrscr
очищаешь массив
например отмечаешь в массиве в ячейку 2*6 - 'K'
2-столбец
6-строка
конь может ходить
2-1 6-2
2+1 6-2
2-1 6+2
2+1 6+2
2-2 6-1 2-2<1 => хода нет
2-2 6+1 2-2<1 => хода нет
2+2 6-1
2+2 6+1
заполняешь в массиве ячейки хода и перерисовываешь массив на экране
условиться, что
' '- ничего нет
'К' -конь
'*' - возможные ходы
и опрашивать куда ставить?
после опроса делаешь очистку экрана clrscr
очищаешь массив
например отмечаешь в массиве в ячейку 2*6 - 'K'
2-столбец
6-строка
конь может ходить
2-1 6-2
2+1 6-2
2-1 6+2
2+1 6+2
2-2 6-1 2-2<1 => хода нет
2-2 6+1 2-2<1 => хода нет
2+2 6-1
2+2 6+1
заполняешь в массиве ячейки хода и перерисовываешь массив на экране
Доску рисовать псевдографикой ( символы с кодами от 176 десятичное до 223 )
Ну и все рисование - символами, а не графикой.
Например (из одной моей древней проги) :
Rows: array [1..13] of String [63] =
(
'┌───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬─────┐',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │BkSp │',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │─── │',
'├───┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─────┤',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ Enter │',
'├─────┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┘ │',
'│ Caps │ │ │ │ │ │ │ │ │ │ │ │ │ │',
'│ Lock │ │ │ │ │ │ │ │ │ │ │ │ ──┘ │',
'├───────┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─────────┤',
'│ │ │ │ │ │ │ │ │ │ │ │ │',
'│ Shift │ │ │ │ │ │ │ │ │ │ │ Shift │',
'└─────────┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───────────┘'
);
Ну и все рисование - символами, а не графикой.
Например (из одной моей древней проги) :
Rows: array [1..13] of String [63] =
(
'┌───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬─────┐',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │BkSp │',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │─── │',
'├───┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─────┤',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │',
'│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ Enter │',
'├─────┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┘ │',
'│ Caps │ │ │ │ │ │ │ │ │ │ │ │ │ │',
'│ Lock │ │ │ │ │ │ │ │ │ │ │ │ ──┘ │',
'├───────┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─┬─┴─────────┤',
'│ │ │ │ │ │ │ │ │ │ │ │ │',
'│ Shift │ │ │ │ │ │ │ │ │ │ │ Shift │',
'└─────────┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───────────┘'
);
Sahet Taganow
40 192
а ты на каком уровне развития программирования?? ? uses crt лучше не использовать (в лицензионных прога Turbo pascal не работает! Ошибку выдаёт!)
Похожие вопросы
- Помогите с текстом программы на Turbo Pascal
- Помогите составить программу на Turbo Pascal?
- ПОМОГИТЕ ПОЖАЛУСТА составить программу на turbo pascal!
- Помогите с программой в Turbo Pascal
- Помогите написать прогу на TURBO PASCAL...
- написать программу на языке Pascal.
- Помогите написать программу на Free pascal
- Помогите написать программу на платформа Pascal ABC
- Помогите написать программу на языке Pascal ABC
- Можно ли запустить программу, написанную в Turbo Pascal (*.pas), без Turbo Pascal?