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

Составить алгоритм нахождения полусуммы наименьшего и наибольшего числа

10.10.2015, 14:08. Просмотров 1443. Ответов 3
Метки нет (Все метки)

Необходимо составить алгоритм нахождения полусуммы наименьшего и наибольшего числа из a b c d чисел действительных
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2015, 14:08
Ответы с готовыми решениями:

Составить алгоритм нахождения суммы наибольшего и наименьшего из заданных чисел
Составить алгоритм нахождения суммы наибольшего и наименьшего из заданных чисел x1, x2, х3, ..., xn

Процедура нахождения наибольшего и наименьшего числа
Привет всем ) столкнулся с очердной проблемой а точнее с процедурой и функцией . Кому не сложо...

Составить алгоритм нахождения суммы наибольшего и наименьшего из заданных чисел
:(:(

Составить программу для нахождения наибольшего и наименьшего общего делителя и наименьшего общего кратного двух натуральных чисел
Составить программу для нахождения наибольшего и наименьшего общего делителя и наименьшего общего...

3
Модератор
60153 / 45303 / 31264
Регистрация: 18.05.2008
Сообщений: 108,816
10.10.2015, 14:45 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

С функциями
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
function min(a,b:real):real;
begin
if a<b then min:=a
else min:=b;
end;
function max(a,b:real):real;
begin
if a>b then max:=a
else max:=b;
end;
var a,b,c,d,p:real;
begin
clrscr;
writeln('Введите 4 числа:');
readln(a,b,c,d);
p:=(max(max(a,b),max(c,d))+min(min(a,b),min(c,d)))/2;
write('Полусумма максимального и минимального=',p:0:2);
readln
end.
Без функций
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,b,c,d,mn,mx,p:real;
begin
clrscr;
writeln('Введите 4 числа:');
readln(a,b,c,d);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if d>mx then mx:=d;
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
if d<mn then mn:=d;
p:=(mx+mn)/2;
write('Полусумма максимального и минимального=',p:0:2);
readln
end.
0
0 / 0 / 0
Регистрация: 05.04.2012
Сообщений: 56
10.10.2015, 16:08  [ТС] 3
Надо был алгоритм но по коду понятно, по оформлению может что добавить, все циклы и условия прописал
0
Миниатюры
Составить алгоритм нахождения полусуммы наименьшего и наибольшего числа  
0 / 0 / 0
Регистрация: 05.04.2012
Сообщений: 56
10.10.2015, 16:17  [ТС] 4
В архиве качество получше
0
Вложения
Тип файла: rar 1.1 Алгоритм.rar (30.1 Кб, 4 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2015, 16:17

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

Составить программу нахождения из трех чисел наибольшего и наименьшего.
...................

Найти сумму значений элементов, которые меньше полусуммы наименьшего и наибольшего значений
Помогите пожалуйста с задачей Дан целочисленный массив A(N), заданный датчиком случайных чисел в...

Составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел
составить программу для нахождения наибольшего общего и наименьшего общего кратного двух...

Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел
Помогите решить, пжл. Составить программу для нахождения наибольшего общего делителя и...


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

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

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