Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
dwq
0 / 0 / 0
Регистрация: 04.11.2009
Сообщений: 47
#1

Описание функции вещественого типа - Pascal

23.02.2010, 01:27. Просмотров 404. Ответов 1
Метки нет (Все метки)

. Описать функцию Max3(A,B,C) вещественного типа, находящею из трех вещественных чисел A,B и C. С помощью этой функции найти максимальные из наборов (A,B,C),(A,B,D), (A,C,D), если даны числа A,B,C,D.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.02.2010, 01:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Описание функции вещественого типа (Pascal):

Описание функции
Всем привет. Помогите, пожалуйста ,с такой не сложной задачей: Нужно описать...

описание функции OctDigitCount(n)
описание функции OctDigitCount(n), подсчитывающую количество различных...

Описание рекурсивной функции
Помогите пожалуйста решить задачку с рекурсиями... Задача: Описать рекурсивную...

Запрограммировать описание одномерного массива с элементами типа "record" (зачетная книжка)
Запрограммировать на языке ПАСКАЛЬ описание одномерного массива с элементами...

Навести код функции c именем Exists буливского типа с формальными параметрами
треугольник, задается длинами 3-х сторон: A,b,c типа real. Навести код...

Описать функции DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К
Proc30 Описать функци DigitN(K,N) целого типа, возвращающую N-ю цифру...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
23.02.2010, 08:33 #2
Лучший ответ Сообщение было отмечено dwq как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
function Max3(x,y,z:real):real;
var mx:real;
begin
mx:=x;
if y>mx then mx:=y;
if z>mx then mx:=z;
Max3:=mx;
end;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите 4 числа:');
readln(a,b,c,d);
write('Максимум из наборов ABC,ABD,ACD=',Max3(Max3(a,b,c),Max3(a,b,d),Max3(a,c,d)):0:2);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2010, 08:33
Привет! Вот еще темы с решениями:

Задача на описание функции Power2(A, N) вещественного типа
Описать функцию Power2(A, N) вещественного типа, находящую величину Aв степени...

Задача на описание функции Leng(x_A, y_A, x_B, y_B) вещественного типа
Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину...

как убрать нули с вещественого числа
Помогите пожалуйста! Есть число double value == 12 650 320. 250 000 Как...

Описание типа Интервал
в книге видел мельком тип, описывающий интервалы (вроде диапазон), не...


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

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

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