| |
Raven
������������
������: ������
�����������: ����. 2004
�����: 408 ���������
|
����, ������� ���������� �������� �� ����� ���������� TeamX-Tech. � ��������������� ������� � � ��������������� :-) ������������� ��� �� ������� - ���� ��������� :-)
����������� ����: ��������� ���������� ��������� ��� ������������� ����� � ��������.
�����������, ��� ������ ������ ������� ����� - �����, ���� - ���� ������. ����� ������������ �������������, �� ��������� �������. ����� ����� - ������������ ������������� �������: ����., 15 ����.
������ �����, �� �������� ��� ��� (����� get_value - ���������-��������� �����):
display_msg(get_value+" ����");
������������ � ���, ��� ���� get_value ������ 1, 2, 3, 24, 51 � �.�. �� �������� ���������� ����� "1 ����", "24 ����" � �.�.
��� ������ � ���� ����� ��������������� ����� ��� ����������:
-------------------------------------
procedure generate_ending(variable num) begin
variable last_digit; //��������� �����
variable tens_last_digit; //������������� �����
last_digit:=days%10;
tens_last_digit:=days%100-last_digit;
//1 ����, 21 ����, �� 11 *����*. �.�. ���� tens_last_digit==1, �� ��������� "����"
if last_digit==1 and
(tens_last_digit>1 or tens_last_digit==0)
then return days+mstr(100);
//�������� ���������
else if last_digit>=2 and last_digit<=4 and
(tens_last_digit>1 or tens_last_digit==0)
then return days+mstr(101);
else return days+mstr(102);
end
-------------------------------------
-------------------------------------
{100}{}{ ����}
{101}{}{ ���}
{102}{}{ ����}
-------------------------------------
������ �������������� ������� ��:
display_msg(generate_days(get_value));
� ��.
������ ����� "21 ����", "54 ���", "714 ����"� ���� "2567821 ����" :-)
���������� - ��� �����, �������� � ���� ������ ���. ��� ����� �� ������� ������ ������, ����� msg-�����.
|
����������: 10:44 - 25 ���., 2005
|
|
Oleg1969
������������
������: �������
�����������: ��� 2006
�����: 168 ���������
|
��������, ��� �������� ������ ����, �� ������ ������ ��������� �� ��������...  ���������� ��� �������� ������ 14 ��� 13...
����� �������� ���� ���� �������� ��
tens_last_digit:=(days%100-last_digit)/10;
��� ��
(tens_last_digit>10 or tens_last_digit==0)
����� ���������� ��������� �������...
-----
�� ��� ��������, ����.
|
����������: 15:45 - 3 ���., 2006
|
|
| |
|