Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вывести сумму чисел x+y+z Вывести сумму чисел x+y+z, определить четная ли она,если четная, то найти значение произведения xyz 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 Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце.(Метод простого выбора).

Puporev

Почетный модератор

64272 / 47571 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

26.11.2018, 08:26

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

26.11.2018, 08:26. Показов 3485. Ответов 2

Метки (Все метки)

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

Решение

Pascal

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

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.11.2018, 08:26

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.11.2018, 08:26

Помогаю со студенческими работами здесь

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

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

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

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

Наверх