|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.10.2010, 10:21 | #1 |
Пользователь
Регистрация: 17.08.2010
Сообщений: 75
|
Задача на Паскаль
Дана задача: Дано целое число А. Проверить истинность высказывания: Число А является нечетным.
var a :integer; rez :boolean; begin write('Введи a :'); readln(a); rez:=(a div 2); writeln('Результат : ',rez); readln end. Компилятор к этой строке ( rez:=(a div 2); ) пишет: Нельзя преобразовывать тип INTEGER к BOOLEAN. Подскажите пожалуйста, а как правильно. Спасибо. С уважением Виталий. |
23.10.2010, 10:35 | #2 | ||
Форумчанин
Регистрация: 23.09.2010
Сообщений: 682
|
Цитата:
Цитата:
Собственно ответ: Число нечётное, если при делении на два его остаток не равен нулю. В паскале можно проверить так: Код:
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить. |
||
23.10.2010, 10:56 | #3 | |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Цитата:
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
|
|
23.10.2010, 15:44 | #4 |
Пользователь
Регистрация: 17.08.2010
Сообщений: 75
|
Спасибо братцы за помощь. Но проблема в том, что условный оператор - это тема следующая. Эту задачу надо как-то решить с помощью типа BOOLEAN. Видимо есть какая-то цепочка размышлений, логическая.
Но как это выразить, вот это вопрос. С уважением Виталий. |
23.10.2010, 15:55 | #5 |
Форумчанин
Регистрация: 20.10.2010
Сообщений: 143
|
Не думаю, что тут хоть как-то можно решить задачу без условных операторов. Ибо BOOLEAN - может только сказать true или false. Но определить четность, он никак не может
451 -870-7(три)6. Выполняю работы на заказ, гарант честности - ВМ аттестат с 60+ БЛ без претензий
|
23.10.2010, 16:23 | #6 |
Форумчанин
Регистрация: 23.09.2010
Сообщений: 682
|
Конечно не очень красивый вывод, но можно так
Код:
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить. Последний раз редактировалось Niro; 23.10.2010 в 16:27. |
23.10.2010, 18:20 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
думаю, ожидалось что-то такое:
Код:
|
24.10.2010, 23:35 | #8 |
Пользователь
Регистрация: 17.08.2010
Сообщений: 75
|
Спасибо за помощь. У меня код работает в таком виде:
var a :integer; rez :boolean; begin write('Введи a : '); readln(a); rez := ((a mod 2) = 1); writeln('Результат : ',rez); readln; end. С уважением Виталий. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача в Паскаль | Ivanushka17 | Помощь студентам | 1 | 06.12.2009 20:01 |
задача в Паскаль... | Вера123 | Помощь студентам | 5 | 15.06.2009 18:07 |
Задача на паскаль | St1fler92 | Помощь студентам | 4 | 26.05.2009 16:21 |
ПАСКАЛЬ задача | gotex | Помощь студентам | 3 | 04.06.2008 21:08 |