0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 4
1

Непонятная ошибка. TMT Pascal выдает: expected AND or statement, а turbo pascal просит поставить ";"

02.12.2012, 18:46. Показов 719. Ответов 4
Метки нет (Все метки)

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
Program board;
Uses CRT;
Var x, count, hod: integer; y: string;
Begin
  Writeln ('vvedite znachenie po gorizontali (1, 2, 3, 4, 5, 6, 7, 8)');
  Readln (x);
  Writeln ('vvedite znachenie po vertikali (a, b, c, d, e, f, g, h)');
  Readln (y);
  hod := 0;
  count := 0;
 
if (x=1) and (y='a') or (x=8) and (y='a') or (x=1) and (y='h') or (x=8) and (y='h')                then
    hod := 2;
    count := hod mod 4;
    writeln ('kolichestvo hodov: ', hod);
    writeln ('maximalnoe kolichestvo kletok za 1 shag: ', count)
else if (x=2) and (y='a') or (x=7) and (y='a') or (x=2) and (y='h') or (x=7) and (y='h') or (x=1) and (y='b') or (x=8) and (y='b') or (x=1) and (y='g') or (x=8) and (y='g') then
    hod := 3;
    count := hod mod 4;
    writeln ('kolichestvo hodov: ', hod);
    writeln ('maximalnoe kolichestvo kletok za 1 shag: ', count)
else if (x=3) and (y='a') or (x=4) and (y='a') or (x=5) and (y='a') or (x=6) and (y='a') or (x=3) and (y='h') or (x=4) and (y='h') or (x=5) and (y='h') or (x=6) and (y='h') or (x=2) and (y='b') or (x=2) and (y='g') or (x=7) and (y='b') or (x=7) and (y='g')                then
    hod := 4;
    count := hod mod 4;
    writeln ('kolichestvo hodov: ', hod);
    writeln ('maximalnoe kolichestvo kletok za 1 shag: ', count)
else if (x=3) and (y='b') or (x=4) and (y='b') or (x=5) and (y='b') or (x=6) and (y='b') or (x=3) and (y='g') or (x=4) and (y='g') or (x=5) and (y='g') or (x=6) and (y='g') or (x=2) and (y='c') or (x=2) and (y='d') or (x=2) and (y='e') or (x=2) and (y='f') or (x=7) and (y='c') or (x=7) and (y='d') or (x=7) and (y='e') or (x=7) and (y='f')                                    then
    hod := 6;
    count := hod mod 4;
    writeln ('kolichestvo hodov: ', hod);
    writeln ('maximalnoe kolichestvo kletok za 1 shag: ', count)
else if (x=3) and (y='c') or (x=4) and (y='c') or (x=5) and (y='c') or (x=6) and (y='c') or (x=3) and (y='f') or (x=4) and (y='f') or (x=5) and (y='f') or (x=6) and (y='f') or (x=6) and (y='d') or (x=6) and (y='e') or (x=3) and (y='d') or (x=3) and (y='e') or (x=4) and (y='d') or (x=5) and (y='d') or (x=4) and (y='e') or (x=5) and (y='f')                            then
    hod := 8;
    count := hod mod 4;
    writeln ('kolichestvo hodov: ', hod);
    writeln ('maximalnoe kolichestvo kletok za 1 shag: ', count)
else
  writeln ('kon za predelami doski');
 
repeat until keypressed;
clrscr;
end.
А само дано вот:
Шахматная доска. на ней стоит конь. определить, на какое количество клеток он может походить с заданного положения за один ход и сколько допустимых ходов. изображения: http://vk.com/zombiqwerty?w=wall98365169_4704


Объясните пожалуйста, что это за ошибка и если не сложно исправьте ее
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2012, 18:46
Ответы с готовыми решениями:

Ошибка: Statement expected but expression of type "TBitBtn" found
В программе используется нижеследующий код, но он почему то ругается на строку Exit. Ошибка:...

Ошибка: "Statement expected, but 'PROCEDURE' found"
Пытался написать новые строки для программы, наделал кучу ошибок, пытался исправить — не...

Ошибка "Statement expected but Procedure found"
Изначально был такой код(сокращенная версия): var delta:integer; // ... begin // ... ...

Создать электронный учебник по теме "Вычисление специальных функции на языке программирования Turbo Pascal"
у меня тема дипломной работы создать электронный учебник по теме "Вычисление специальных функции на...

4
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
02.12.2012, 19:00 2
Цитата Сообщение от zombiQWERTY Посмотреть сообщение
на какое количество клеток он может походить с заданного положения за один ход и сколько допустимых ходов
А чем первое отличается от второго?

Добавлено через 1 минуту
А Ваше неумное решение нужно оформить так
Pascal
1
2
3
4
5
6
7
if ((x=1) and (y='a')) or ((x=8) and (y='a')) or ((x=1) and (y='h')) or ((x=8) and (y='h')) then
 begin
    hod := 2;
    count := hod mod 4;
    writeln ('kolichestvo hodov: ', hod);
    writeln ('maximalnoe kolichestvo kletok za 1 shag: ', count)
   end
И так для каждого if..
1
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 4
02.12.2012, 19:04  [ТС] 3
Смотрите первое фото по ссылке. В координате (1;a) количество ходов 2, а ход коня это 4 клетки, считая ту, на которой стоит. значит количество ходов в координате (1; a) = 2, кол-во клеток=2*4=8

Добавлено через 43 секунды
сейчас попробую
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
02.12.2012, 19:23 4
Цитата Сообщение от zombiQWERTY Посмотреть сообщение
Смотрите первое фото по ссылке.
Да за эти ссылки и такое фото Вам по голове карточкой наградить нужно...
0
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 4
02.12.2012, 19:25  [ТС] 5
Все ок. Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2012, 19:25

Turbo Pascal - "Файлы"
1. Написать программу, которая подсчитывает количество слов в созданном текстовом файле,...

Pascal ABC выдает ошибку "Неизвестное имя 'n'"
Pascal ABC выдает ошибку где её быть по сути не должно Проблему выдает в 3 строчке кода: ...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

выдаёт ошибку: Error: Incompatible type for arg no. 3: Got "Extended", expected "AnsiString"
a:=a/i; не получается переделать под делфи. нужно,чтобы изменённый массив вывел в stringgrid2. ...


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

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

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