Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
j1-mm
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 10
1

Определить, верно ли, что одно из четырех произвольных чисел равно 0

24.02.2016, 10:33. Просмотров 828. Ответов 7
Метки нет (Все метки)

Имеется четыре произвольных числа. При вводе их в ЭВМ она должна ответить на вопрос верно ли чтл одно из чисел равно 0

Добавлено через 1 час 15 минут
Up help
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2016, 10:33
Ответы с готовыми решениями:

Выяснить, верно ли, что количество тех чисел, которые меньше 20, равно пяти
Эти задачи требуется решить в ПАСКАЛЕ: 1) Даны вещественные числа х1,х2...,х10. Выяснить, верно...

Верно ли, что среди четырех заданных пользователем целых чисел есть хотя бы одна пара соспадающих
Написать программу, которая проверяет истиннсоть высказывания: "Среди четырех заданных...

Верно ли, что среди чисел - sin x в n степени, где н= от 1 до 30, есть хотя бы одно отрицательное число
если среди чисел - sin x в n степени, где н= от 1 до 30, есть хотя бы 1-но отрицательное число, то...

Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты
для четырех произвольных, введенных с клавиатуры, выведите на экран соответствующие результаты....

Определить, верно ли, что среди чисел А, B и С хотя бы два являются четными
Запишите логическое выражение истинное только при выполнении указанных условий: 1)среди чисел А, B...

7
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
24.02.2016, 12:11 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот:
Pascal
1
2
3
4
5
6
var a,b,c,d:real;
begin
writeln('Введите четыре числа');
readln(a,b,c,d);
writeln('Одно из чисел равно нулю - ',(a*b*c*d=0));
end.
0
Catstail
Модератор
23860 / 11913 / 2099
Регистрация: 12.02.2012
Сообщений: 19,362
26.02.2016, 17:18 3
Не могу назвать это решение хорошим. Если a=1E300 и b=1E300, а c=0, то программа упадет (переполнение). Если a,b=1E-300, c,d=1, то программа ответит утвердительно (и неверно).
0
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
26.02.2016, 20:14 4
Видимо так?:
Pascal
1
2
3
4
5
6
var a,b,c,d:real;
begin
writeln('Введите четыре числа');
readln(a,b,c,d);
writeln('Одно из чисел равно нулю - ',((a=0) or (b=0) or (c=0) or (d=0)));
end.
0
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
28.02.2016, 13:38 5
Судя по заданию, для верного ответа только одно из чисел должно быть равно нулю.
0
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
28.02.2016, 19:21 6
Цитата Сообщение от schoolteacher Посмотреть сообщение
для верного ответа только одно из чисел должно быть равно нулю
Не соглашусь,
Цитата Сообщение от j1-mm Посмотреть сообщение
верно ли чтл одно из чисел равно 0
, это условие выполняется при любом количестве чисел равных нулю ( от 1 до 4). Но в одном вы правы, проверка истинности условия or прервется при первом значении true.

Добавлено через 6 минут
Я надеюсь, этот принцип в ABC.NET тоже заложен.
0
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
03.03.2016, 00:19 7
Цитата Сообщение от capricornus CF Посмотреть сообщение
верно ли чтл одно из чисел равно 0
В этом случае обычно пишут 'одно или несколько'...
0
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
03.03.2016, 08:02 8
schoolteacher, отнюдь, согласно законам логики, сам вопрос подразумевает только два ответа. Верно или не верно. Другое дело , какой ответ преподаватель посчитает верным.
0
03.03.2016, 08:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2016, 08:02

Составить программу определения, верно ли, что n равно квадрату суммы цифр числа n
3. Дано натуральное число n(n≤99). Составить программу определения, верно ли, что n равно квадрату...

Если ни одно из чисел не равно 0, то в переменную К записать среднее арифметическое
3)Введите 3 числа A,B,C. Если ни одно из исел не равно 0, то в переменную К записать среднее...

Определить, верно ли, что среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных
среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных помогите


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

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

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