Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
hellisateengirl
4 / 1 / 0
Регистрация: 04.06.2012
Сообщений: 59
1

Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет

13.06.2012, 18:08. Просмотров 1252. Ответов 5
Метки нет (Все метки)

Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет.
Пожалуйста помогите!
Delphi
1
2
3
4
5
begin
             if (A mod 2 = 0) and (B mod 2 = 0) and(C mod 2 = 0) or (A mod 2 = 1) and (B mod 2 = 1) and (C mod 2 = 1) then
    ShowMessage('1')
  else
    ShowMessage('0');
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2012, 18:08
Ответы с готовыми решениями:

Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного...

Вывести на экран 1 или 0 в зависимости от того
Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа...

Div и Mod . Вывести на экран 1 или 0 в зависимости от того, равна ли сумма
Вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр...

В зависимости от переключателя на экран выводится сумма или разность клавиатуры вводятся три числа
2. С клавиатуры вводятся три числа как коэффициенты квадратного уравнения. На...

Вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.
Вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр...

5
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,475
Завершенные тесты: 1
13.06.2012, 18:15 2
Тут вроде как все хорошо. Но писать то нужно не = 1, а <>0 (неравно 0)
И в скобочки взять то что или 3 условия или 3 условия. А не по 2 обязательных и 1 или.

Delphi
1
2
3
4
5
begin
if ((A mod 2 = 0) and (B mod 2 = 0) and (C mod 2 = 0)) or ((A mod 2 <> 0) and (B mod 2 <> 0) and (C mod 2 <> 0)) then
ShowMessage('1')
else
ShowMessage('0');
1
hellisateengirl
4 / 1 / 0
Регистрация: 04.06.2012
Сообщений: 59
13.06.2012, 18:23  [ТС] 3
уже все варианты перепробовала, но почему-то всегда выдает правду(1)
0
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,475
Завершенные тесты: 1
13.06.2012, 18:30 4
Delphi
1
if ((A mod 2 = 0) and (B mod 2 = 0) and (C mod 2 = 0)) or ((A mod 2 <> 0) and (B mod 2 <> 0) and (C mod 2 <> 0)) then
Это дает 1 при
a=1
b=2
c=3

???

Добавлено через 1 минуту
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
A:=1;
B:=2;
C:=3;
if ((A mod 2 = 0) and (B mod 2 = 0) and (C mod 2 = 0)) or ((A mod 2 <> 0) and (B mod 2 <> 0) and (C mod 2 <> 0)) then
ShowMessage('1')
else
ShowMessage('0');
end;
Показало 0
0
hellisateengirl
4 / 1 / 0
Регистрация: 04.06.2012
Сообщений: 59
13.06.2012, 18:44  [ТС] 5
Странно, при любых значениях выводит 1.
Может причина не лицензионная программа?
0
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,475
Завершенные тесты: 1
13.06.2012, 19:31 6
Врядли. Качай Delphi 7.
Она хороша(по моему мнению)
Да и твой код работать будет...
1
13.06.2012, 19:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2012, 19:31

Вывести на экран 1 или 0 в зависимости от условия
Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного...

В зависимости от переключателя на экран вывести само число или его модуль
Товарищи, помогите, пожалуйста, скоро экзамен по Делфи, а мы его совсем не...

Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет
Помогите, пожалуйста. Знаю, что задачи более ли менее лёгкие, но я в c# почти...


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

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

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