Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Bill_Si
0 / 0 / 1
Регистрация: 06.09.2013
Сообщений: 3
#1

Проверьте на работоспособность прогу о шахматном коне - Pascal

09.09.2013, 22:04. Просмотров 340. Ответов 1
Метки нет (Все метки)

Если что-то неправильно,подправьте!
Условие: разработать программу, которая должна находить кол-во ходов, что может сделать шахматная фигура конь, определённой позиции для шахматной доски. При этом в каждой клетке конь должен быть один раз! Может ли кол-во ходов равняться числу 63?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Program shah_kon;
uses crt;
const XG:array[1..8] of integer = (1,2,2,1,-1,-2,-2,-1); {массив вариантов ходов по горизонтали}
      YV:array[1..8] of integer = (-2,-1,1,2,2,1,-1,-2); {массив вариантов ходов по вертикали}
 
var   DS:array[1..8,1..8] of integer;   {массив размера доски}
      gor,ver:integer; {переменные  расположения коня}
      i,j,n,x,y,kol:integer;  k:integer; {переменная вариантов хода}
begin
   clrscr;
   {Обнуления клеток доски}
   for j:=1 to 8 do
    for i:=1 to 8 do
     DS[i,j]:=0;
 
   writeln('=Введите координаты расположения коня=');
   writeln('по горизонтали [1..8]: '); readln(gor);
   writeln('по вертикали [1..8]: '); readln(ver);
   n:=1;
   k:=1;
   DS[ver,gor]:=n;
   {цикл хода коня}
   repeat
     x:=gor+XG[k];
     y:=ver+YV[k];
     if (x<1) or (x>8) or (y<1) or (y>8) then inc(k)
     else if (DS[y,x]>0) then inc(k)
     else begin
      gor:=x;
      ver:=y;
      inc(n);
      DS[ver,gor]:=n;
      k:=1;
      inc(kol);
     end;
   until (k>8);
   writeln('Количество ходов коня: ', kol+1);
   if (k=53) then writeln('Количество ходов коня ровняется числу 63!')
   else writeln('Количество ходов коня не ровняется числу 63!');
   writeln('Пройденный путь коня: ');
   for i:=1 to 8 do begin
    writeln;
    for j:=1 to 8 do write(DS[i,j]:3);
     writeln;
   end;
   readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2013, 22:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверьте на работоспособность прогу о шахматном коне (Pascal):

Проверьте прогу плз
Почему она всегда считает сумму последней строки? program norm; const n=4;...

Проверьте, пожалуйста, работоспособность программы
Добрый вечер! Запуталась с тем, как запустить программу из нескольких .M...

Проверьте, пожалуйста, работоспособность данной системы
http://budennovsk.dns-shop.ru/catalog/cart/?cart_items=1008812-1,144410-1,136676...

Проверьте прогу
Нужно проверить рабочая ли прога , а то нет возможности #include...

Проверьте прогу на ошибки
Задание Создать файл &lt;&lt;tranz&gt;&gt;, который содержит параметры для 15 типов...

Задача о коне Аттилы
На шахматной доске стоят белый конь и черный король. Некоторые поля доски...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
10.09.2013, 09:19 #2
Поскольку у тебя доска 8х8, но не 63 хода, то неправильно. Тебе же давали ссылку на правильный алгоритм.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2013, 09:19
Привет! Вот еще темы с решениями:

Прога по шахматной фигуре - коне
прога должна находить кол-во ходов, что может сделать шахматная фигура конь,...

Сделать человека на коне и с лавровым венком вроде он Цезарь
сделать этого человека на коне и з лавровым венком вроде он Цезарь

Задача о коне Аттилы. Конь должен дойти до неприятельского короля
Задача о коне Аттилы («Трава не растет там, где ступил мой конь!»). На...

Написал прогу, создал Release конфигурацию. Какие оттуда файлы нужны, чтоб передать прогу заказчику
там их 6 штук вышло. понимаю для чего myapp.exe -собственно сам exe...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru