Елки палки, HELP с елкой |
Елки палки, HELP с елкой |
Костян |
30.12.2005 20:36
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: 0 |
Народ, уже поднимал эту тему в задачах но некто не помог. Пишу это девушке в подарок не для себя, нужно до НОВОГО ГОДА, еще раз прошу если кто знает как улучшить и через что- подскажите, буду очень признателен
Код uses Crt, Graph; const RStart = 55 ; triangle: array[1..4] of pointtype= ((x:520; y:160), (x:500; y:200), (x:540; y:200), (x:520; y:160)); road: array[1..5] of pointtype=((x:10; y:480), (x:320; y:240), (x:340; y:240), (x:80; y:480), (x:10; y:480)); procedure igruhki; begin setcolor(blue); setfillstyle(1,red); fillellipse(300,250,7,7); setcolor(red); setfillstyle(4,yellow); fillellipse(200,420,7,7); setcolor(green); setfillstyle(7,lightblue); fillellipse(400,420,7,7); setcolor(yellow); setfillstyle(1,blue); fillellipse(330,170,7,7); end; procedure zemla; begin setfillstyle(1,black); bar(0,0,640,240); putpixel(2,2,white);putpixel(10,10,white);putpixel(500,150,white); putpixel(40,40,white);putpixel(100,200,white);putpixel(600,200,white); putpixel(344,30,white);putpixel(423,100,white); setfillstyle(1,white); bar(0,240,640,480); setfillstyle(1,red); bar(500,200,540,240); fillpoly(4,triangle); fillpoly(5,road); end; var grDriver: Integer; grMode: Integer; ErrCode: Integer; x, y, R: integer; i, j: integer; begin grDriver := Detect; InitGraph(grDriver, grMode,''); ErrCode := GraphResult; if ErrCode = grOk then begin { Do graphics } zemla; setcolor(green); for j := 2 to 6 do begin y := (getmaxy div 10) * j; R := RStart + 15*j; for i := 1 to 5 do begin arc((getmaxx div 2) - R, y, 350-(R div 5)-8*j, 359, R); arc((getmaxx div 2) + R, y, 181, 190+(R div 5)+8*j, R); inc(y, 7); inc(R, 5); end; end; setcolor(yellow); settextstyle(sansseriffont,horizdir,7); outtextxy(30,20,' Happy New Year!'); igruhki; Readln; CloseGraph; end else Writeln('Graphics error:', GraphErrorMsg(ErrCode)); end. -------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
Gothic_Snake |
30.12.2005 22:19
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 45 Пол: Мужской Реальное имя: Алексей Репутация: 0 |
снег добавь падающий... Да и вообще, врят ли девушка поймет твои труды... Цветы лучше подари =)
С новым годом! |
Костян |
31.12.2005 0:26
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: 0 |
Спасиба за совет, вот что получилось- просто жмете на интер и все увидите. Надеюсь ей понравится такое поздравление, если у кого еще какие мысли(улучшений)- пишите не задумываясь-проект еще не закончен...
elka.zip ( 26.63 килобайт )
Кол-во скачиваний: 514
, по поводу цветов- она из другой страны(оооочень далекой)... Сообщение отредактировано: Костян - 31.12.2005 0:27 -------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
Altair |
31.12.2005 14:46
Сообщение
#4
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
подари ей свои поцелуи и нежность в новогоднюю ночь, они будут важнее всего остального на свете!
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
GoodWind |
1.01.2006 15:31
Сообщение
#5
|
Автооответчик Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Цитата подари ей свои поцелуи и нежность в новогоднюю ночь, они будут важнее всего остального на свете Цитата на из другой страны(оооочень далекой)... -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
Altair |
1.01.2006 17:44
Сообщение
#6
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
я это не заметил
Я просто подумал когда он сказал "девушке" что его... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 28.03.2024 23:56 |