Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.05.2012, 20:28   #1
Gudzik11
Форумчанин
 
Регистрация: 20.10.2011
Сообщений: 138
По умолчанию Функция min

Здравствуйте ! Подскажите пожалуйста как сделать чтоб в мою функцию
входило число например +13 и выходило тоже +13

Код:
function min(a, b, c, d: Integer): Integer; // наименьшее число
var
  a1,a2 : Integer ;
begin
   if a<b then
      a1:=a
   else
   a1:=b;
   if c<d then
   a2:=c
   else
   a2:=d;
   if a1<a2 then
   min:=a1
   else
   min:=a2
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label6.Caption:= IntToStr(min( StrToInt(ini.ReadString('1','N10','')) ,StrToInt(ini.ReadString('1','N11','')),StrToInt(ini.ReadString('1','N12','')),StrToInt(ini.ReadString('1','N13',''))));
end;
Gudzik11 вне форума
Старый 03.05.2012, 20:35   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

min в Math
Код:
function MyMin(a, b, c, d: Integer): Integer;
begin
  Result:=min(min(a,b),min(c,d));
end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 03.05.2012, 21:54   #3
Gudzik11
Форумчанин
 
Регистрация: 20.10.2011
Сообщений: 138
По умолчанию

Не так сказал, сейчас в мою функцию входят 4 числа с разными знаками + - а когда выходят то знак про подает то есть если заходит +13 то выходит просто 13 а мне нужно чтоб знаки не пропадали
Gudzik11 вне форума
Старый 03.05.2012, 22:16   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Знак у Integer никуда не пропадает. Это вы при преобразовании Integer в String не показываете его. Без потери знака + можно хотя бы так:
Код:
s:=IntToStr(i);
if i>0 then s:='+'+s;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 03.05.2012, 23:12   #5
Gudzik11
Форумчанин
 
Регистрация: 20.10.2011
Сообщений: 138
По умолчанию

а если там минус был
Gudzik11 вне форума
Старый 03.05.2012, 23:20   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Минус IntToStr отображает
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 03.05.2012, 23:23   #7
Gudzik11
Форумчанин
 
Регистрация: 20.10.2011
Сообщений: 138
По умолчанию

спасибо всё работает
Gudzik11 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
max и min Кристинка89 Общие вопросы C/C++ 2 23.02.2011 15:24
Матрица Min-Max и Max-Min boog Помощь студентам 3 23.12.2010 13:19
функция нахождения max/min эл-та в массиве Zhenya-Pvl Паскаль, Turbo Pascal, PascalABC.NET 3 20.12.2010 14:31
min в массиве)) Dzhem Помощь студентам 7 04.03.2010 21:34
Функция маx и min! Чешитепузо Помощь студентам 2 27.03.2009 16:21