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

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))

30.01.2012, 23:00. Показов 7908. Ответов 2
Метки нет (Все метки)

Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с помощью использования процедур.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2012, 23:00
Ответы с готовыми решениями:

18. Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).

Найти max и min элементы в массиве и номер элемента, близкого к среднему арифметическому min и max.
Привет всем! Очень прошу помочь в решении задачи на определение характеристик одномерного массива....

Написать программу, которая вычисляет значение выражения u = max(x,y,z)^2 - min(x,y,z)^2 / (max(x,y,z) + min(x,y,z))^2
Написать программу которая проверяет по заданным трем значениям x,y,z и вычисляет следующее...

Вычислить Z=(X[max]-Y[min])/2, где Х[max] - максимальный элемент массива Х(50), Y[min] - минимальный элемент массива Y(40)
помогите пожалуйста: Вычислить Z=(X-Y)/2, где Х - максимальный элемент массива Х(50), Y -...

2
60 / 40 / 30
Регистрация: 26.05.2011
Сообщений: 92
30.01.2012, 23:14 2
looker, наверное всё-таки с использованием не процедур, а функций?
0
Mobile Software Engineer
Эксперт С++
5365 / 1584 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
30.01.2012, 23:14 3
Лучший ответ Сообщение было отмечено looker как решение

Решение

опять же
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure Min(a, b, c: integer);
var
 min: integer;
begin
 min:=a;
  if b < min then min:=b
   else if c < min then min:=c;
 writeln(min);
end;
 
procedure Max(a, b, c: integer);
var
 max: integer;
begin
 max:=a;
  if b > max then max:=b
   else if c > max then max:=c;
 writeln(max);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2012, 23:14
Помогаю со студенческими работами здесь

Вычислить max(min(3,5), min(2,6))
написать программу вычисляющую max((min(3,5),min(2,6)).

Вычислить max(min(X,Y), min(Z,D))
Даны действительные числа X,Y,Z,D. Вычислить max(min(X,Y), min(Z,D)). Делает все через if а...

Даны вещественные числа x, y, z. Найти min(max(x+1,y-1), min(y,z)
Даны вещественные числа x, y, z. Найти min(max(x+1,y-1), min(y,z)). работа в Pascal Помогите...

Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a), Y2=min(Y12+Y
Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a)),...

Даны действительные числа x,y,z. Вычислить (min(x,y)+min(y,z)+min(x,z))/min(x,y,z)
Даны действительные числа x,y,z. Вычислить (min(x,y)+min(y,z)+min(x,z))/min(x,y,z). Подскажите,...

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


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

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

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