Рисунок в паскале
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Рисунок в паскале - 2010-02-01 17:18:02.403333
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
Пожалуйста, помогите с рисунком в Паскале, нужно нарисовать снеговика и падающий снег.. Уже надо сдавать,времени уже нет, во всем в этом разобраться (( Пожалуйста, кому не сложно, выручите.. Спасибо..
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 17:23:25.260000
|
|
|
iidsp
Сообщений: 379
Оценки: 0
Присоединился: 2009-10-14 23:13:19.856666
|
quote:
арисовать снеговика и падающий снег.. Уже надо сдавать,времени уже нет, во всем в этом р
ну уж в паскале то рисовать проще простого. когда сдавать?
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 20:42:31.840000
|
|
|
Як Истребитель
Сообщений: 410
Оценки: 0
Присоединился: 2010-01-27 19:48:58.473333
|
Ну, не так уж это и просто. Тут тебе вряд ли с такой творческой работой помогут, введи в гугле "форум паскаль" и ходи по первой ссылке, у них хороший FaQ и вообще подобных задач решённых много. Даже тема есть, "Ёлка, снег, игрушки".
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 21:01:36.013333
|
|
|
iidsp
Сообщений: 379
Оценки: 0
Присоединился: 2009-10-14 23:13:19.856666
|
quote:
Ну, не так уж это и просто.
ну хз, всегда любил на 1м курсе рисовать в паскале, если найду, то покажу. а так по теме, вот тут снег есть, а снеговика рисовать просто http://pascal.sources.ru/authors/amonster.htm
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 21:30:32.036666
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
В обще не знаю что к чему ((
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 22:39:56.546666
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
Что тебе конкретно мешает вбить в гугл фразу "рисовать + delphi" ? Криворукость? Слепота? Слабоумие?
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 22:49:53.460000
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
3 дня уже ищу… ни фига ничего нету… есть какие то битые команды, которые ошибки выдают и все.. ветка создана не с темой в каком поисковике искать..
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-01 22:53:04.993333
|
|
|
Як Истребитель
Сообщений: 410
Оценки: 0
Присоединился: 2010-01-27 19:48:58.473333
|
Тебе уже ответили. С такой постановкой вопроса, без наработок, даже без указания компилятора, на котором работаешь - на большее можешь не расчитывать.
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 00:17:39.400000
|
|
|
iidsp
Сообщений: 379
Оценки: 0
Присоединился: 2009-10-14 23:13:19.856666
|
не очень ясно, какого качества снег нужен и как отдельная снежинка должна себя вести? как должен снеговик выглядеть - это просто 3 окружности и 2 точки вместо глаз… я хз все смутно и не детализировано, без ч0ткого ТЗ можно сделать полную ахинею…
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 00:19:58.386666
|
|
|
iidsp
Сообщений: 379
Оценки: 0
Присоединился: 2009-10-14 23:13:19.856666
|
вот тут подобие снега. но исходники платные http://www.kurslab.ru/snow.html
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 00:26:47.570000
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
Аффтар того сорса таки страдает слабоумием.
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 00:45:06.226666
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
да по хрен какой снег и снеговик, точки белые падают на цветном фоне и снеговик белый стоит (три окрожности и глаза) и как буд то снег внизу..низ белый
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 11:09:04.656666
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: Колин
да по хрен какой снег и снеговик, точки белые падают на цветном фоне и снеговик белый стоит (три окрожности и глаза) и как буд то снег внизу..низ белый
Ну так в чём проблема? Что не получается? Твоя программа работает с ошибками? Вообще не работает? Давай её сюда, ошибки найдём, работать заставим.
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 13:35:13.286666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
По первому сообщению в топике, если пользоваться телепатией, очевидно, что у ТС ничего нет и он просит сделать за него готовый код.
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 14:15:49
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
Нашел в инете снеговика (как пишут)
program baba;
uses graph;
var a,b:integer;
begin
a:=detect;
initgraph(a,b,'');
setbkcolor(1); {цвет фона*}
Setcolor(15); {цвет линий}
circle(358,183,36);
circle(358,287,70);
circle(358,475,115);
line(317,151,399,151);
line(317,151,340,100);
line(340,100,378,100);
line(378,100,399,151);
arc(358,183, 360,170,25); {рот}
circle(346,170,5); {левый глаз}
circle(370,170,5); {правый глаз }
ellipse (294,592,360,0,31,18); {левоя нога*}
ellipse (410,595,360,0,31,18); {правоя нога*}
line(288,287,183,393); {левоя рука}
Line(212,364,212,406);
line(212,364,174,365);
line(427,287,507,393); {Правоя рука*}
line(485,364,516,406);
line(536,365,485,365);
readln;
closegraph;
end. Копирую все это в Паскаль, нажимаю run выдает системку 16 bit MS-DOS Sybsystem This system does not support fullscreen mode. Choose Close to terminate the application. Закрыть\пропустить.. и паскаль закрываеться. ОС: Vista.С чем это связано ? И если этот код рабочий.. как к нему добавить падающий снег ? Подскажите пожалуйста!
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 14:29:43.340000
|
|
|
sbk
Сообщений: 144
Оценки: 0
Присоединился: 2008-12-20 19:01:57.273333
|
Виста не поддерживает программы написание под DOS для работы в полно экранном режиме. Чтоб запустить пользуйтесь DOSBox, или другими эмуляторами DOSа.
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 17:53:31.900000
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
А как добавить снег падающий ??
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 18:58:54.316666
|
|
|
sbk
Сообщений: 144
Оценки: 0
Присоединился: 2008-12-20 19:01:57.273333
|
просто перед тем как рисовать снеговика, и всё остальное, вызываешь эту ф-цию.
procedure DrawSnow;
var x,y,count:integer;
begin
randomize;
for count := 0 to 250 do begin
x := random(0,640);
y := random(0,480);
ellipse(x,y,0,360,1,1);
end;
end; После этого на экране должен появится "снег".
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 19:04:31.986666
|
|
|
Izatop
Сообщений: 106
Оценки: 0
Присоединился: 2009-12-30 16:28:11.950000
|
ты кстати для инициализации графа должен b:=VGA тогда, a:=detect; тогда должно пахать.
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-02 22:30:00.453333
|
|
|
iidsp
Сообщений: 379
Оценки: 0
Присоединился: 2009-10-14 23:13:19.856666
|
Примерно так…
Program snow_baba;
uses graph, crt;
var gd, gm : integer;
Procedure snow;
var count, width, height : integer;
begin
for count := 0 to 1500 do
begin
width := random(640);
height := random(420);
SetColor(white);
ellipse(width, height, 0, 360, 1, 1);
delay(2500);
end;
end;
Begin
randomize;
gd := detect;
initgraph(gd, gm, '');
Setbkcolor(Blue); {set the background color}
Circle(358,350,70); {bоdу}
Circle(358,230,50); {bоdу}
Circle(358,150,30); {bоdу}
FloodFill(358, 150, White); {shading}
FloodFill(358, 230, White); {shading}
FloodFill(358, 350, White); {shading}
SetColor(Brown); {set the color smile}
Arc(358, 150, 180, 0, 25); {smile}
circle(346, 140, 5); {left yey}
circle(370, 140, 5); {right yey}
Line(315, 200, 248, 210); {left hand}
Line(400, 200, 468, 210); {right hand}
SetColor(white);
Line(1, 420, 640, 420);
snow;
Readln;
Closegraph;
End. и не забудь кинуть файлы EGAVGA.BGI(лежит в папке BGI) и GRAPH.TPU(лежит в папке UNITS) в папку BIN
удачи…
|
|
|
|
|
RE: Рисунок в паскале - 2010-02-04 11:21:04.556666
|
|
|
Колин
Сообщений: 7
Оценки: 0
Присоединился: 2010-02-01 17:13:54.570000
|
Спасибо большое! Очень выручили.. спасибо!
|
|
|
|
|
|
