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

Создание модулей. В модуле описать функции нахождения минимального и максимального значения

31.05.2012, 23:38. Просмотров 1294. Ответов 3
Метки нет (Все метки)

даны целые числа а,в,с. Создать модуль который найдет мах и мин, и используя этот модуль найти функцию f=max(a+c,a+b)+min(a+b,b+c)/1+max(a+bc,4.15)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2012, 23:38
Ответы с готовыми решениями:

Рекурсивная функция нахождения максимального и минимального значения
Рекурсивная функция нахождения максимального и минимального значения

Создать dll для нахождения минимального и максимального значения из чисел
помогите пожалуйста создать dll для нахождения минимального и максимального значения из чисел,...

Составьте программу нахождения максимального и минимального значения одномерного массива
Составьте программу нахождения максимального и минимального значения одномерного массива К(n)...

Функции нахождения минимального, максимального из двух значений
Помогите, пожалуйста, написать программу :) Заранее благодарен :)

__________________
3
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
31.05.2012, 23:41 2
модуль
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit myunit;
 
interface
uses crt;
 
function Max(x,y:real): real;
function Min(x,y:real): real;
 
implementation
 
function Max(x,y:real): real;
begin
if x>y then Max:=x else Max:=y;
end;
 
function Min(x,y:real): real;
begin
if x<y then Min:=x else Max:=y;
end;
 
end.
основная программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt,myunit;
var a,b,c,f:real;
 
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
f:=(Max(a+c,a+b)+Min(a+b,b+c))/(1+Max(a+(b*c),4.15));
write('f=',f:0:3);
readln
end.
1
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
31.05.2012, 23:47  [ТС] 3
Ошибка выходит((
0
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
31.05.2012, 23:57 4
Araylim, последовательность действий
1) запустить Турбо паскаль, открыть модуль (сохраненный под именем myunit.pas)
2) откомпилировать его Compile --> Compile
3) открыть основную прогамму, запустить
компьютер должен запросить переменные. у меня сработало, когда unit находился в общей папке ТП
0
Изображения
 
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2012, 23:57

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

Написать функцию для нахождения максимального и минимального значения из двух чисел
Написать функцию для нахождения максимального и минимального значения из двух чисел, полученных в...

Ошибка при создании алгоритма нахождения максимального и минимального значения в масиве
Добрый день! Сразу к делу, в институте по примету Алгоритмы нам задали сделать программу по...

Разработать командлет для нахождения минимального и максимального значения чисел, хранящихся в файле
Здравствуйте, требуется помощь с задачами, которые нужно выполнить в PowerShell Разработать...

Математическая функция для которой нужно решить задачу нахождения максимального (минимального) значения
Математическая функция для которой нужно решить задачу нахождения максимального (минимального)...


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

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

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