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

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

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

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

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

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

Найти максимум из девяти чисел(максимум из трех чисел(максимум из двух чисел)
Сделал кароч ток не знаю что в конце писать вот код: function maks_2(a,b:real):real; begin if...

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

Отрицательные элементы массива разделить на его максимум. Вывести максимум и преобразованный массив
Все отрицательные элементы заданного массива L (11) разделить на максимальный элемент этого...

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

2
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
0 / 0 / 0
Регистрация: 12.04.2013
Сообщений: 2
12.04.2013, 21:45  [ТС] 3
Ded_Vasilij, Благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2013, 21:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Сгенерировать матрицу 5х5 найти максимум в каждой строке и сделать сдвиг каждой строки так чтобы максимум был на 0 позиции!?
Вот что сделал сам... import java.util.Random; public class Individ { public static void...

Умножьте все элементы матрицы на максимум главной диагонали. Вывести максимум главной диагонали
Умножьте все элементы матрицы на максимум главной диагонали. Вывести максимум главной диагонали.

Даны два массива, получить новый массив и найти в нем максимум
.Даны два массива А и В по 15 элементов в каждом. Получить новый массив ci=ai+bi. Найти в нем...

Среди введенных четных чисел найдите максимум (М1), также найдите максимум (М2) среди нечетных чисел
На вычислительной практие дали такое задание: С клавиатуры вводится произвольная...

Вычислить максимум в последовательности
Всем привет!!! ребят помогите пожалуйста решить) . Даны два числа x и y. Вычислить ...


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

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

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