Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 25.05.2009
Сообщений: 8

Описать процедуру Minmax(X, Y ).

25.05.2009, 01:56. Показов 1770. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Описать процедуру Minmax(X, Y ), записывающую в переменную X минимальное из значений X и Y, а в переменную Y —максимальное из этих значений (X и Y — вещественные параметры, являющиеся одновременно входными и выходными). Используя процедуру найти минимальное и максимальное из данных чисел A, B, C, D.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.05.2009, 01:56
Ответы с готовыми решениями:

Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений.
Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений...

Описать процедуру
Описать процедуру , которая для трех чисел осуществляет пере-распределение значений по правилу a<=b<=c. Зарание спасибо :)

Описать рекурсивную процедуру
Описать рекурсивную процедуру (функцию), которая по целому неотрицательному числу n дает n-1 число Фибоначчи. Fn+2 = Fn+1 +Fn; F1=1, F2=1....

1
Посланник моего господина
111 / 106 / 52
Регистрация: 02.05.2009
Сообщений: 181
25.05.2009, 11:27
Лучший ответ Сообщение было отмечено Галина Косырева как решение

Решение

В чём сложность у тебя с этой задачей?
Pascal
1
2
3
4
5
6
7
8
9
10
procedure MinMax(var X,Y:integer);
var t:integer;
begin
if X>Y then
  begin
    T:=X;
    X:=Y;
    Y:=X;
  end;
end;
Как использовать процедуру, чтоб найти минимальное и максимальное из данных чисел A, B, C, D? Можно придумать что-то такое:
Pascal
1
2
3
4
5
6
7
8
procedure Task(A,B,C,D:integer);
begin
MinMax(A,B); //А — меншее из {A,B}
MinMax(C,D); //D — большее из {C,D}, С — меншее из этошо множества
MinMax(A,C); //A — меншее из {A,C} == {A,B,C,D}
MinMax(B,D); //D — большее из {B,D} == {A,B,C,D}
write(A,' ',D);
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.05.2009, 11:27
Помогаю со студенческими работами здесь

описать процедуру ClearMin(А,В)
описать процедуру ClearMin(А,В), заменяющую меньшее из двух чисел А и В нулем(А иВ - вещественные параметры-переменные). продемонстрировать...

Описать процедуру Nal(sh, A)
type food = ( broad, butter, milk, meat, fish, salt, cheese, saucers, sugar, tea, cafe); assort = set...

Описать процедуру change (x,y,z)
const n=20 type вектор:=array of real; Описать процедуру изм (x,y,z), которая в том из векторов x,y,z , где больше всего "-"...

Описать процедуру ADDLeftDigit
Народ нужна помощь. Описать процедуру AddLeftDigit(D, K), добавляющую к целому положительному числу K слева цифру D (D — входной...

Описать процедуру Swap
нужна помощь!!! Вот условие: Описать процедуру Swap(X, Y), меняющую содержимое переменных X и Y (X и Y — вещественные параметры,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru