|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.02.2012, 11:32 | #11 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
easter1.zip Ну, я алгоритмом готовым пользовался. А менять - боязно . |
|
28.02.2012, 11:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам сразу пользоваться поиском схожих тем на форуме Определение конденсаторов Сбой даты и времени и ее последствия Определение местоположения Дорогие форумчане, с праздником Великой Пасхи! |
28.02.2012, 11:37 | #14 (permalink) |
Генсек ПЛВ
Регистрация: 02.02.2007
Адрес: г. Мурманск
Сообщений: 13,381
Записей в дневнике: 13
Сказал(а) спасибо: 280
Поблагодарили 44 раз(а) в 16 сообщениях
Репутация: 47924
|
Нормально запускается и работает. Win7 Проф. х64
__________________
-...варю манную кашу, жарю картофельные блины, езжу на дизеле.- Йцукен сын. |
28.02.2012, 14:49 | #15 (permalink) | |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Цитата:
Вот исправленный вариант. У меня просто разрешение широкоформатное(1366х768) и форма при компиляции была справа) вот там изначально программа и запускалась. С низким разрешением оно естественно и улетало вправо за экран))... |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
28.02.2012, 15:33 | #18 (permalink) |
votum separatum
Регистрация: 05.05.2008
Сообщений: 14,603
Записей в дневнике: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 18619
|
А можно вместо той рожи (или лапы, я плохо вижу), что в левом верхнем углу окна, вставить изображение пасхального куличика?
|
28.02.2012, 16:07 | #19 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ну вот два варианта 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. |
|
28.02.2012, 16:46 | #20 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Можно и с куличиком))
И еще небольшая плюшка))) вот только exe файл... Ну а почему бы и нет) Кст. в lazaruse увидел интересную штуку. i18n для перевода.(правда я ее ни разу не использовал...) А с графикой в дельфи примерно то же самое что и в паскале. Только работа с канвой... |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|