Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/12: Рейтинг темы: голосов - 12, средняя оценка - 4.58
Alegator
0 / 0 / 0
Регистрация: 12.04.2013
Сообщений: 2
1

Даны действительные числа х, у, z Вычислить максимум (x.y) + максимум (y.z) + максимум (х z)

12.04.2013, 20:09. Просмотров 2509. Ответов 2
Метки нет (Все метки)

1. Даны действительные числа х, у, z Вычислить максимум(x.y) + максимум(y.z) + максимум(х z)

2. Если сумма трех попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений

3. type цвет=(белый, красный, желтый, зеленый, синий, черный);
var с:цвет;
Напечатать значение переменной с.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2013, 20:09
Ответы с готовыми решениями:

Есть число n и действительные числа а1, а2, …an, найти максимум
дано число n и действительные числа а1, а2, …аn. Определить

Даны три числа A, B, C, написать программу поиска максимум и минимум
Здравствуйте! Помогите, пожалуйста, в оформлении задачи: Даны три числа A, B, C, написать...

Вычислить минимум и максимум
Привет))) помогите пожалуйста.... Даны действительные числа x, y, z. Вычислить: а)...

Если наибольшее среднее арифметическое меньше числа 3.2 , то все элементы матрицы разделить на этот максимум
В матрице C(5*3) вычислить среднее арифметическое в каждой строке. Если наибольшее среднее...

максимум в записях
Создать и вывести список сведений 5 персональных компьютеров следующей структуры: тип процессора,...

2
Ded_Vasilij
232 / 214 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
12.04.2013, 20:43 2
Лучший ответ Сообщение было отмечено Alegator как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
var
x,y,z,m1,m2,m3,res:single;
begin
 if(x > y) then m1 := x else m1:=y;
if(x> z) then m2 := x else m2 := z;
if (y > z) then m3 := y else m3:= z;
res:=m1+m2+m3;
writeln(res:5:5);
end.
1
Alegator
0 / 0 / 0
Регистрация: 12.04.2013
Сообщений: 2
12.04.2013, 21:45  [ТС] 3
Ded_Vasilij, Благодарю
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2013, 21:45

Максимум функции
Найти точку максимума X^n функции F(x) в промежутке с точностью до n значащих разрядов мантиссы...

Максимум из трех
Формат входных данных Даны три целых числа, каждое записано в отдельной строке. Формат выходных...

Максимум, минимум.
Для заданных чисел а,b,c,d найти a=min(a,d-2,b,c)+max(c+d,min(d,b)) За ранее спасибо огромное...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru