Цитата:
Сообщение от kreol
Если есть еще какие-то интересные проекты которые целесообразно запихать в дельфи то выкладывай) будет интересно посмотреть...
|
Таки есть парочка. С одним-то просто: это атрибуты восточного календаря (животное, цвет, стихия), тут примерно то же, что с Пасхой, а вот другой... Есть у меня программка выдачи календаря любого года, но тут - графика. Возьмешься?
Ну вот два варианта ORIENT.
С кириллицей:
Код:
{ Это для перевода текущего года в восточную символику }
CONST
Matter_Color:ARRAY[0..9] of STRING[16]=('Металл Белый ',
'Металл Белый ',
'Вода Черный ',
'Вода Черный ',
'Дерево Синий ',
'Дерево Синий ',
'Огонь Красный',
'Огонь Красный',
'Земля Желтый ',
'Земля Желтый ');
Animal:ARRAY[0..11] of STRING[8]=('Обезьяна',
'Курица ',
'Пес ',
'Свинья ',
'Мышь ',
'Корова ',
'Тигр ',
'Заяц ',
'Дракон ',
'Змея ',
'Конь ',
'Овца ');
VAR
CurYear, Mod1, Mod2, Mod3:LongInt;
BEGIN
WRITELN('Для выхода из программы введите нулевой год.');
WRITELN;
REPEAT
WRITE('Введите год: '); READLN(CurYear);
IF CurYear>0 THEN
BEGIN
Mod1:=CurYear mod 60;
Mod2:=Mod1 mod 10;
Mod3:=Mod1 mod 12;
WRITELN(CurYear:8,' Н.Э. ',Animal[Mod3],' ',
Matter_Color[Mod2]);
END;
UNTIL CurYear<=0;
END.
С латиницей:
Код:
CONST
Matter_Color:ARRAY[0..9] of STRING[16]=('Metal White ',
'Metal White ',
'Water Black ',
'Water Black ',
'Wood Blue ',
'Wood Blue ',
'Fire Red ',
'Fire Red ',
'Earth Yellow',
'Earth Yellow');
Animal:ARRAY[0..11] of STRING[8]=('Monkey',
'Hen ',
'Dog ',
'Swine ',
'Mouse ',
'Cow ',
'Tiger ',
'Rabbit',
'Dragon',
'Snake ',
'Horse ',
'Sheep ');
VAR
CurYear, Mod1, Mod2, Mod3:LongInt;
BEGIN
WRITELN('Enter zero year to exit');
WRITELN;
REPEAT
WRITE('Enter the year: '); READLN(CurYear);
IF CurYear>0 THEN
BEGIN
Mod1:=CurYear mod 60;
Mod2:=Mod1 mod 10;
Mod3:=Mod1 mod 12;
WRITELN(CurYear:8,' ',Animal[Mod3],' ',Matter_Color[Mod2]);
END;
UNTIL CurYear<=0;
END.