Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
digtyarev1991
3 года назад
10
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Решить в Делфи 7
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
ЕЛЕНАКОЧЕТКОВА
3 года назад
0
0
Var
x, y, z, d: real;
function min(a, b: real): real;
begin
if a < b then
min := a
else min := b;
end;
function max(a, b: real): real;
begin
if a > b then
max := a
else max := b;
end;
begin
readln(x, y, z, d);
writeln(max(min(x, y), max(min(x, z), min(z, d))));
end.
Отправить
Читайте также
Сколько базовых цветов используется для получения цветного изображения на экране монитора
Patay [264]
3:красный, зелёный, синий
0
0
3 года назад
Объем сообщения содержащего 2048 символов равен 4 кбайт в какой кодировке было данное сообщение варианты ответов 1) 8 бит 2) 16
barrystorm [154]
2) 16 бит я так считаю
0
0
4 года назад
В массиве из 10 случайных чисел поменять местами все четные на 0 и вывести получившийся массив на экран
Zhenya1979 [243]
Program p1;
const n=10;
var a:array[1..n] of integer;
i:integer;begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
if (a[i] mod 2)=0 then a[i]:=0;
end;
for i:=1 to n do
begin
writeln(a[i]);
end;
<span>
end.</span>
0
0
3 года назад
Растровый графический файл содержит черно-белое изображение (без градаций серого) размером 100 на 100 точек. Какой объем памяти
turbo [9]
V=100*100=10000бит
0
0
4 года назад
Как называются величины, значения которых устанавливаются в определенной части программы один раз и не могут измениться в процес
МихаилМВ [80]
Константами их называют.
0
0
3 года назад
Прочитать ещё 2 ответа
Смотрите также:
Program prim3;Var a,b,c:integer;BeginWriteln ('введите три целых числа')Readln(a,b,c);If (aIf (bIf (celse write ('a=',a,'b=';b,'
12
·
1 ответ
Составьте программу нахождения суммы всех четных чисел от 10 до 100. 1 )использовать цикл с предусловием. 2 )использовать цикл с
9
·
1 ответ
СРОЧНО!!! Сколько секунд потребуется модему, передающему сообщения со скоростью 128000 бит/с, чтобы передать сообщение объёмом 2
14
·
1 ответ
В чём заключается покадровая анимация
13
·
1 ответ
В кодировке КОИ-8 каждый символ кодируется одним байтом.определите информационный объем сообщения из 30 символов в этой кодировк
11
·
1 ответ
Если мимо вас пробежали 2 спортсмена с номерами 14 и 96 сколько минимум и максимум спортсменов участвовало
5
·
2 ответа
Помогите пожалуйста!На языке ПаскальВ одномерном массиве, состоящем из п вещественных элементов, вычислить:1. Количество элемен
6
·
1 ответ
Тематически связанные web страницы обвчно бывают представленв в форме а)сайта б) клиента 3)документа 4)сервера
7
·
2 ответа
Реши примеры столбиком 855\5даю 10 балов
5
·
2 ответа
Нужно написать код сайта по картинке. 24 балла за выполнение
8
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!