Вопрос по информатике:
Помогите пожалуйста. Напишите подпрограмму которая возвращает минимальное и максимальное значение из двух целых чисел A и B при помощи следующих формул.
min(a,b)=a+b-(a-b)/2
max(a,b)=a+b+(a-b)/2
- 13.07.2016 05:24
- Информатика
- remove_red_eye 16124
- thumb_up 12
Ответы и объяснения 1
Var a,b:integer;
procedure min(x,y:integer);
begin
writeln(x+y-(x-y)/2);
end;
procedure max(x,y:integer);
begin
writeln(x+y+(x-y)/2);
end;
begin
writeln('Введите A,B');
readln(a,b);
write('min(',a,',',b,') = '); min(a,b);
write('max(',a,',',b,') = '); max(a,b);
end.
Тестовое решение:
Введите A,B
5 8
min(5,8) = 14.5
max(5,8) = 11.5
Введите A,B
9 4
min(9,4) = 10.5
max(9,4) = 15.5
- 14.07.2016 18:39
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.