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

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите с елкой
Костян
сообщение 30.12.2005 15:32
Сообщение #1


Пионер
**

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

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


На новый год решил вырастить елку( на паскале), правда вместо зеленой красавицы прога выдает белый экран(а должна быть зеленая елка с древком и желательно посередине экрана а не с краю).
Помогите кому не лень- очень прошу...
Код
program ng;
uses graph;
const
el: array[1..20] of pointtype=
((x:587; y: 439),  (x:200; y: 439), (x:348; y: 406),
(x:225; y: 405), (x:357; y: 332), (x:256; y: 331),
(x:360; y: 256),   (x:303; y: 256),   (x:374; y: 201),
(x:328; y: 200), (x:405; y: 123),  (x:475; y: 199),
(x:434; y: 199),  (x:500; y: 255),  (x:441; y: 255),
(x:536; y: 326), (x:432; y: 326),  (x:562; y: 403),
(x:444; y: 404),  (x:587; y: 439));
var gd, gm: integer;
begin
gd:= detect; initgraph(gd,gm,'');
drawpoly(20,el);
bar(347,492,439,545);
setcolor(green);
floodfill(433,327,green);
readln; closegraph;
end.




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


Гость






Вот тут возьми саженец, и посади его Новогодняя елка

smile.gif
 К началу страницы 
+ Ответить 
Костян
сообщение 30.12.2005 15:39
Сообщение #3


Пионер
**

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

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


Саженец действительно клевый, счас буду в настоящую красавицу превращать. БОЛЬШОЕ СПАСИБО, ВСЕХ С НОВЫМ ГОДОМ!!!


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


Пионер
**

Группа: Пользователи
Сообщений: 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,lightblue);
bar(0,0,640,240);
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.


Вот тут то у меня и родилась чумовая идея- давайте наряжать это чудо все вместе.
И тогда к НОВОМУ ГОДУ у нас получиться настоящая сказка! Присоединяйтесь все кому не лень. Сейчас думаю над падающим снегом, у кого есть идеи- шлите!

Сообщение отредактировано: volvo - 7.11.2006 18:10


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

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

 



- Текстовая версия 29.03.2024 1:43
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"