Уважаемые эксперты. Я недавно услышал, что в PASCALе можно делать рисунки. И по этому поводу у меня есть вопрос. Можно ли сделать рисунок: Написано «ПОСТАВЬТЕ МНЕ ПЯТЬ» эта фраза сделана из пятёрок. Если можно, то напишите мне эту программу.
Доброе время суток, Дмитрий! Не... , приятно, что кто то об этом слышал! Программу сможешь дописать сам. Тут только идея (возни много). Для решения задачи используется процедура 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.