Псевдографика. Или как можно рисовать в текстовом режиме

6:13 пп | Искусство, Программирование Автор: prepod

Давным давно, когда динозавры еще не вымерли, когда по телефону можно было только позвонить, когда у самых крутых компьютеров было 64Килобайта оперативной памяти и их черно-белые мониторы могли работать только в текстовом режиме – и тогда людям хотелось создавать прекрасное. И тогда из стремления компьютерщиков к красоте родилась псевдографика.

Итак, напомню. В текстовом режиме работы экран понимается как матрица, состоящая из отдельных ячеек. В каждую из ячеек можно поместить один какой-нибудь символ – букву, цифру, знак препинания, спецсимвол типа скобки. По сути, экран предназначается в таком режиме исключительно для вывода текстов. Ни о каких фотографиях никакой речи не идет.
Вобщем, текстовый режим – это очень примитивно. Зато – просто и быстро! А для работы с текстами в древние времена этого режима вполне хватало.
Но людям хотелось создавать прекрасное. И какие-то там ограничения текстового режима никого не остановили:)
Решение нашлось почти сразу. Можно рисовать самими символами!

Программисты в стороне не оставались. Вместо того, чтоб нудно расставлять символы по позициям экрана вручную, они создавали программы, которые создавали рисунки по определенным алгоритмам.
И тут нам пригодится команда
GoToXY (X,Y);
X,Y – это координаты экрана. Команда приказывает переместить курсор на позицию экрана с именно этими координатами.
И еще функция chr(a) – dыдает символьное значение (символ) с заданным в аргументе порядковым номером

Program N2;
uses crt;
var
i,j: byte;
BEGIN
textbackground (0);
clrscr; {- первоначальная очистка экрана и заливка черным цветом}

for i:=2 to 78 do
   begin
         GoToXY (i,3);
         TextColor(red);
         writeln ('*');
   end;
for i:=2 to 78 do
   begin
         GoToXY (i,22);
         TextColor(green);
         writeln ('*');
   end;
for i:=2 to 22 do
   begin
         GoToXY (2,i);
         TextColor(yellow);
         writeln ('*');
   end;
for i:=2 to 22 do
   begin
         GoToXY (78,i);
         TextColor(blue);
         writeln ('*');
   end;
 window (5,5,75,20);
for i:=5 to 10 do
   for j:=4 to 70 do
       begin
          GoToXY (j,i);
          TextColor(j);
          writeln (chr (j+43));
          delay (200);
          clrscr;
       end;
writeln ('Программа завершена');
END.
VN:F [1.9.22_1171]
Rating: 8.5/10 (14 votes cast)
VN:F [1.9.22_1171]
Rating: +3 (from 7 votes)
Псевдографика. Или как можно рисовать в текстовом режиме, 8.5 out of 10 based on 14 ratings

Related posts:

  1. Как создавать окна в текстовом режиме работы монитора
  2. Использование подпрограмм для работы с окнами в Pascal
  3. Составной оператор
  4. Оператор цикла
  5. Типовые задачи обработки информации в числовых массивах