Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вывести сумму чисел x+y+z Вывести сумму чисел x+y+z, определить четная ли она,если четная, то найти значение произведения x*y*z https://www.cyberforum.ru/ pascalabc/ thread2358642.html Pascal ABC Табличная шифровка с ключевым словом
Помогите пожалуйста.Фраза вводится. Разбивается побуквенно в матрицу (вертикально). Также вводится ключевое слово но в первой строке. Выглядеть так должно Ш И Ф Р 1 2 3 4 П Г П Л О И О У М Т Ж...
Pascal ABC Найти максимальное количество вариантов вырубки деревьев В ряд посажены N деревьев, расстояние между соседними деревьями одинаковое. Нужно найти максимальное кол-во вариантов вырубки, при условии что должно остаться M деревьев, и после вырубки соседние... https://www.cyberforum.ru/ pascalabc/ thread2358546.html Pascal ABC Суммы зеркальных элементов массива https://www.cyberforum.ru/ pascalabc/ thread2358537.html
Почему то новый массив формируется не правильно. Начальный массив это последовательность чисел от 1 до 16 и мне нужно чтобы был новый массив состоящий из суммы первого и последнего, второго и...
Pascal ABC Ожидалось константное выражение
Ошибка "Ожидалось константное выражение" в 8 строке.Не понимаю в чем ошибка ведь m есть в константах, program lab3_var4; const n=16; m=trunc(n/2); namef='massiv.txt'; type ivect=array of...
Pascal ABC Написать программу, которая проверяет сколько различных элементов содержит вектор Дан одномерный массив B из n вещественных элементов (n=10). Написать программу, которая проверяет сколько различных элементов содержит вектор. https://www.cyberforum.ru/ pascalabc/ thread2358454.html
Pascal ABC Написать программу, которая проверяет если все элементы массива принадлежат интервалу [1;m] https://www.cyberforum.ru/ pascalabc/ thread2358453.html
Дан одномерный массив A из n вещественных элементов (n=10). Написать программу, которая проверяет если все элементы массива принадлежат интервалу .
Pascal ABC Создание и реализация программ с использованием циклов
Сведения об ученике состоят из его имени и фамилии, названия класса (года обучения и буквы), в котором он учится, оценок, полученных учеником за последнюю четверть. Пусть дан массив, содержащий...
Pascal ABC Написать программу, которая считывает текст из файла и выводит на экран предложения, начинающиеся с однобуквенных слов https://www.cyberforum.ru/ pascalabc/ thread2358417.html
Написать программу, которая считывает текст из файла и выводит на экран сначала предложения, начинающиеся с однобуквенных слов, а затем все остальные.
Pascal ABC Получить MIN(a1/a9, a2/a10, …, a8/a16) https://www.cyberforum.ru/ pascalabc/ thread2358265.html
Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 90. Получить MIN(a1/a9, a2/a10, …, a8/a16). Помогите пожалуйста.
Pascal ABC Получить третий массив из элементов первых двух, расположив их в порядке убывания
Заданы два одномерных массива. Получить третий массив из элементов первых двух, расположив их в порядке убывания.
Pascal ABC Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце https://www.cyberforum.ru/ pascalabc/ thread2358223.html
Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце.(Метод простого выбора).
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.11.2018, 08:26 0

Наименьшее из трёх чисел заменить их средним арифметическим, а наибольшее - их удвоенным произведением - Pascal ABC - Ответ 13095827

26.11.2018, 08:26. Показов 3485. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var x,y,z,mn,mx,sr,p:real;
begin
writeln('Введите 3 действительных числа');
readln(x,y,z);
if x<y then mn:=x else mn:=y;
if z<mn then mn:=z;
if x>y then mx:=x else mx:=y;
if z>mx then mx:=z;
writeln('Минимальное=',mn:0:2,' максимальное=',mx:0:2);
sr:=(x+y+z)/3;
p:=2*x*y*z;
mn:=sr;
mx:=p;
writeln('После замены: минимальное=',mn:0:2,' максиальное=',mx:0:2)
end.


Вернуться к обсуждению:
Наименьшее из трёх чисел заменить их средним арифметическим, а наибольшее - их удвоенным произведением Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2018, 08:26
Готовые ответы и решения:

Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением
Даны 2 числа. Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их...

Наименьшее из 3 чисел заменить их средним арифметическим, наибольшее - удвоенным произведением
помогите плз,не могу сделать задание(&quot;Вывести три действительных числа,наименьшее из них заменить...

Наибольшее из трех чисел заменить средним геометрическим значением, наименьшее их утроенным произведением
Условие : Ввести три действительных числа. Наибольшее из них заменить их средним геометрическим...

Дано три числа a, b, c. Наибольшее (наименьшее) из этих чисел заменить их средним арифметическим
Помогите с задачей… Дано три числа a, b, c. Наибольшее (наименьшее) из этих чисел заменить их...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2018, 08:26
Помогаю со студенческими работами здесь

Два действительных числа, заменить меньшее средним арифметическим, а большее - произведением
Заданы два действительных числа, не равные друг другу (если введены два одинаковых числа, попросить...

Наименьшее из трех чисел заменить произведением двух остальных
1) Если произведение трех попарно различных действительных чисел x, y, z - число отрицательное, то...

Найти разность между средним арифметическим и средним геометрическим трех чисел
Задача: Найти разность между средним арифметическим и средним геометрическим трех чисел: 1. Целых...

Есть 2 разных числа А и В: наибольшее из них заменить средним арифметическим
Есть 2 разних числа А и В найбольшее из них заменить средним арефметичьним. Должно бить два окошка...

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