Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2008, 22:47   #1
MyVLink
Пользователь Подтвердите свой е-майл
 
Регистрация: 12.05.2008
Сообщений: 13
По умолчанию

Нужно написать программу, выводящюю какую нибудь картинку с помощью модуля CRT..

Использовать модуль графики нельзя

Последний раз редактировалось Alex21; 09.06.2008 в 18:11.
MyVLink вне форума Ответить с цитированием
Старый 08.06.2008, 22:55   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Можно использовать псевдографику - gotoxy и write символы #1 #2 и т.д.
eoln вне форума Ответить с цитированием
Старый 08.06.2008, 23:12   #3
MyVLink
Пользователь Подтвердите свой е-майл
 
Регистрация: 12.05.2008
Сообщений: 13
По умолчанию

Это вопрос? Можно..
MyVLink вне форума Ответить с цитированием
Старый 08.06.2008, 23:27   #4
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Это не вопрос, это предложение
Код:
gotoxy(10,10); write(#2);
gotoxy(20,20); write(#4);
Вобщем задача найти символ с желаемым рисунком (с кодами 1 - 20 достаточно), а также заранее на листе бумаги нарисовать этот рисунок и по координатам вывести на экран символы. Ширина экрана - 80 высота 23 (если не ошибаюсь)
eoln вне форума Ответить с цитированием
Старый 09.06.2008, 01:50   #5
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

25 высота.
Баламут вне форума Ответить с цитированием
Старый 09.06.2008, 10:45   #6
MyVLink
Пользователь Подтвердите свой е-майл
 
Регистрация: 12.05.2008
Сообщений: 13
По умолчанию

А можно примерчик маленький, чтобы понятно было..
MyVLink вне форума Ответить с цитированием
Старый 09.06.2008, 11:11   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Вот например так:
Код:
const cht=219; a:array[1..7] of byte=(11,2,3,4,5,6,7);
var k,i,e:integer;
begin
for k:=1 to 7 do begin
 for i:=1 to 10 do write(' ');
 for i:=1 to a[k] do write(chr(cht)); writeln;
end;
readln;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.06.2008, 12:30   #8
MyVLink
Пользователь Подтвердите свой е-майл
 
Регистрация: 12.05.2008
Сообщений: 13
По умолчанию

Так мне же нужно, чтобы именно с помощью црт картинку вывести, там с какими нибудь разноцветными буквами и готу..
MyVLink вне форума Ответить с цитированием
Старый 09.06.2008, 13:03   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну дык к примеру прикрути TextColor и TextBackground )
Они в хелпе с примерами описаны.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
модуль RasUnit beegl Компоненты Delphi 2 28.06.2008 20:22
Модуль Graph ShnapS Паскаль, Turbo Pascal, PascalABC.NET 6 28.05.2008 00:44
Модуль для DLE! okolovas Фриланс 1 28.12.2007 02:31
модуль crt BBagi Паскаль, Turbo Pascal, PascalABC.NET 1 27.12.2007 14:10
Как перекомпилить модуль UnD)eaD)Snake Общие вопросы Delphi 3 10.09.2007 13:35