В чем дело?

[ssman]

Мне нужно вывести количество дней. Чтобы читалось "по-русски", нужно менять окончание у слова "день" в зависимости от последней цифры количества дней (см. правила русского языка ).

d- кол-во дней, integer.
t- real.

t:=Frac(d*0.1)*10;
    If t=1 then dney1:=' день'
    ELSE 
        If (t=2) OR (t=3) OR (t=4) then dney1:=' дня'
        ELSE dney1:=' дней'; 


В итоге когда например если d=22, то t=2 (можете проверить), а dney1=' дней'. В чем ошибка? t ведь считается правильно. Погрешность выставил в МР 0.000001.

[ABTOMAT]

Разве в MP нету такой штуки, как MOD ? Что за черезжопство:
t:=Frac(d*0.1)*10;
З.Ы. Сам проверить не могу (MP нет), но что-то мне кааца, что t вычисляется неверно.
Ибо с использованием Mod (на бейсике) твой перебор If (t=2) OR (t=3) OR (t=4) работает отлично. Логика везде одинаковая, что в паскале, что в бейзике, так что у тебя t неверно вычисляется, перепроверь её значение.

Repeat 
    d = d +1 
    t = d Mod 10
    If (d/10) Mod 10 <> 1
        If t = 1 Then
            d1$ = "день"
        Else
            If t = 2 Or t = 3 Or t=4 Then
                d1$ = "дня"
            Else
                d1$ = "дней"
            End If
        End If
    Else
        d1$ = "дней"
    End If
    Print d + " "+d1
    Delay 300
Until KeyHit(1) 


[12121]

Лучше обойтись без else
t:=Frac(d*0.1)*10;
If t=1 then dney1:='день';
If (t=2) OR (t=3) OR (t=4) then dney1:='дня';
If t>4 then dney1:='дней';

[ABTOMAT]

Ну, тогда If t>4 then dney1:='дней'; будет работать неправильно, т.к. 'дней' будет и при 0, -> нужно ещё условие

[ssman]

сам ты черезжопство, математику учи. Всё помоему элементарно. А t вычисляется 100% правильно. Ошибка в If идет, но изза чего не пойму.

Frac откидывает целую часть своего аргумента.

[impersonalis]

Элементарно ещё не значит хорошо.
По-вашему 2+2+2+2 лучше чем 2*4?
Ведь первое же элементарнее!

[ABTOMAT]

Ошибка в If идет, но изза чего не пойму.

У меня такой же (копированный из 1-го поста) if работает великолепно
Что говорит дебаггер по поводу t ?

[abcdef]

тип real с большими погрешностями даже в элементарных операциях, используй преобразование trunc, а лучше сразу mod.

p.s.: сравнение на равенство ни когда не используй для дробных чисел, надо так: if abs(t-1)<0.001 then ...

[Dj_Alex]

проще наверно перевести в string и брать символ крайний справа.

[Cliffe Snake]

Вот, парни, не мучайтесь:

program dney;
var
d,t : integer;
dney1 : string;
begin
delay(1000); d:=0;
repeat
t:= d mod 10;
dney1:=' дней';
   if (d<10) or (d>14) then
    begin 
       If t=1 then dney1:=' день' ;
       If (t>1) and (t<5) then dney1:=' дня' 
    end;
 setcolor(255,255,255); fillrect(0,0,getwidth,getheight);
 setcolor(0,0,0);       
 drawtext(''+d+dney1+'   t='+t,2,2);
 repaint;
 delay(1000);
 d:=d+1;
until (getkeyclicked<>0) or (d>31);
end. 


200% гарантия работы на МП

[Tronix]

Сообщение от impersonalis

Элементарно ещё не значит хорошо.
По-вашему 2+2+2+2 лучше чем 2*4?
Ведь первое же элементарнее!

Первое в некоторых случаях лучше (быстрее).

[ssman]

Всем спасибо, раньше не было времени всё попробовать. Вариант с мод действительно лучший