Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348941 Thu, 27 Aug 2009 09:22:19 +0000 Error: Incompatible types: got "Boolean" expected "Int 64" https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348941 Цитата volvo877 @
Но остальные же не учатся на связистов, что, они должны ломать глаза? Ладно было бы как в некоторых языках: 10_000_000_000 - никаких проблем с восприятием. Но просто нули, подряд... :wacko:


Я просто привык нули считать, поэтому у меня вопросов такие записи не вызывают.

Цитата volvo877 @
Цитата (Polinom2686 @ Сегодня, 09:33)
Эта программа из разряда "сделать и забыть"
<_< В следующий раз предупреждай, что тебе "просто заставить программу работать, а там - хоть трава не расти", я к таким программам (и "программистам" тоже) отношусь по-другому, для них есть специальный раздел.


Что за раздел?
А "сделать и забыть" из-за того что программа нужна в одном экземпляре (в крайнем случае не более 3-х).]]> Polinom2686 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348840 Thu, 27 Aug 2009 08:04:21 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348840 Polinom2686 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348830 Thu, 27 Aug 2009 08:01:17 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348830 Цитата Polinom2686 @
не даром на инженера связиста учусь
Но остальные же не учатся на связистов, что, они должны ломать глаза? Ладно было бы как в некоторых языках: 10_000_000_000 - никаких проблем с восприятием. Но просто нули, подряд... :wacko:

Цитата Polinom2686 @
Эта программа из разряда "сделать и забыть"
<_< В следующий раз предупреждай, что тебе "просто заставить программу работать, а там - хоть трава не расти", я к таким программам (и "программистам" тоже) отношусь по-другому, для них есть специальный раздел.]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348675 Thu, 27 Aug 2009 06:33:55 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348675 Цитата miksayer @
Цитата (Polinom2686 @ Вчера, 12:35)
Нет, не путаюсь. Спасибо за идею, но мне кажется в данном случае она мне не пригодится. Работоспособность и правильность работы функции уже проверена, а изменять эту функцию мне не нужно.

а представь, что кто-то потом будет читать твой код(только не говори, что этот код никто кроме тебя читать не будет, даже если и так, то нужно приучивать красиво писать код)? у меня, например, в глазах рябит от этих нулей. Вообще все это дело называется "магические числа"



Вот как раз этот код никто кроме меня читать не будет :). Тот для кого программа предназначена, программированием не интересуется. Эта программа из разряда "сделать и забыть". ;)
Цитата miksayer @
у меня, например, в глазах рябит от этих нулей.

Это уже ваши проблемы, я нули нормально воспринимаю, не даром на инженера связиста учусь :).

Добавлено
Причем здесь вообще магические числа?]]> Polinom2686 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348455 Wed, 26 Aug 2009 19:39:35 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2348455 Цитата Polinom2686 @
Нет, не путаюсь. Спасибо за идею, но мне кажется в данном случае она мне не пригодится. Работоспособность и правильность работы функции уже проверена, а изменять эту функцию мне не нужно.

а представь, что кто-то потом будет читать твой код(только не говори, что этот код никто кроме тебя читать не будет, даже если и так, то нужно приучивать красиво писать код)? у меня, например, в глазах рябит от этих нулей. Вообще все это дело называется "магические числа"]]> miksayer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347861 Wed, 26 Aug 2009 09:42:08 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347861 Цитата volvo877 @
Цитата (Polinom2686 @ Сегодня, 12:35)
Плюс, выполнять лишние действия (умножение внутри скобок) мне ни к чему, эта функция будет довольно часто использоваться.
Умножение выполнится еще на этапе компиляции, ты за кого вообще FPC держишь? Mlrd описан как Const все-таки...


Я же любитель, а не профессионал. :)
Много чего могу и не знать. ;)

Добавлено
Не серчай на меня. (Don't worry, be happy :whistle: )]]> Polinom2686 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347854 Wed, 26 Aug 2009 09:37:21 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347854 Цитата Polinom2686 @
Плюс, выполнять лишние действия (умножение внутри скобок) мне ни к чему, эта функция будет довольно часто использоваться.
Умножение выполнится еще на этапе компиляции, ты за кого вообще FPC держишь? Mlrd описан как Const все-таки...]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347852 Wed, 26 Aug 2009 09:35:11 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347852 Плюс, выполнять лишние действия (умножение внутри скобок) мне ни к чему, эта функция будет довольно часто использоваться. А так, еще раз спасибо.]]> Polinom2686 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347836 Wed, 26 Aug 2009 09:21:35 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347836 Polinom2686, а ты в ноликах не путаешься? Я бы, пока не поздно, написал бы по-другому:

    Function Pristavka(q : Real) : string;
    const
      Mlrd = 1000000000;
    Var
      znak : string;
    begin
       if (q>=Mlrd) and (q < 1000 * Mlrd) then
       begin
          Str((q/Mlrd):3:2,znak);
     
          if (q>=Mlrd) and (q<10*Mlrd) then
          begin
             Pristavka:=znak+TextRus(' кракозябры№1 ');
          end
          else
             if (q>=10*Mlrd) and (q<100*Mlrd) then
             begin
                Pristavka:=znak+TextRus(' кракозябры№2 ');
             end
             else
                if (q>=100*Mlrd) and (q<1000*Mlrd) then
                begin
                   Pristavka:=znak+TextRus(' кракозябры№3 ');
                end;
       end;
    end;
Проще разобраться, где какое число, не правда ли? :)]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347817 Wed, 26 Aug 2009 09:08:09 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347817 volvo877, ты меня спас. Это моя невнимательность. :wall:

Вот так должно выглядеть.

    if (q>=1000000000) and (q<1000000000000)



СПАСИБО !!! Разумеется теперь все работает.]]> Polinom2686 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347813 Wed, 26 Aug 2009 09:04:51 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347813 Цитата Polinom2686 @
    if (q>=1000000000) and (1000000000000)
Что должно означать это условие? В первой скобке - Boolean (после сравнения - либо True, либо False), а во второй что? Компилятор прав, If не может работать с другими типами, только Boolean...]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347806 Wed, 26 Aug 2009 08:59:07 +0000 Error: Incompatible types: got &quot;Boolean&quot; expected &quot;Int 64&quot; https://forum.sources.ru/index.php?showtopic=280250&view=findpost&p=2347806
    Function Pristavka(q : Real) : string;
    Var znak : string;
    begin
     
    ....
     
    if (q>=1000000000) and (1000000000000) then if (q>=1000000000) and (q<10000000000) then begin
                                                                                            Str((q/1000000000):3:2,znak);
                                                                                            Pristavka:=znak+TextRus(' ѓЋ¬');
                                                                                            end
                                           else if (q>=10000000000) and (q<100000000000) then begin
                                                                                              Str((q/1000000000):4:2,znak);
                                                                                              Pristavka:=znak+TextRus(' ѓЋ¬');
                                                                                              end
                                           else if (q>=100000000000) and (q<1000000000000) then begin
                                                                                                Str((q/1000000000):5:2,znak);
                                                                                                Pristavka:=znak+TextRus(' ѓЋ¬');
                                                                                                end;
    end;


Место ошибки указано на месте открывающейся скобки после if. В чем причина? Откуда взялся тип Boolean?

Компилятор FPC 2.2.2]]> Polinom2686 32-битные компиляторы