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

Минимальное из трех вещественных чисел

20.10.2010, 00:06. Показов 1709. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Описать функцию Min3(A,B,C) вещественного типа, находящую минимальное из трех вещественных чисел A, B и C. С помощью этой функции найти минимальные из наборов (A,B,C), (A,B,D), (A,C,D), если даны числа A, B, C, D

проверьте

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program min;
var a,b,c,d:real;
function min3(a,b,c:real):real;
var min:real;
begin
if a>b then min:=a else min:=b;
if min<c then min:=c;
min3:=min;
end;
begin
writeln('‚ўҐ¤ЁвҐ a,b,c,d');
readln(a,b,c,d);
writeln(min3(a,b,c));
writeln(min3(a,b,d));
writeln(min3(a,c,d));
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.10.2010, 00:06
Ответы с готовыми решениями:

Определить максимальное и минимальное из трех вещественных чисел,вводимых с клавиатуры.
Определить максимальное и минимальное из трех вещественных чисел,вводимых с клавиатуры.

Описать функцию вещественного типа, находящую минимальное из трех вещественных чисел
Описать функцию Min3(A,B,C) вещественного типа, находящую минимальное из трех вещественных чисел A, B и C. С помощью этой функции найти...

Найти минимальное из трёх чисел
Тема: Процедуры пользователя 1. Найти минимальное из A, B, C, создав процедуру выбора минимального из двух произвольных чисел. 2....

1
 Аватар для HERETIC
95 / 96 / 13
Регистрация: 10.10.2008
Сообщений: 606
20.10.2010, 12:39
Шестую строку надо переписать так:
Pascal
1
if a>b then min:=b else min:=a;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.10.2010, 12:39
Помогаю со студенческими работами здесь

Вычислить дробную часть среднего геометрического трех заданных вещественных чисел
Доброго времени суток!Помогите, пожалуйста, составить блок-схему на языке Turbo Pascal- Вычислить дробную часть среднего геометрического...

Вычислить квадратный корень суммы трёх вещественных чисел, введённых с клавиатуры
Напишите программу, которая вычисляет квадратный корень суммы трёх вещественных чисел, введённых с клавиатуры. Результат, округлённый до...

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

Найти минимальное из трех чисел (с использованием функции)
Заданы три матрицы А(3,3), В(2,2), С(3,3). Найти минимальное из трех чисел х, у,z , где х - след матрицы А, у- след матрицы В, z -след...

Известны три квадратные матрицы А, В, С. Найти минимальное из трех чисел x,y,z
Известны три квадратные матрицы А, В, С. Найти минимальное из трех чисел x,y,z где x сумма всех диагональных элементов матрицы А, где y...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
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 и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru