Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 15

Упорядочите числа в порядке неубывания

19.11.2011, 16:08. Показов 2096. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано три числа, записанный в отдельных строках. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a <= b <= c, затем программа выводит тройку a, b, c.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.11.2011, 16:08
Ответы с готовыми решениями:

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)
Пусть для целого n&gt;0 функция d(n) равна количеству делителей числа n. Дано m&gt;0. Упорядочить все числа n от 1 до m в порядке неубывания...

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)
Помогите составить программу: Пусть для целого n&gt;0 функция d(n) равна количеству делителей числа n. Дано m&gt;0. Упорядочить все числа...

Заданы две последовательности целых чисел, в первой из которых числа идут в порядке неубывания
Заданы две последовательности целых чисел, в первой из которых числа идут в порядке неубывания: x1,x2,..., а во второй - в порядке...

5
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.11.2011, 16:11
Милечка, что-то условие не совсем понятно...
1) с чем работаем: с массивом, строкой или просто значениями
2) менять значения переменных или менять их местами? и если менять значения, то по какому правилу?
0
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 15
19.11.2011, 16:19  [ТС]
не знаю, учитель так задал. вообщем нужно в порядке возростания поставить эти числа. А массивы мы не проходили еще =( Попробуйте решить как знаете
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.11.2011, 16:35
А процедуры вы уже изучали?
0
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 15
19.11.2011, 16:43  [ТС]
да. Я думаю с if ами решать надо. Последняя тема эта была
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.11.2011, 17:07
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Если с процедурами, то так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c: integer;
 
Procedure Obmen (var x,y: integer);
var z: integer;
begin
z:=x;
x:=y;
y:=z;
end;
 
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a>b then Obmen (a,b);
if b>c then Obmen (b,c);
if a>b then Obmen (a,b);
writeln(a,' ',b,' ',c);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.11.2011, 17:07
Помогаю со студенческими работами здесь

Задача со стеками. В первый стек поместить четные числа в порядке неубывания, во второй стек поместить нечетные
Даны четыре стека.Два первых стека пустые,а в двух других находятся натуральные числа.В первый пустой стек поместить четные числа в порядке...

Упорядочить массив в порядке неубывания
при вводе m&gt;0 выдает ошибку 201(((((( uses crt; function d(n:integer):integer; var i:integer; begin i:=2; while n mod...

Упорядочить массив в порядке неубывания
Помогите пожалуйста с заданием(( Дан массив a: array of integer. Упорядочить элементы массива а по неубыванию в соответствии со...

Переставить строки матрицы в порядке неубывания
Помогите с заданием(((((( Дана действительная матрица размером M*N. Пусть для каждой строки матрицы определена функция s(a), равная...

Упорядочить три числа в порядке неубывания
Помогите пожалуйста с двумя задачками на FPC: 1)Дано три числа. Упорядочите их в порядке неубывания. Программа должна считывать три числа...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru