Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 24.11.2022
Сообщений: 3

Упорядочить три числа

29.11.2022, 00:33. Показов 1013. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
При вводе исходных данных переменные A,B,C получают разные числовые значения. Программа должна поменять числовые значения между переменными так, чтобы при выводе на консоль значений А, потом В, потом С на консоли появилась возрастающая числовая последовательность.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.11.2022, 00:33
Ответы с готовыми решениями:

Переделать исходный код. Код в Паскале,а нужно сделать его в Фортране
{$S+,R+} program arab_to_roman; uses crt; var n : word; ch : char; procedure convert(n : word);

Перевести код на Паскале в код на С#
Нужно перевести код, чтобы можно было использовать для создания C# Windows Forms Program Hungry_Ostov; {Оставное дерево.Жадный...

Составить программу для построения таблицы значений x и y для функции
Составить программу для построения таблицы x и y для функции y=cos(x) при изменении в диапазоне с шагом 0.3. В колонках должны быть...

9
51 / 40 / 12
Регистрация: 01.11.2022
Сообщений: 98
29.11.2022, 02:10
Pascal
1
2
3
4
5
6
##
var (A, B, C) := ReadReal3('Введите числа A B C :');
if A>B then Swap(A, B);
if B>C then swap(B, C);
if A>B then Swap(A, B);
println('После упорядочивания: A B C =', A, B, C)
1
Status 418
Эксперт Python
4584 / 2350 / 601
Регистрация: 26.11.2017
Сообщений: 5,262
Записей в блоге: 3
30.11.2022, 08:30
Pascal
1
2
3
###
var (a, b, c) := ReadArrReal(3).Sorted;
Print(a, b, c)
1
51 / 40 / 12
Регистрация: 01.11.2022
Сообщений: 98
30.11.2022, 09:11
Ну, да... вообще-то последний вариант не соответствует заданию. У вас переменные A B C сразу получают упорядоченные значения от встроенного метода сортировки, а не меняются ПОТОМ между собой значениями с целью упорядочивания.
0
Модератор
10451 / 5741 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
01.12.2022, 10:35
SpectatorBH, нет, всё по заданию. Переменные сначала вводятся, а ПОТОМ сортируются.
0
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
01.12.2022, 12:25
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Переменные сначала вводятся,
где выполняется это условие:
Цитата Сообщение от Алина250585 Посмотреть сообщение
При вводе исходных данных переменные A,B,C получают разные числовые значения.
сортируются некие внутренние переменные, но не переменные A,B,C

и заодно, укажите, пожалуйста, где выполняется это:
Цитата Сообщение от Алина250585 Посмотреть сообщение
Программа должна поменять числовые значения между переменными
где переменные меняют свои значения?
0
Модератор
10451 / 5741 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
01.12.2022, 15:01
mr-Crocodile, да, Вы правы... Что-то я не подумал...

Действительно, сначала возвращается значение функции ReadArrReal(3), после чего к этому значению применяется метод Sorted, и только после этого результат сортировки присваивается кортежу.
0
51 / 40 / 12
Регистрация: 01.11.2022
Сообщений: 98
01.12.2022, 23:25
mr-Crocodile, странно, что вы согласны, что второе решение не соответствует условиям задачи, но при этом поставили ему лайк.
0
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
02.12.2022, 09:18
Цитата Сообщение от SpectatorBH Посмотреть сообщение
странно, что вы согласны, что второе решение не соответствует условиям задачи, но при этом поставили ему лайк.
могу пояснить, откуда взялся данный "лайк", почему я одобрил этот пост.

Насчёт того, что нужно сначала ввести переменные A, B, C сказано в задании, но это задание явно из "классики" - базовые знания и умения. Ожидается решение такое примерно, как твоё в пост #2 (ну или можно со вложенными IF замутить).
Тут, как говорится всё просто и вопросов нет.

А решение, которое предложено в пост #3 эффективно использует возможности именно PascalABC.NET, что для данного раздела, согласись, актуально. Вот за решение в один оператор (не считая ввод и вывод) я и поставил своё "одобрям-с"
Кому-то это будет полезно именно в плане изучения возможностей PascalABC.NET.

я ответил на твой вопрос?
1
02.12.2022, 22:31

Не по теме:


Т.е. вы предпочитаете выделять банальные решения "в один оператор" (как же я до него не додумался?!), даже несмотря на то, что они не соответствуют исх. заданию, а всего лишь приводят к тому же результату? Я уверен, что такое "эффективное" решение не принял бы ни один ответственный преподаватель -- ведь это задание явно не на знание стандартного метода сортировки массивов.

И, кстати, с чего вдруг вы перешли со мной на ты? Здесь, вроде, так не принято. Или вас спровоцировало молодежное слово "лайк"?

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.12.2022, 22:31
Помогаю со студенческими работами здесь

код на паскале
1.Выведите нечётные числа из диапазона от 1 до 20 в столбик, а чётные числа из диапазона от 20 до 40 — в строку через пробел. ...

Код на паскале в с++
Здраствуйте помогите пожалуйста перевести код из паскаля на с++... Program LAB1; uses crt; Procedure WriteByte(a:byte); var...

Код на Паскале.Перевести на Си
Вычесления значения многочлена по схеме Горнера. uses crt; type mas=array of real; function Gorner(a:mas;x:real;n:byte):real; ...

Задачка в паскале Код
В каких трехзначных числах удвоенная сумма цифр равна их произведению?

Код на паскале перевести в C++
Здраствуйте, есть код на паскале не могли бы вы помочь реализовать его на C++ uses crt,graphABC; var x,y: integer; procedure...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru