Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
23 / 23 / 12
Регистрация: 27.12.2011
Сообщений: 855
1

Использование модуля для писка min and max

08.01.2012, 21:37. Показов 1570. Ответов 1
Метки нет (Все метки)

Доброго времени суток.
Помогите пожалуйста решить задачку:
Напишите программу, использующую модуль, в котором описаны 2 функции: первое нахождение максимального из 3-х чисел, вторая - минимальное из 3-х чисел.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2012, 21:37
Ответы с готовыми решениями:

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))
Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с...

По заданным значениям x, y, z вычислить значения u: u=min (x, max(y, z). Для расчета написать функции max(x, y) и min(x
По заданным значениям x, y, z вычислить значения u: u=min (x, max(y, z)). Для расчета написать...

Использование значений a1 для подсчета min/max функции
Доброго времени суток! Успешно написал программу для вывода значений для параметра "а" в...

Описать функцию F (a, min, max ) определяющую значение максимального max и минимального min элементов этого массива
Помогите с задачкой! плиз! Для вещественного массива а, описать функцию F (a, min, max )...

1
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
08.01.2012, 21:53 2
Лучший ответ Сообщение было отмечено SuLLeN как решение

Решение

Модуль:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 unit min_max;
 
 interface
 var m:integer;
 function Min(a,b,c:integer):integer;
 function Max(a,b,c:integer):integer;
 
 implementation
 function Min(a,b,c:integer):integer;
   begin
   m:=a;
   if b<m then m:=b;
   if c<m then m:=c;
   Min:=m;
   end;
 function Max(a,b,c:integer):integer;
   begin
   m:= a;
   if b>m then m:=b;
   if c>m then m:=c;
   Max:=m;
   end;
 end.
Основная программа:
Pascal
1
2
3
4
5
6
7
8
9
 uses crt,min_max;
 
 var a,b,c:integer;
 
 begin
    Write('Введите три числа: ');readln(a,b,c);
    Writeln('Максимальный = ',max(a,b,c));
    Writeln('Минимальный  = ',min(a,b,c));
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2012, 21:53

Найти max и min элементы в массиве и номер элемента, близкого к среднему арифметическому min и max.
Привет всем! Очень прошу помочь в решении задачи на определение характеристик одномерного массива....

Написать программу создания модуля UNIT: 1)Сумма положительных элементов 2)от min до max
Написать программу создания модуля UNIT: 1)Сумма положительных элементов 2)от min до max ...

Найти max и min, если min левее max, то среднее арифметическое между ними
#include &lt;iostream.h&gt; #include &lt;stdio.h&gt; #include &lt;conio.h&gt; #include &lt;math.h&gt; void main() {...

Использование Count() в сочетании с MAX() и MIN()
Добрый день! Очень надеюсь на Вашу помощь. Две таблицы: &quot;Рейсы&quot; и &quot;Билеты&quot;. Из первой мы берем...


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

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

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