Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/75: Рейтинг темы: голосов - 75, средняя оценка - 4.92
1 / 1 / 0
Регистрация: 25.09.2016
Сообщений: 160

Найти наибольшее значение среди трех величин: А, В, С (числа могут быть равны)

25.09.2016, 04:08. Показов 15050. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток.Помогите пожалуйста,что нужно добавить в программу,чтобы в ней было заложено,что может быть и такое,что A=B=C и в конце,в данном случае вывелось не значение max числа,а "Все числа равны,решений нет" ?

p.s. Если не трудно,то подправьте пожалуйста блок-схему. Большое спасибо!
Миниатюры
Найти наибольшее значение среди трех величин: А, В, С  (числа могут быть равны)  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.09.2016, 04:08
Ответы с готовыми решениями:

Найти наибольшее из 3-ех чисел(числа между собой могут быть равны)
Добрый день,что нужно добавить в программу,чтобы учитывался и тот вариант,что числа могут быть равны a=b=c,а в таком случае нужно...

Найти среди трех действительных чисел два числа, модуль разности которых имеет наибольшее значение
Доброго времени суток, даны три различных действительных числа. Найти среди них два числа, модуль разности которых имеет: наибольшее...

Чему могут быть равны НОД и НОК трех последовательных чисел?
Чему могут быть равны НОД и НОК трех последовательных чисел?

2
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
25.09.2016, 08:21
furymaxim, Задание следует писать в теме, код прикладывать текстом, картинкой только блок-схему и загружать ее нужно в тему.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
25.09.2016, 08:52
Лучший ответ Сообщение было отмечено furymaxim как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program bit2;
var a,b,c,max:integer;
begin
readln(a,b,c);
if(a=b)and(a=c) then write('Все числа равны, решения нет')
else
 begin
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  write(max)
 end;
end.
Миниатюры
Найти наибольшее значение среди трех величин: А, В, С  (числа могут быть равны)  
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.09.2016, 08:52
Помогаю со студенческими работами здесь

Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них
Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них. ВХОДНЫЕ ДАННЫЕ Во входном файле Z_1.in записаны три числа...

Найти наименьшее и наибольшее абсолютное значение среди трех заданных чисел
написать программу, которая находит наименьшее и наибольшее абсолютное значение среди трех заданных чисел.

Даны целые числа a1, …, an среди которых могут быть повторяющиеся члены. Найти число различных членов последовательности.
В MASM написать программу решения задачи: Даны целые числа a1, …, an среди которых могут быть повторяющиеся члены. Найти число...

Даны три различных действительных числа. Найти среди них два числа, модуль разности которых имеет: наибольшее значение, наименьшее значение
Я сижу на экзамене по Информатике и запутался. Данно задание Даны три различных действительных числа. Найти среди них два числа,...

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение
Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru