IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Елки палки, HELP с елкой
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Народ, уже поднимал эту тему в задачах но некто не помог. Пишу это девушке в подарок не для себя, нужно до НОВОГО ГОДА, еще раз прошу если кто знает как улучшить и через что- подскажите, буду очень признателен smile.gif
Код
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.



--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 45
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


снег добавь падающий... Да и вообще, врят ли девушка поймет твои труды... Цветы лучше подари =)
С новым годом!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Спасиба за совет, вот что получилось- просто жмете на интер и все увидите. Надеюсь ей понравится такое поздравление, если у кого еще какие мысли(улучшений)- пишите не задумываясь-проект еще не закончен... Прикрепленный файл  elka.zip ( 26.63 килобайт ) Кол-во скачиваний: 737
, по поводу цветов- она из другой страны(оооочень далекой)...

Сообщение отредактировано: Костян -


--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


подари ей свои поцелуи и нежность в новогоднюю ночь, они будут важнее всего остального на свете! give_rose.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Цитата
подари ей свои поцелуи и нежность в новогоднюю ночь, они будут важнее всего остального на свете

wacko.gif
Цитата
на из другой страны(оооочень далекой)...


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


lol.gif я это не заметил smile.gif
Я просто подумал когда он сказал "девушке" что его... smile.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 8.11.2024 19:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name