Вывод данных из файла в табличном виде

@andrewsereda · Регистрация: 08.11.2013

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

имеется небольшая программа, которая записывает введенные данные в текстовый файл
как сделать так что б при выводе данных, они отображались красиво, как таблица типо, а то пропусками не то

№

название1

название2

название3

вот код программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program text_fail;
uses crt;
var
f: text;
name, date: string;
price, nak, kst, n, i: integer;
begin
assign (f,'storage1.txt');
rewrite(f);
write('введите к-ство запросов: '); read(n);
for i:=1 to n do
begin
writeln('введите номер ',i,' товара:');
readln(nak);
write(f,nak,' |',' ');
writeln('введите имя товара:');
readln(name);
write(f,' ',name,' ');
writeln('введите количество:');
readln(kst);
write(f,'    ',kst,'     ');
writeln('введите дату поступления:');
readln(date);
write(f,'    ',date,'     ');
writeln('введите цену:');
readln(price);
write(f,price);
writeln;
end;
close(f);
end.

Добавлено через 9 минут
вот программа для вывода данных

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program storage1;
uses crt;
var f:text;s:string;
i:integer;
begin
clrscr;
window(1,1,70,25);
gotoxy(20,1);
textcolor(0);
write('Поступления');
gotoxy(1,3);
writeln('--------------------------------------------------------------');
writeln('  №  |    Товар    | Количество |  Дата поступления  |  Цена  ');
writeln('--------------------------------------------------------------');
assign(f,'storage1.txt');
reset(f);
while not eof(f) do begin
readln(f,s);
writeln(s);
end;
close(f);
end.

@markiza-inc · 09.11.2013, 04:18

Программа вывода "storage1" должна иметь такие же переменные, и тех же типов, как и в первой программе "text_fail" (nak, name, kst, date, price).
И считывать из файла нужно не одну строковую переменную S, а именно последовательно эти переменные (nak, name, kst, date, price). При выводе в файл лучше использовать writeln, а не write. При вводе из файла, соответственно ReadLn. Тогда все читается.
Для вывода на экран нужно использовать формат, типа: nak:5,name:13,kst:12 и т.д., подбирая под размеры вашей таблицы.
Операторы "Window" и "gotoxy" лучше убрать.

@markiza-inc · 09.11.2013, 15:45

Примерно так:

1. файл ввода данных.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program text_fail;
uses crt;
var
   f                      : text;
   name, date             : string;
   price, nak, kst, n, i  : integer;
begin
     clrscr;
     assign (f,'storage1.txt');
     rewrite(f);
     write('введите количество запросов: '); read(n);writeln;
for i:=1 to n do
 begin
      write('введите номер ',i,' товара:');
      readln(nak);
      writeln(f,nak);
      write('введите имя товара:');
      readln(name);
      writeln(f,name);
      write('введите количество:');
      readln(kst);
      writeln(f,kst);
      write('введите дату поступления:');
      readln(date);
      writeln(f,date);
      write('введите цену:');
      readln(price);
      writeln(f,price);
 end;
 close(f);
end.

2. Теперь файл вывода данных на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program storage1;
uses crt;
var f : text;
    i:integer;
    name, date: string;
    price, nak, kst : integer;
begin
  clrscr;
  write('Поступления');writeln;
  writeln('--------------------------------------------------------------');
  writeln('  №  |    Товар    | Количество |  Дата поступления  |  Цена  ');
  writeln('--------------------------------------------------------------');
     assign(f,'storage1.txt');
  reset(f);
 while not eof(f) do begin
   readln(f,nak);
   write(nak:5);
   readln(f,name);
   write(name:14);
   readln(f,kst);
   write(kst:13);
   read(f,date);
   write(date:21);
   readln(f,price);
   write(price:8);
   writeln;
end;
  close(f);
  readln;
end.

3. Пример файла с данными.

STORAGE1.TXT

@andrewsereda · 09.11.2013, 18:27 **[ТС]**

markiza-inc
спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@markiza-inc 930 / 257 / 100 Регистрация: 21.10.2012 Сообщений: 620
	09.11.2013, 04:18
	Программа вывода "storage1" должна иметь такие же переменные, и тех же типов, как и в первой программе "text_fail" (nak, name, kst, date, price). И считывать из файла нужно не одну строковую переменную S, а именно последовательно эти переменные (nak, name, kst, date, price). При выводе в файл лучше использовать writeln, а не write. При вводе из файла, соответственно ReadLn. Тогда все читается. Для вывода на экран нужно использовать формат, типа: nak:5,name:13,kst:12 и т.д., подбирая под размеры вашей таблицы. Операторы "Window" и "gotoxy" лучше убрать. 0

@andrewsereda 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 11
	09.11.2013, 18:27 [ТС]
	markiza-inc спасибо большое 0

Вывод данных из файла в табличном виде

Решение