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

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

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

> Задача "Ход конем", помогите закончить
leahov
сообщение 3.06.2006 7:23
Сообщение #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 8:53
Сообщение #2


Новичок
*

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

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


я просто брал коня и ходил им по полю буквой Г, или я не понял задания? там вроде написано пометить все поля которые бьет конь
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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


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

 



- Текстовая версия 18.07.2025 10:06
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"