Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
asyltas123
22.04.2023 07:42 •
Информатика
Решить в паскале с процедурой . даны действительные a, b, c, d. используя функции поиска максимума двух чисел max и минимума двух чисел min, получить: max(a, b)+min(a, b) +min(c,d) ––––—–– . max(a, b, c, d) + min(a,b,c)
Показать ответ
Ответ:
nataliastatinap0147d
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 оценок)
Популярные вопросы: Информатика
mityatimofeev
17.10.2021 02:28
Лина автомобильной дороги составляет n километров. часть дороги необходимо отремонтировать. при обследовании дорога была разбита на n участков длиной 1 километр, и для каждого участка...
energy428
31.03.2021 11:05
Нарисуйте программу, которая будет отображать элементы, которые вы ввели, затем увеличьте каждый элемент в 10 иллюстрациях. измененные элементы будут отображены на экране. х [13]...
elizaveta2001kz
20.01.2023 00:48
ребят сделать практическую работу. каждому....
OnePlus007
14.08.2020 14:50
Дайте ответ на вопрос. Еxcel. ...
ninadyukovap0a6fu
24.06.2021 22:58
1. имеется n типов. задано количество товаров каждого типа, цена за единицу товара и вес товара каждого типа. загрузить контейнер, не превышая заданной грузоподъемности, товарами одного...
zarinkakoshzhan
30.08.2022 17:38
Что будет выведено в ходе выполнения этой программы если в качестве n ввести число 5 n=textwindow . readnumber ( ) s= for k=1 to n s=s * tetxwindow .writeline (s) endfor 20...
nnursejt
20.08.2021 04:15
1.Укажите в холинергическом синапсе функции: 1 - ацетилхолина; 2 - М-холинорецептора; 3 - Н-холинорецепторы 2. С электрокардиографии можно диагностировать заболевания 1. инфаркт 2....
FedorAche
20.08.2021 04:15
Выполните действие:3x во 2 степени -x)+(x во 2 степени +4x)...
Ритка121
20.08.2021 04:15
Определите, какое это предложение: А рядом свищут соловьи и пеночки поют, а рядом яблони мои цвести не устают....
Tyan789
16.07.2020 00:50
Какова тема поэмы А.Т. Твардовского «Василий Тѐркин»: а) Весёлые и героические случаи из фронтовой жизни Василия Тѐркина. б) Трагическая сущность войны и стойкость русского солдата....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Вот, тут тебе и процедура, и функции:)