IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача "Ход конем", помогите закончить
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: leahov

Репутация: -  0  +


Даны две литеры - латинская буква (от a до h) и цифра (от 1 до восьми). Рассматривая их как координаты поля шахматной доски, на котором находится конь, нарисовать шахматную доску, пометив крестиками все поля, которые «бьет» этот конь, и ноликами все остальные.

шахматку нарисовал - вот код
Program zadacha1; 
uses graph,crt;
var driver,mode,m,n:integer;
stroka:string[1];
const
l:array [0..7] of string[1] =('a','b','c','d','e','f','g','h');
begin
driver:=detect;
Initgraph(driver,mode,'c:/bp/bgi');
setcolor(15);
for n:=1 to 8 do
for m:=0 to 7 do
rectangle(n*50,m*50,n*50+50,M*50+50);
for n:=0 to 3 do
begin
for m:=0 to 3 do
begin
floodfill(100*n+75,100*m+25,15);
floodfill(100*n+125,100*m+75,15);
end;
end;
for n:=0 to 7 do
begin
str(n+1,stroka);
OutTextXY(25,n*50+22,stroka);
end;
for n:=0 to 7 do
OutTextXY(n*50+70,415,l[n]);
readln;
closegraph;
end.


Помогите закончить задание
Есть мысля как её закончить - изначально все поля сделать с нулями, а потом просто расставить под ход коня единички, одна загвоздка - не получается реализовать этот план. Может это и не правильно, но это по моему один из простых вариантов
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
leahov   Задача "Ход конем"   3.06.2006 11:23
RaV   Конь ходит буквой "Г". Значит надо прост…   3.06.2006 12:08
leahov   RaV в задании написано просто пометить крестиками …   3.06.2006 12:29
RaV   А как ты считал? Я понимаю что он может сделать то…   3.06.2006 12:45
leahov   я просто брал коня и ходил им по полю буквой Г, ил…   3.06.2006 12:53
RaV   Я думаю что так не правильно.А то так можно всю до…   3.06.2006 13:01
lapp   Я немного причесал твою прогу, изменений вносить н…   3.06.2006 13:04
leahov   :rolleyes: я так всю доску и обошел то есть я так…   3.06.2006 13:10
leahov   lapp спасибо, сейчас попробую нули ставить   3.06.2006 13:25
lapp   lapp спасибо, сейчас попробую нули ставить Давай…   3.06.2006 13:50
Malice   только те клетки, у которых выполнено условие Odd…   3.06.2006 14:32
leahov   а кружки через Ellipse рисовать?   3.06.2006 14:15
lapp   а кружки через Ellipse рисовать? Ну зачем же? ис…   3.06.2006 14:23
leahov   lapp извини за мою тупость , но куда эту процедуру…   3.06.2006 14:43
RaV   Вот сюда : {**************************} SetColo…   3.06.2006 15:05
leahov   Circle (X, Y: Integer; R: word) R-50 X,Y - это мо…   3.06.2006 15:16
lapp   2 Malice: спасибо, конечно +. [code=pas]Circle (…   3.06.2006 15:27
leahov   если да - то она выдает ошибку на двоеточие после …   3.06.2006 15:27
RaV   X и Y - центр твоей клетки   3.06.2006 15:27
leahov   я как раз примерно тоже самой уже сделал только R …   3.06.2006 15:38
lapp   Спасибо всем кто решил вместо меня :unsure: это …   3.06.2006 15:43


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.09.2020 15:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name