Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на языке Pascal

Выпуск № 185
от 16.10.2003, 21:10

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 323
Отправлено ответов: 1129
Активность: 349.5 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Boriss
Статус: Доверительный
Общий рейтинг: 136
[Подробней >>]
sir henry
Статус: Опытный
Общий рейтинг: 156.52
[Подробней >>]
Cybernetic Creature
Статус: Профессиональный
Общий рейтинг: 128.97
URL: В разработке
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 320. Уважаемые эксперты. Я недавно услышал, что в PASCALе можно делать рисунки. И по этому поводу у меня ... (ответов: 3)

Вопросов: 1, ответов: 3


 Вопрос № 320

Уважаемые эксперты. Я недавно услышал, что в PASCALе можно делать рисунки. И по этому поводу у меня есть вопрос. Можно ли сделать рисунок: Написано «ПОСТАВЬТЕ МНЕ ПЯТЬ» эта фраза сделана из пятёрок. Если можно, то напишите мне эту программу.



Вопрос отправлен: 13.10.2003, 19:52
Отправитель: Дмитрий

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Доброе время суток, Дмитрий!
Не... , приятно, что кто то об этом слышал!
Программу сможешь дописать сам. Тут только идея (возни много).
Для решения задачи используется процедура PutImage (положить рисунок).
Пояснения:
1) инициализируем графический режим: InitGraph(grDriver, grMode,'c:pgi');
обрати внимание, нужно указать путь к папке, где находится файл egavga.bgi. У меня в 'c:pgi'.
2)сначала рисуем маленькую "5".
3)Затем сохраняем ее изображение в динамическую память.
Для этого нужен указатель VAR p: Pointer, нужно определить, сколько памяти нужно для
хранения изображения, и сохранить с помощью GetImage.
4)затем я организовал массив точек (левых верхних углов) и кладу туда. Так лучше всего - не понравилось,
скорректировал координаты, запустил, посмотрел.
5)тебе нужно дополнить массив: увеличить const MAX, дописать координаты точек. Вычислять их положение - вряд ли разумно
Удачи (и ПЯТЕРОК, но больше читай (или спрашивай))


Приложение:

Ответ отправлен: 14.10.2003, 10:28
Отправитель: Boriss


Отвечает sir henry

Приветствую Вас, Дмитрий!
Экран Вашего компьютера представляет собой двумерную матрицу или массив, состоящий из столбцов (X => от 1 до 80) и рядов (Y => от 1 до 25). Предварительно нужно разлиновать листок бумаги на 80 столбцов и 25 рядов с нумерацией рядо в и столбцов сверху вниз и слева направо. В соответствующую клетку получившейся матрицы нужно занести цифру 5 так, чтобы получилась в результате нужная фраза. Программа:
Uses CRT;
Begin
GoToXY(X, Y); {Переход в нужную клетку матрицы}
Write(Цифра); {Запись нужной цифры в клетку матрицы}
End.
Это для текстового режима. В графическом режиме будет примерно тоже самое, только матрица будет 80х30 (разрешение экрана 640х480). Если нужно делать строго графическими средствами, то нужно будет выбрать графический шрифт, параметры шрифта, вычислить, в какую точку экрана занести цифру и наконец процедурой OutTextXY() вывести цифру в нужной точке экрана.

Ответ отправлен: 14.10.2003, 10:36
Отправитель: sir henry


Отвечает Cybernetic Creature

Здравствуйте, Дмитрий!
Фантазировать придется тебе. Паскалю (и по моему никому) это не подсилам.

Ответ отправлен: 14.10.2003, 13:24
Отправитель: Cybernetic Creature



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (31)
C / C++ (31)
Perl (7)
Builder / Delphi (23)
Pascal (23)
Basic / VBA (8)
Java / JavaScript (8)
PHP (12)
Криптография (9)
WinAPI (15)
Пользователю
Windows 95/98/Me (53)
Windows NT/2000/XP (62)
"Железо" (37)
Поиск информации (27)
Администратору
Windows NT/2000/XP (38)
Linux / Unix (18)
Юристу
Гражданское право (11)
Семейное право (8)
Трудовое право (8)
КоАП (8)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное