Автор: Костян 30.12.2005 20:36
Народ, уже поднимал эту тему в задачах но некто не помог. Пишу это девушке в подарок не для себя, нужно до НОВОГО ГОДА, еще раз прошу если кто знает как улучшить и через что- подскажите, буду очень признателен
Код
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
снег добавь падающий... Да и вообще, врят ли девушка поймет твои труды... Цветы лучше подари =)
С новым годом!
Автор: Костян 31.12.2005 0:26
Спасиба за совет, вот что получилось- просто жмете на интер и все увидите. Надеюсь ей понравится такое поздравление, если у кого еще какие мысли(улучшений)- пишите не задумываясь-проект еще не закончен...
elka.zip ( 26.63 килобайт )
Кол-во скачиваний: 515
, по поводу цветов- она из другой страны(оооочень далекой)...
Автор: Altair 31.12.2005 14:46
подари ей свои поцелуи и нежность в новогоднюю ночь, они будут важнее всего остального на свете!
Автор: GoodWind 1.01.2006 15:31
Цитата
подари ей свои поцелуи и нежность в новогоднюю ночь, они будут важнее всего остального на свете
Цитата
на из другой страны(оооочень далекой)...