Помогите решить, текстовый режим Опции

[-Ольга-]

помогите решить!!! есть программа, которая выводит на весь экран точки произвольного цвета. Необходимо, чтобы вместо точек выводило латинские буквы в произвольном порядке

Program L;
uses graph;
var
i,x,y,c:integer;
begin
DetectGraph(x,y);
InitGraph(x,y,'c:\tp7\BGI\');
for i:=1 to 5000 do
begin
x:=Random(640);
y:=Random(480);
c:=Random(15);
PutPixel(x,y,c);
end;
readln;
end.

[compiler]

выводило латинские буквы в произвольном порядке

если работа в текстовом режиме(модуль crt в помощь), то используй:
TextColor(Color : byte) – процедура задает цвет символов Color.

Сonst
   {Коды, допустимые для текста и фона}
   Black	=0;	{Черный}
   Blue		=1;	{Синий
   Green	=2;	{Зеленый}
   Cyan		=3;	{Голубой}
   Red		=4;	{Красный}
   Maganta	=5;	{Пурпурный}
   Brown	=6;	{Коричневый}
   LightGray	=7;	{Серый}
   {Коды, допустимые только для текста}
   DarkGray	=8;	{Темно-серый}
   LightBlue	=9;	{Ярко-синий}
   LightGreen	=10;	{Ярко-зеленый}
   LightCyan	=11;	{Ярко-голубой}
   LightRed	=12;	{Ярко-красный}
   LightMaganta	=13;	{Ярко-пурпурный}
   Yellow	=14;	{Ярко-желтый}
   White	=15;	{Белый}

GoToXY(X, Y : byte) – процедура перемещает курсор к элементу экрана с заданными координатами X и Y. Если хотя бы одна координата недопустима, процедура не выполняется.
и в конце работы не забудь привести терминал в порядок...

если всё таки в графическом режиме(модуль graph), то
OutTextXY(X, Y, 'текст'), где переменные X, Y типа Integer , а 'текст' типа String – выводит строку 'текст', начиная с точки с координатами X, Y.

Сообщение отредактировано: compiler - 19.02.2008 15:51

[Гость]

спасибо !!! а не подскажешь еще как сделать, чтобы 'текст' это были разнообразные латинские буквы

[compiler]

спасибо !!! а не подскажешь еще как сделать, чтобы 'текст' это были разнообразные латинские буквы

если кодировка основана на ASCII, то я б использовал следующую процедуру

function getRandLet():char;
var	i:integer;
begin
	i:=integer(random(52));
	if i<26 then i:=i+65 else i:=i+71;
	getRandLet:=chr(i);
end;

* в главной программе необходимо прописывать randomize;

если в код не поймешь, задавай вопросы...

Сообщение отредактировано: compiler - 19.02.2008 16:14