Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Требуется проверить задачу
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
golden golden вне форума
Member
 
Сообщений: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.07.2011
Exclamation Требуется проверить задачу - 23.07.2011, 14:33

даны два целых числа А,В. проверить истинность высказывания "хотя бы одно из чисел А и В нечетное".
uses crt;
var a,b:integer;
c:boolean;
begin
ClrScr;
writeln ('введите число');
readln(a);
writeln ('введите число');
readln(b);
if ((a mod 2 <> 0 )) or ((b mod 2 <> 0 )) then
begin c:=true;
writeln (c);
end
else
writeln (c);
readln;
end.

мне кажется что чего то не хватает????????
Ответить с цитированием
  (#2 (permalink)) Старый
Forestop Forestop вне форума
Member
 
Аватар для Forestop
 
Сообщений: 100
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.06.2011
По умолчанию 23.07.2011, 14:37

А что покажет программа если у тебя "с" не имеет начального значения? - то что в памяти, поэтому ему нужно присвоить false вот код:
и можно обойтись без 3 переменной!

Pascal Код:
program z1;
var a, b: integer;
begin
 readln ( a, b );
 if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then
  writeln ( 'Не верно' )
 else
  writeln ( 'Верно' );
end.
Ответить с цитированием
  (#3 (permalink)) Старый
golden golden вне форума
Member
 
Сообщений: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.07.2011
По умолчанию 23.07.2011, 14:46

а можно вместо слов неверно или верно написать false или true
Ответить с цитированием
  (#4 (permalink)) Старый
Forestop Forestop вне форума
Member
 
Аватар для Forestop
 
Сообщений: 100
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.06.2011
По умолчанию 23.07.2011, 14:49

конечно.

Pascal Код:
program z1;
var a, b: integer;
begin
 readln ( a, b );
 if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then
  writeln ( 'False' )
 else
  writeln ( 'True' );
end.
Ответить с цитированием
  (#5 (permalink)) Старый
golden golden вне форума
Member
 
Сообщений: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.07.2011
По умолчанию 23.07.2011, 14:51

клева!спасибо!глянь пожалуйста задачку оператор выбора!!!
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
golden golden вне форума
Member
 
Сообщений: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.07.2011
По умолчанию 23.07.2011, 14:58

как поставить задержку экрана?
Ответить с цитированием
  (#7 (permalink)) Старый
Forestop Forestop вне форума
Member
 
Аватар для Forestop
 
Сообщений: 100
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.06.2011
По умолчанию 23.07.2011, 14:59

какую задержку?
Ответить с цитированием
  (#8 (permalink)) Старый
golden golden вне форума
Member
 
Сообщений: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.07.2011
По умолчанию 23.07.2011, 15:03

просто после ввода данных я нажимаю интер и меня выкидывает на саму задачу
Ответить с цитированием
  (#9 (permalink)) Старый
Forestop Forestop вне форума
Member
 
Аватар для Forestop
 
Сообщений: 100
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.06.2011
По умолчанию 23.07.2011, 15:03

перед end. пиши readln; и всё

Pascal Код:
program z1;
var a, b: integer;
begin
 readln ( a, b );
 if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then
  writeln ( 'False' )
 else
  writeln ( 'True' );
 readln;
end.
Ответить с цитированием
  (#10 (permalink)) Старый
golden golden вне форума
Member
 
Сообщений: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.07.2011
По умолчанию 23.07.2011, 15:08

оо спасибо!заработала
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите проверить задачу срочно SirrDoks Pascal 0 14.03.2012 10:10
Требуется решить задачу по ОКТ Shustic Pascal 1 09.06.2011 01:07
Требуется проверить код на ошибки ilyaskaz Pascal 1 03.06.2011 15:52
Требуется подправить задачу Наталька C++ Builder 11 23.05.2011 23:02
Требуется решить задачу The_Fall Вопросы начинающих программистов 0 29.03.2011 02:51
Требуется решить задачу на С++ shplint С/С++ 4 12.09.2009 16:14
Требуется проверить курсовую работу Serega_Mexanik Зацените! 8 20.05.2006 18:27
Требуется решить задачу chip Pascal 1 05.02.2006 16:02
Требуется исправить задачу xander-007 Pascal 3 20.12.2005 23:06
Требуется решить задачу MadAngel Pascal 5 04.10.2005 08:31
Требуется проверить программу шифровщика на ошибки ACTION_MAN Delphi 10 24.08.2005 12:22
Требуется проверить написанный код Anonymous PHP 3 12.10.2002 17:35



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов