Таблицы в паскале

[Ks7V]

Подскажите пожалуйста! Можно ли как то сделать в паскале, что бы пользователь вводил количество строк и столбцов и паскаль рисовал такую таблицу. И возможно ли такое без подключения графического режима???

[zetrix]

Да, можно в тектовом режиме. Весь процесс отрисовки ложится на ваши плечи.
Как рисовать? Посмотрите (или выведите на экран) таблицу ASCII там есть подходящие символы. Вот из них и создаём таблицу.

[JasperCRT]

Вот примерный код таблицы с пользовательскими параметрами)

program z1;
uses crt;
var st,s,i,z,x,e,c,d:integer;
 f:array [1..10] of string[15];
begin
readln(st,s);
for i:=1 to s do
readln(f[i]);

d:=round(80/s);

for x:=1 to st do
      begin
for z:=1 to 80 do
write ('*');

 e:=1;
for c:=1 to s do begin
gotoxy(e,wherey); write('*     ',f[c]);
e:=e+d;
 end;
 gotoxy (80,wherey); write('*');

end;
for z:=1 to 80 do
write ('*');

end.

В коде разберитесь сами времени на расшифровку нету) Всё предельно просто) Можно и по другому но это самый лёгкий вариант) Будет время опишу все свои действия)

[Hell_Raven]

Сообщение от JasperCRT

Вот примерный код таблицы с пользовательскими параметрами)

program z1;
uses crt;
var st,s,i,z,x,e,c,d:integer;
 f:array [1..10] of string[15];
begin
readln(st,s);
for i:=1 to s do
readln(f[i]);

d:=round(80/s);

for x:=1 to st do
      begin
for z:=1 to 80 do
write ('*');

 e:=1;
for c:=1 to s do begin
gotoxy(e,wherey); write('*     ',f[c]);
e:=e+d;
 end;
 gotoxy (80,wherey); write('*');

end;
for z:=1 to 80 do
write ('*');

end.

В коде разберитесь сами времени на расшифровку нету) Всё предельно просто) Можно и по другому но это самый лёгкий вариант) Будет время опишу все свои действия)

Извиняюсь за подъем старой темы, но может ли кто-то подсказать как в программке предоставленной выше сделать ввод любого числа для каждой ячейки? В том виде в каком она представлена сейчас числа дублируются поколоночно.

[Hell_Raven]

Подсобите пожалуйста, кому не сложно.