Re: Мiльон гривень. Готiвкою



Posted by Валентин, Донецк (213.130.21.230) on December 07, 2001 at 12:25:53:

In Reply to: Мiльон гривень. Готiвкою posted by Анатолий Анимица on November 25, 2001 at 00:34:20:

Так как никто Вам не ответил , осмелюсь предложить свой вариант.
Чтобы не приводить Все Ваше решение, приведу его часть со своей
вставкой.
*****************************************************************************
Тест WNUA
pi .. pi^18
i=3.141592665;j=i
for k=1 to 18
s=i
call wnua Ваша Подпрограмма
call MyProgram Переход на Подпрограмму Перименования ОДИН на ОДНА и т.д.
^^^^^^^^^^s^^ ^^^^^^t1 ^^t2 ^^t3 ^ce ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^b
i=i*j
endfor
stop
******************* ПЕРЕИМЕНОВАНИЕ ОДИН НА ОДНА и т.д. ********************
: MyProgram
PS = [ps 'грн',b]
ne = [cp b,PS,13] Неизменяемая Часть Выода Суммы прописью
a = [wn s] ; LD = [length a]
! a = 'Один ' b = 'Одна ' +ne ; goto Dal
! a = 'Два ' b = 'Двi ' +ne ; goto Dal
! [cp a,LD-4,4] = 'один' b = [cp b,1,LD-5]+'одна '+ne ; goto Dal
! [cp a,LD-3,3] = 'два' b = [cp b,1,LD-4]+'двi ' +ne
: Dal
return
*****************************************************************************
Если что-то не так, буду рад увидеть Ваши замечания.

С уважением, Валентин, Донецк


Пpишедшие ответы: