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

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

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

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

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

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

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

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

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

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

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

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
Модератор
23536 / 11646 / 2036
Регистрация: 12.02.2012
Сообщений: 18,985
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
Привет! Вот еще темы с решениями:

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

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

Массив. Верно ли, что в массиве есть хотя бы одно отрицательное и четное число
PascalABC. Переменной t присвоить значение истина, если в одномерном массиве...

Даны три произвольных числа, проверить, является ли хотя бы одно из этих чисел квадратом целого числа
Даны три произвольных числа A,B,C. Если хотя бы одно из этих чисел является...


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

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

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