Создать собственный шрифт в Паскале

[bwitcher]

Здравствуйте, друзья! Тут такая проблема: написал программу, которая выводит буквы. Вот только выводит она их в столбик. Не могли бы вы подправить прогу так, чтоб слово "КАССА" выводилось в строчку?

Program My;
Procedure C;
begin
writeln('**********');
writeln('**********');
writeln('**      ');
writeln('**      ');
writeln('**      ');
writeln('**********');
writeln('**********');
end;
Procedure K;
begin
Writeln('**      **');
Writeln('**    **');
Writeln('**  **');
Writeln('****');
Writeln('**  **');
Writeln('**    **');
Writeln('**      **');
end;
Procedure A;
begin
Writeln('     *     ');
Writeln('    * *    ');
Writeln('   *   *   ');
Writeln('   *   *    ');
Writeln(' ******  ');
Writeln(' *       * ');
Writeln('*         *');
end;
begin
K;a;c;c;a;
Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[bwitcher]

Не пойму, почему в процедурах так отпечатался вывод букв. В моей проге они нормально идут, как буквы А,К и С.

[Serge_Bliznykov]

Не пойму, почему в процедурах так отпечатался вывод букв. В моей проге они нормально идут, как буквы А,К и С.

потому что правила форума надо читать и соблюдать!
И код оформлять подобающим образом.
Тогда и будет всё хорошо.



теперь по сути вопроса...
я же в прошлой Вашей теме (кстати, почему Вы в ней не стали продолжать, а создали новую тему?!!) сказал, что буквы надо выводить от указанных координат... А Вы буковки рисуете через WriteLn - а LN - это означает переход на новую строчку...
вот и получаете то, что Вы получаете...


надо было сделать примерно так:

Program My;
uses CRT;
var x,y : integer;
Procedure C;
begin
GotoXY(x,y);   write('**********');
GotoXY(x,y+1); write('**********');
GotoXY(x,y+2); write('**      ');
GotoXY(x,y+3); write('**      ');
GotoXY(x,y+4); write('**      ');
GotoXY(x,y+5); write('**********');
GotoXY(x,y+6); write('**********');
x := x + 14;
end;
Procedure K;
begin
GotoXY(x,y);  Write('**      **');
GotoXY(x,y+1);Write('**    **');
GotoXY(x,y+2);Write('**  **');
GotoXY(x,y+3);Write('****');
GotoXY(x,y+4);Write('**  **');
GotoXY(x,y+5);Write('**    **');
GotoXY(x,y+6);Write('**      **');
x := x + 12;
end;
Procedure A;
begin
GotoXY(x,y);  Write('      *     ');
GotoXY(x,y+1);Write('     ***    ');
GotoXY(x,y+2);Write('    *  **   ');
GotoXY(x,y+3);Write('   *    **  ');
GotoXY(x,y+4);Write('  *********  ');
GotoXY(x,y+5);Write(' *        ** ');
GotoXY(x,y+6);Write('*          **');
x := x + 16;
end;
begin
  clrscr;
  x:=5; y:=12;
  K;a;c;c;a;
  Readln;
end.