0 / 0 / 1
Регистрация: 14.01.2010
Сообщений: 78
1

Найти max{min(a,b), min(c,d)}

14.01.2010, 18:31. Показов 33702. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти max{min(a,b), min(c,d)}.

написать в Паскале.Помогите очень надо до завтра!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2010, 18:31
Ответы с готовыми решениями:

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке
Дан массив Х{80 элементов}. Вычислить {y}_{i}=sin\sqrt{{x}_{i}}+{cos}^{2}{{x}_{1}}^{2} Найти...

Записи: выяснить max и min сроки хранения товаров на складе; max и min цену товаров до уценки и после уценки
Торговый склад производит уценку хранящейся продукции. Если продукция хранится на складе дольше п...

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c)
Даны целые числа a, b, c. Вычислить у-сумму. y=min(a,b+c)+max(ac,b)+min(a2,c) ????

Найти max и min (командой down to)
Из 6 заданных чисел найти максимум минимум. Вывести на печать эти числа с указанием четное оно или...

6
3310 / 1372 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
14.01.2010, 18:33 2
подробнее можно задание.
0
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
14.01.2010, 18:36 3
Цитата Сообщение от Nipel Посмотреть сообщение
написать в Паскале.Помогите очень надо до завтра!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function max(a,b:integer):integer;
begin
if a > b then max:=a else max:=b;
end;
 
function min(a,b:integer):integer;
begin
if a < b then min:=a else min:=b;
end;
 
//... ввод a,b,c,d
 
writeln('max{min(a,b), min(c,d)}=',max(min(a,b),min(c,d)));
1
Retired
7726 / 2558 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
14.01.2010, 18:39 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function Max(a,b:integer):integer;
begin
  if a>b then
    Max:=a
  else
    Max:=b
end;
function Min(a,b:integer):integer;
begin
  if a<b then
    Min:=a
  else
    Min:=b
end;
var
  a,b,c,d:integer;
begin
  readln(a,b,c,d);
  writeln('Result:=',Max(Min(a,b),Min(c,d)))
end.
2
0 / 0 / 1
Регистрация: 14.01.2010
Сообщений: 78
14.01.2010, 18:50  [ТС] 5
Цитата Сообщение от Wolf Посмотреть сообщение
подробнее можно задание.
больше нету

Добавлено через 3 минуты
Цитата Сообщение от Inadequate Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function Max(a,b:integer):integer;
begin
  if a>b then
    Max:=a
  else
    Max:=b
end;
function Min(a,b:integer):integer;
begin
  if a<b then
    Min:=a
  else
    Min:=b
end;
var
  a,b,c,d:integer;
begin
  readln(a,b,c,d);
  writeln('Result:=',Max(Min(a,b),Min(c,d)))
end.
интересно, я думал там по другому, спасибо

Добавлено через 7 минут
а можете блок-схему нарисовать?
0
0 / 0 / 0
Регистрация: 09.09.2019
Сообщений: 23
24.12.2019, 09:03 6
Спасибо всем за помощь, постараюсь оформить блок схему человеку выше.
0
Модератор
9536 / 4862 / 3231
Регистрация: 17.08.2012
Сообщений: 15,213
29.12.2019, 04:05 7
Sputnik01, теме скоро будет 10 лет, зачем Вы её потревожили?

Хотя, блок-схему выкладывайте, может быть, кому-нибудь пригодится.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.12.2019, 04:05
Помогаю со студенческими работами здесь

Найти Min и Max на интервале
Даны числа a,b(0&lt;a&lt;b) и набор из десяти элементов. Найти минимальный1| максимальный2 из элементов,...

Найти в массиве сумму min и max
Здравствуйте, помогите решить Найти в массиве сумму минимального и максимального элемента. Вывести...

Найти max и min элементы прямоугольной матрицы
Знакомая попросила помочь, но всё руки не доходят разобраться, полные завалы со всех сторон....

Найти разность max и min среди 10 чисел
Здравствуйте, нужно составить програму нахождения разности максимального и минимального среди 10...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru