|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.03.2013, 12:04 | #1 |
Пользователь
Регистрация: 22.03.2013
Сообщений: 28
|
рисунки в pascal ABC
нужно нарисовать в Pascal ABC снежинки которые медленно падают и любую анлискую букву в объемном изображении.. уже 3-й день сижу ничего не выходит....
|
23.03.2013, 14:23 | #2 |
Форумчанин
Регистрация: 08.06.2011
Сообщений: 693
|
Наработки в студию.
|
23.03.2013, 23:36 | #3 |
Пользователь
Регистрация: 22.03.2013
Сообщений: 28
|
нету их( нервы! все по удаляла!
___________________ это обязательно??? |
23.03.2013, 23:40 | #4 |
Пользователь
Регистрация: 22.03.2013
Сообщений: 28
|
есть прога правда с и-нета но она не работает и там снеговик и падающие снежинки должны быть, но проверить не могу.. выбивает ошибку неизвестный идентификатор setcolor
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. |
24.03.2013, 00:43 | #5 | |
Пользователь
Регистрация: 24.01.2013
Сообщений: 67
|
Borland Pascal 7.0 открывает без ошибок
Цитата:
Эта процедура рисует снежинки в форме эллипса. Код:
|
|
24.03.2013, 01:48 | #6 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 67
|
Код:
|
24.03.2013, 18:47 | #7 |
Пользователь
Регистрация: 22.03.2013
Сообщений: 28
|
нужны снежинки(
|
24.03.2013, 22:03 | #9 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 67
|
Если прям чтобы снежинка то рисуете её и сохраняете в форматах (bmp, .gif, .jpg, .png)
В программе меняете Код:
Код:
пример Код:
|
24.03.2013, 22:04 | #10 |
Пользователь
Регистрация: 22.03.2013
Сообщений: 28
|
она работает не правильно (только пустой лист и программа завершена) так как у меня нет той картинки которая есть в программе
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
рисунки в Pascal ABC | Rainer082 | Помощь студентам | 9 | 21.02.2017 11:33 |
Pascal ABC | Fizik03 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 14.05.2012 23:22 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
Неудобство ABC Pascal и глюк Borland Pascal | proser93 | Помощь студентам | 0 | 19.11.2011 19:01 |
Turbo Pascal or Pascal ABC | Ikram | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.04.2010 13:44 |