Вывод в виде таблицы. Pascal. Проблемы с ровностью.

[Egorikas]

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

Не поверишь
я твою прогу не понял...
Ввести список - ввел, но таблицу при просмотре не получил вообще. Только шапку
Так что даже получить такие спецэффекты не могу.

Ну, скорее всего связано это с файлами и линуксом, вот код порезанный, без файлов, но таже самая засада.

program naforum;
Type
Hotel  =  record
nazvanie:string;
   sodnk:integer;
   sdvyk:integer;
   strik:integer;
   kodnk:integer;
   kdvyk:integer;
   ktrik:integer;
   ryaon:string;
end;
Var    gost :array[1..30] of Hotel ;
gs : file  of Hotel;
a,b,rm:integer;
   i,viz:integer;

begin
for i:=1 to 3 do

with gost[i] do
begin
writeln(' Vvedite nazvanie');
readln(nazvanie);
writeln(' Vvedite stoimost 1 ');
readln(sodnk);
writeln(' Vvedite stoimost 2 ');
readln(sdvyk);
writeln(' Vvedite stoimost 3 ');
readln(strik);
writeln(' Vvedite kolichestvo 1 ');
readln(kodnk);
writeln(' Vvedite kolichestvo 2 ');
readln(kdvyk);
writeln(' Vvedite kolichestvo 3 ');
readln(ktrik);
writeln(' Vvedite rayon');
readln(ryaon);
end;


      write('--------------------------------------------------------------------------');
      writeln;
      write('|     Название       |     Стоимость номера    |   Колличество номеров   |');
      writeln;
      write('--------------------------------------------------------------------------');
      for i:=1 to 3 do
         with gost[i] do
           begin
            writeln;
             write('|':1,nazvanie:20,'|',strik:20,'|',ktrik:5,'|');
            writeln;
            write('--------------------------------------------------------------------------');
           end;



readln;
end.

[Serge_Bliznykov]

не свосем понятно, что Вас смущает.
Всё работает так, как Вы запрограммировали!
Если Вы видите проблему в том, что шапка и данные не соответствуют другг другу - так Вы же сами в заголовке написили намного больше символов, чем выводите в соответствующем столбце..

вот так попробуйте:

      write('-------------------------------------------------------------------------');
      writeln;
      write('|     Название       |     Стоимость номера    |   Количество номеров   |');
      writeln;
      write('-------------------------------------------------------------------------');
      for i:=1 to 3 do
         with gost[i] do
           begin
            writeln;
             write('|':1,nazvanie:20,'|',strik:24,' |',ktrik:23,' |');
            writeln;
            write('--------------------------------------------------------------------------');
           end;

[Stilet]

Верно Серж сказал.

      writeln('-------------------------------------------------------------------------');
      writeln('|','Название':24,'|','Стоимость номера':25,'|','Колличество номеров':20,'|');
      writeln('-------------------------------------------------------------------------');
      for i:=1 to 3 do
         with gost[i] do
           begin
             writeln('|',nazvanie:24,'|',strik:25,'|',ktrik:20,'|');
            writeln('-------------------------------------------------------------------------');
           end;

Вот что получается:

[Egorikas]

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

Верно Серж сказал.

      writeln('-------------------------------------------------------------------------');
      writeln('|','Название':24,'|','Стоимость номера':25,'|','Колличество номеров':20,'|');
      writeln('-------------------------------------------------------------------------');
      for i:=1 to 3 do
         with gost[i] do
           begin
             writeln('|',nazvanie:24,'|',strik:25,'|',ktrik:20,'|');
            writeln('-------------------------------------------------------------------------');
           end;

Вот что получается:

вообщем, я совсем перестал понимать как оно работает, буду мучаться и подгонять. Спасибо большое за помощь. А получается такое. Возможно дело в линуксе.

[Egorikas]

p.s. А как спасибо сказать или плюсик поставить?

[Stilet]

Ну не знаю... У меня на Пингвине все в порядке, кроме шапки все переменки выравниваются красиво.

как спасибо сказать

под Аватаром весы есть.

[Egorikas]

Вообщем был достигнут такой результат и на нем я остановился, всем спасибо за помощь.

[Egorikas]

p.s. вся проблема возникает при использовании русских символов, вот и найден корень всех зол, спасибо большое.

[Stilet]

Может потому что русские символы в юникоде... Может консоля некрасиво юникод выводит? пробел то там считается как один байт, а русская буква как два...
Я может чушь несу, но у меня похожая беда с форматированием в HTML была.

[Egorikas]

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

Может потому что русские символы в юникоде... Может консоля некрасиво юникод выводит? пробел то там считается как один байт, а русская буква как два...
Я может чушь несу, но у меня похожая беда с форматированием в HTML была.

Сегодня состоялся совет людей с такой проблемой, и был достигнут такой же вывод. Так что не чушь.