Нужна простая графика на Паскале!, без анимации... просто картинки... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Нужна простая графика на Паскале!, без анимации... просто картинки... |
Лита |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Женский Репутация: 0 |
Для диплома нужны примеры того, что можно нарисовать с помощью графики на Паскале.
Самая простая графика. Статичная. Ничего сложного. С использованием простыч геометрических примитивов. Например, кораблик, паровозик, домик и т.д. Может, у кого осталось со времен обучения? Даже не обязательно задачи... Просто картинки того, как это будет выглядеть после компиляции программы! Заранее спасибо! :molitva: -------------------- Что нам стоит мир пострить? Нарисуем - будем жить...
|
volvo |
Сообщение
#2
|
Гость |
Попробуй поискать по форуму (слово "заставка", например). Ну или вот это:
Рисунки на Паскале |
Altair |
Сообщение
#3
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Вот эта программа volvo подойдетдумаю.
Скрин: Код uses Graph; var grDriver: Integer; grMode: Integer; ErrCode: Integer; begin grDriver := Detect; InitGraph(grDriver, grMode,''); ErrCode := GraphResult; if ErrCode <> grOk then begin Writeln('Graphics error:', GraphErrorMsg(ErrCode)); readln; exit end; { derevo } setcolor(green); setfillstyle(solidfill, green); moveto(80, 240); lineto(95, 300); lineto(65, 300); lineto(80, 240); floodfill(80, 250, green); moveto(80, 300); lineto(110, 380); lineto(50, 380); lineto(80, 300); floodfill(80, 310, green); moveto(80, 380); lineto(120, 460); lineto(40, 460); lineto(80, 380); floodfill(80, 400, green); setcolor(brown); setfillstyle(solidfill, brown); bar(75, 460, 85, 478); { solnce } setcolor(yellow); setfillstyle(solidfill, yellow); circle(520, 80, 45); floodfill(520, 80, yellow); { domik } setcolor(white); rectangle(520, 380, 638, 478); moveto(520, 380); lineto(580, 300); lineto(638, 380); { truba } moveto(535, 360); lineto(535, 320); lineto(550, 320); lineto(550, 340); readln; closegraph; end. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Romtek |
Сообщение
#4
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Если нужно, могу скинуть программу Турбограф. Для начинающих изучать графику просто незаменимая вещь.
Цитата ТУРБОГРАФ это экранный графический редактор, который позволит Вам просто и быстро рисовать, сохранять и воспроизводить свои ри- сунки. ТУРБОГРАФ предоставляет самый простой способ включения рисунков в программы на Турбо Паскале, Турбо Си и Турбо Си++. ТУРБОГРАФ незаменим при обучении программированию, доступен даже ребенку. Отличительные черты ТУРБОГРАФа: - простой, понятный, современный, русскоязычный пользовательский интерфейс; - полная совместимость с компиляторами фирмы Борланд; - объектно-ориентированное представление рисунка; - автоматическое получение исходных текстов программ на Турбо Паскале и Турбо Си, воспроизводящих созданный рисунок; - автоматическое создание исполнимой ( .EXE ) программы, воспроизводящей созданный рисунок; - минимальные требования к компьютеру ( достаточно XT+CGA ); - исключительно компактный формат файлов рисунков; - быстрая работа; - поддержка дисплеев CGA, MCGA, EGA, VGA, Hercules, AT&T, IBM3270 PC. - работа во всех графических режимах, поддерживаемых библиотекой BGI ( 10 режимов на VGA ! ); - простые и мощные возможности редактирования: - откатка назад и вперед на любое число шагов; - поиск, вставка и удаление отдельных линий, фигур, текста; - удаление, перенос, масштабирование, копирование рисунков и их частей; - полная поддержка русифицированных шрифтов формата BGI; - программа просмотра и демонстрации рисунков c возможностью создания слайд-фильмов; - полная открытость используемого формата файлов рисунка: подробное описание, исходный текст программных модулей поддержки; - преобразование программ на Паскале в файл рисунка. Получение файлов рисунка из Ваших программ добавлением в их текст одной буквы! ( В крайнем случае - слова ). -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Лита |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Женский Репутация: 0 |
Цитата(volvo @ 11.04.05 15:14) искала я, искала... нашал и ту ссылку, которую ты мне дал... но хочется еще чего-нибудь... -------------------- Что нам стоит мир пострить? Нарисуем - будем жить...
|
Atos |
Сообщение
#6
|
Прогрессор Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: 9 |
Romtek, скинь, если не трудно, мне на atos13 собака yandex.ru
Что-то я заинтересовался Delphi, конечно, круто, но интересно и в старом добром TP с графикой побаловаться. Лита, подожди, сейчас посмотрю - у моня должно было множество маленьких программок с графикой где-то лежать. |
Atos |
Сообщение
#7
|
Прогрессор Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: 9 |
Вот, может быть, что-нибудь из этого архива подойдёт:
Прикрепленные файлы Gra.rar ( 15.94 килобайт ) Кол-во скачиваний: 694 |
Romtek |
Сообщение
#8
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Прикрепил к сообщению. Рисуйте на здоровье.
Прикрепленные файлы turbo_g.rar ( 244.87 килобайт ) Кол-во скачиваний: 714 -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Лита |
Сообщение
#9
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Женский Репутация: 0 |
Цитата(Atos @ 12.04.05 17:32) Вот, может быть, что-нибудь из этого архива подойдёт: Спасибки :p2: -------------------- Что нам стоит мир пострить? Нарисуем - будем жить...
|
Лита |
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Женский Репутация: 0 |
Цитата(Romtek @ 12.04.05 22:16) Прикрепил к сообщению. Рисуйте на здоровье. и вам тоже -------------------- Что нам стоит мир пострить? Нарисуем - будем жить...
|
Текстовая версия | 14.05.2024 16:41 |