Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
maryrous
30.01.2023 07:23 •
Информатика
Решить в паскале с процедурой . даны действительные a, b, c, d. используя функции поиска максимума двух чисел max и минимума двух чисел min, получить: max(a, b)+min(a, b) +min(c,d) ––––—–– . max(a, b, c, d) + min(a,b,c)
Показать ответ
Ответ:
Kylie15
01.10.2020 12:12
Function min(a, b: real): real;
begin
if ((a = b) or (a < b)) then result := a
else result := b;
end;
function max(a, b: real): real;
begin
if ((a = b) or (a > b)) then result := a
else result := b;
end;
procedure prog(a, b, c, d: real);
begin
writeln(max(a, b)+min(a, b) + min(c,d));
end;
var a, b, c, d: real;
begin
readln(a, b, c, d);
prog(a, b, c, d);
end.
Вот, тут тебе и процедура, и функции:)
0,0
(0 оценок)
Популярные вопросы: Информатика
abdrahmanova136
02.07.2021 09:49
В одному рядку деякого тексту розміщується в середньому 60 символів, а на одній сторінці — 40 рядків. Скільки закодованих сторінок цього тексту можна взяти, щоб довжина...
dscirina
18.05.2020 05:22
Pascal / c++ на вход программе два целых числа: n и m, каждое в отдельной строке 0 n = 12 0 = m 60, указывающие момент времени n часов m минут . определите наименьшее число...
PROmax100
10.03.2021 19:10
Привет с легкими задачами в Lazarus! 1) Площадь прямоугольника С м кв. Чему равен периметр прямоугольника, если его длинна d м? 2) Найдите площадь круга S, если известна...
AmAss
16.05.2021 18:30
ЧИТАЮ ЗАДАНИЯ И ВООБЩЕ НИЧЕГО НЕ ПОНИМАЮ, ЧТО НУЖНО СДЕЛАТЬ Задание 1 Используя код Хэмминга, постройте кодовое слово для числа 7 Задание 2 После кодирования методом RLE...
pro100leramakh
04.08.2022 00:56
Решите информатику В программе знак «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления....
ДашаЛис56
07.05.2020 17:07
Впрямоугольном треугольнике один из острых углов 30 градусов, а противолежащий ему катет равен 6 см. чему равна гипотенуза....
rope22
07.05.2020 17:07
Сочинение на тему добро- , надо на 70, т.е. по формату огэ....
наифа
07.05.2020 17:07
Составить 5 предложений по языку с притяжательным падежом и существитнльных...
Arcator
07.05.2020 17:07
Решить ! ! высота правильной четырехугольной пирамиды равна 16 см, боковое ребро 20 см. найти диагональ основания....
dmukh
07.05.2020 17:07
Краткое описание ревизора гогль. 20 !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
if ((a = b) or (a < b)) then result := a
else result := b;
end;
function max(a, b: real): real;
begin
if ((a = b) or (a > b)) then result := a
else result := b;
end;
procedure prog(a, b, c, d: real);
begin
writeln(max(a, b)+min(a, b) + min(c,d));
end;
var a, b, c, d: real;
begin
readln(a, b, c, d);
prog(a, b, c, d);
end.
Вот, тут тебе и процедура, и функции:)