Таблица

@oleg135 · Регистрация: 19.10.2008

Author24 — интернет-сервис помощи студентам

Добрый день, не могли бы вы помочь мне вывести данные из записи в виде таблице.
Что то вроде этого:

****************************
I Иванов И.И I ул.Советская 123/2 I
****************************

У меня получается таблица, но какая-то кривая

@Arriba · 02.11.2008, 17:34

Делай вот так, для одного элемента списка выводи данные каждого поля и после каждого поля ставь разделитель,а если встретится последнее поле. тогда переводи строчку на следующую.
Конкретно, только по коду.

@oleg135 · 02.11.2008, 22:11 **[ТС]**

а можно для совсем тупых, вот программа, у меня не получается, сделать как посоветовали, т.к исчезают некоторые элементы при выводе

Pascal

program tabl;
type anketa = record
fio : string [20];
adres : string [20];
end;
var
rabotnik : array [1..100] of anketa;
i,n : integer;
begin
writeln ('введите кол-во работников ');
readln(n);
for i:=1 to n do
begin
writeln ('введите фамилию ', i, '-ого', ' работника ');
readln(rabotnik[i].fio);
writeln('введите адресс ',i, '-ого', ' работника ');
readln(rabotnik[i].adres);
end;
for i:=1 to n do
writeln ('I ',' ' ,rabotnik[i].fio,' I ', rabotnik[i].adres,' I');
end.

@Arriba · 02.11.2008, 22:59

Программа у тебя работает нормально, ничего не теряется.
Только в конце ReadLn; и всего то.

Вот я чуток переделал прогу, посмотри тебе так нуно:

Pascal

type anketa = record
     fio:string [20];
     adres:string [20];
end;
var rabotnik:array [1..100] of anketa;
         i,n:integer;
begin
   WriteLn('vvedi kol-vo rabotnikov: ');
   ReadLn(n);
     for i:=1 to n do
       begin
         WriteLn('vvedi familiu ', i, '-oro', ' rabotnika ');
         ReadLn(rabotnik[i].fio);
          repeat
            if Length(rabotnik[i].fio)<20 then
              rabotnik[i].fio:=rabotnik[i].fio+' ';
          until Length(rabotnik[i].fio)=20;
         WriteLn('vvedi address ',i, '-oro', ' rabotnika ');
         ReadLn(rabotnik[i].adres);
          repeat
            if Length(rabotnik[i].adres)<20 then
              rabotnik[i].adres:=rabotnik[i].adres+' ';
          until Length(rabotnik[i].adres)=20;
       end;
     for i:=1 to n do
       WriteLn('I ',' ' ,rabotnik[i].fio,' I ', rabotnik[i].adres,' I');
ReadLn;
end.

Добавлено через 2 минуты 42 секунды
Я просто добиваю пробелами до 20 символо и таблица прямая, только если ты будешь дальше использовать данные из полей, так не пойдёт.

@oleg135 · 03.11.2008, 08:04 **[ТС]**

огромное спасибо

@oleg135 1 / 1 / 0 Регистрация: 19.10.2008 Сообщений: 46
		1
	Таблица 02.11.2008, 16:08. Показов 3309. Ответов 4 Метки нет (Все метки) Добрый день, не могли бы вы помочь мне вывести данные из записи в виде таблице. Что то вроде этого: ************************** I Иванов И.И I ул.Советская 123/2 I ************************** У меня получается таблица, но какая-то кривая 0

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	02.11.2008, 17:34	2
	Делай вот так, для одного элемента списка выводи данные каждого поля и после каждого поля ставь разделитель,а если встретится последнее поле. тогда переводи строчку на следующую. Конкретно, только по коду. 0

@oleg135 1 / 1 / 0 Регистрация: 19.10.2008 Сообщений: 46
	03.11.2008, 08:04 [ТС]	5
	огромное спасибо 0

Опции темы