Задача Pascal

[Caesarmoon]

Задача: Составить таблицу на 3 столбца и 10 строк ,используя код ASCII. Первый столбец заполнить порядковыми номерами,а второй - фамилиями.







P.S потратил весь день, чтобы разобраться, но так и не разобрался.

[VIK_aka_TOR]

а третий столбец?... и для чего конкретно использовать код ASCII?

[Caesarmoon]

Для составления таблицы, для этой таблицы нужно использовать эти символы : #218 - [┌] #192-[└] ,
#191 - [┐] , #217 - [┘] , #196 - [─] , #179-[│], #195 - [├] , #193-[┴],
#197-[┼], #194 - [┬] , #180 - [┤]
Таблица 3 столбца , 10 строк,
В первый столбец порядковые номера ( 10 номеров)
Во второй Фамилии любые (до 10 фамилий )
третий - пустой

[Serge_Bliznykov]

Caesarmoon, задание совсем несложное.
Давайте, рассказывайте, на что Вы потратили время:

потратил весь день, чтобы разобраться, но так и не разобрался.

давайте Ваши наработки в коде, что у Вас получилось..
или вообще нет ни одной строчки кода?!

[whatever]

Действительно, тут делов то на рыбью ногу...

type
  str17=string[17];
  mass=array of str17;
var

  m:mass;
  i,x:byte;
  HLine:string;
begin
  HLine:='';
  for i:=1 to 17 do
    Hline:=Hline+#196;

  write('kolichestvo strok: ');
  readln(x);
  setlength(m,x);
  for i:=0 to high(m) do
    begin
      write('Familia ',i+1,': ');
      readln(m[i]);
      m[i]:=m[i]+'                ';
    end;
  writeln(#218,Hline,#194,Hline,#194,Hline,#191);
  for i:=0 to high(m) do
    begin
      if {(i<>high(m)) and} (i<>0) then
        writeln(#195,Hline,#197,hline,#197,Hline,#180);
      writeln(#179,(i+1),' ':16,#179,m[i],#179,' ':17,#179);
    end;
  writeln(#192,Hline,#193,Hline,#193,Hline,#217);
  readln;
end.

При желании можно первую ячейку сделать короче, но это уже сам.

[Serge_Bliznykov]

whatever, Вы явно перевыполнили план.
в задании было:

Составить таблицу на 3 столбца и 10 строк

и ещё, хотел бы отметить, что Ваш пример не будет работать в TurboPascal - там не было динамических массивов. Впрочем, переделать его в статический займёт менее двух минут.


Добавлено

впрочем, раз whatever сделал основную работу, то вот переделанный пример под Turbo Pascal:

const 
  MaxRowCount = 100;

type
  str17=string[17];
  mass=array[1..MaxRowCount] of str17;
var

  m:mass;
  i,x:byte;
  HLine:string;
  Hline5: string[5];
begin
  
  HLine:='';
  for i:=1 to 17 do
    Hline:=Hline+#196;

  Hline5 :='';
  for i:=1 to sizeof(HLine5)-1 do Hline5:=Hline5+#196;


  repeat
    write('Введите количество строк (от 1 до ',MaxRowCount,') : ');
    readln(x);
  until (x>=1) and (x<=MaxRowCount);

  for i:=1 to x do
    begin
      write('Familia ',i,': ');
      readln(m[i]);
      m[i]:=m[i]+'                ';
    end;

  {вывести таблицу}
  writeln(#218,Hline5,#194,Hline,#194,Hline,#191);
  for i:=1 to x do
    begin
      writeln(#179,(i):4,' ',#179,m[i],#179,' ':17,#179);
      if ( i<x ) then
        writeln(#195, Hline5, #197,hline,#197,Hline,#180);
    end;
  writeln(#192,Hline5,#193,Hline,#193,Hline,#217);

  readln;
end.