Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 27.03.2009, 16:20   #1
WADADA
Новичок
 
Регистрация: 27.03.2009
Сообщений: 1
Репутация: 10
По умолчанию максимальное из трёх чисел (Delphi)

Помогите написать задачу в Delphi "Найти максимальное значение из трех чисел a,b,c."

В Delphi не шарю вообще! помогите кто может! Заранее благодарю....
WADADA вне форума   Ответить с цитированием
Старый 27.03.2009, 16:35   #2
Neobrat
Форумчанин
 
Регистрация: 10.12.2007
Сообщений: 123
Репутация: 114
По умолчанию

вот тебе функция, сможешь ее сам то добавить в проект!? )))
если нет то извеняй...

Код:

function MaxValues(a,b,c:Double):Double;
var value:array[0..2] of Double;
begin
value[0]:=a;
value[1]:=b;
value[2]:=c;
result:=MaxValue(value);
end;

__________________
Русский язык не мой конёк

Последний раз редактировалось rpy3uH; 27.03.2009 в 17:31.
Neobrat вне форума   Ответить с цитированием
Старый 27.03.2009, 19:15   #3
Чешитепузо
 
Регистрация: 27.03.2009
Сообщений: 3
Репутация: 10
По умолчанию

я вот думаю это сильно замудренно написано! лучше поробуй так!
function max(x,y,z:real):real;
begin
if (x>y) and (x>z) then max := z
else if (y>x) and (y>z) then max := y
else if (z>x) and (z>y) then max := z;
end;
Чешитепузо вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить максимальное/минимальное значение функции y=f(x) astrozombie Помощь студентам 2 16.02.2009 14:52
Найти максимальное число.Паскаль. Karabas Паскаль 2 16.12.2008 22:13
Максимальное значение по дате ZUZA Microsoft Office Excel 5 05.07.2008 19:30
Наибольшее из трёх чисел в С++ Amen Общие вопросы C/C++ 19 08.03.2008 02:09


19:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru