Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Grizzz
4 / 4 / 9
Регистрация: 04.11.2012
Сообщений: 48
1

Как считать типизированный файл данные которого находятся в текстовом

09.03.2013, 11:28. Просмотров 478. Ответов 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
type
    TZ=record
                reg:string[14];
                tip:string[5];
                nazv:string[14];
                mosch:string[8];
                end;
    s=file of TZ;
var Z:TZ;
    a:0..5;
    f:s;
procedure prosmotr(var f:s);
var b:TZ; 
begin
            reset(f);
            writeln('               Электростанции                          ');
            writeln('|   Регион  | Тип |    ГЌНазвание    |Мощность|');
            while not eof(f) do
                  begin
                       read(f,b);
                       writeln;
                       write(b.reg,' ',b.tip,' ',b.nazv,' ',b.mosch);
                       writeln('--------------------------------------------');
                  end;
 
            writeln('============================================');
            writeln;
            close(f);
            writeln('Всего электростанций',filesize(f));
      end;
что исправить??
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.03.2013, 11:28
Ответы с готовыми решениями:

Создать типизированный файл f, элементы которого
Создать типичный файл f, элементы которого вычисляются по формуле: fi = i ^ 2-i +1 (i = 1,2, ......

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

Имеется типизированный файл, элементами которого являются отдельные символы
Имеется типизированный файл, элементами которого являются отдельные символы. Выяснить, являются ли...

Имеется типизированный файл, элементами которого являются отдельные символы. Создать три новых файла
Имеется типизированный файл, элементами которого являются отдельные символы. Создать три новых...

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

3
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,360
09.03.2013, 12:46 2
Цитата Сообщение от Grizzz Посмотреть сообщение
что исправить??
нужно видеть задание и исходный текстовый файл.
0
Grizzz
4 / 4 / 9
Регистрация: 04.11.2012
Сообщений: 48
09.03.2013, 12:57  [ТС] 3
дан список электростанций. Ознакомиться с типичными процедурами обработки одного файла. Написать, отладить программу и получить контрольный пример, проверяющий все варианты обработки.
Разработать программу, обрабатывающее главное меню со следующими режимами:
1. Создание
2. Корректировка
3. Просмотр
0. Выход
В режиме "Создание" предусмотреть проверку отсортированности входных записей по двум первым ключевым полям, в случае нарушения сортировки выдается сообщение об ошибке и запись отвергается. Такую запись теперь можно будет ввести вновь в режиме "Корректировка". Цикл создания файла заканчивать по признаку конца.

кроме создания я уже знаю как делать другие пункты.
0
Вложения
Тип файла: txt Input.txt (128 байт, 4 просмотров)
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,360
09.03.2013, 13:47 4
Прочитать Ваш текстовый файл в типизированный

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure createfile(var t:text;var f:s);
var s,s1:string;
    z:tz;
    i,n:byte;
begin
assign(t,'input.txt');
reset(t);
assign(f,'2.dat');//если этого нет в программе
rewrite(f);
while not eof(t) do
 begin
  readln(t,s);
  n:=length(s);
  s1:='';
  while s[1]<>' ' do
   begin
    s1:=s1+s[1];
    delete(s,1,1);
   end;
  z.reg:=s1;
  while s[1]=' ' do
  delete(s,1,1);
  s1:='';
  while s[1]<>' ' do
   begin
    s1:=s1+s[1];
    delete(s,1,1);
   end;
  z.tip:=s1;
  while s[1]=' ' do
  delete(s,1,1);
  s1:='';
  while s[1]<>' ' do
   begin
    s1:=s1+s[1];
    delete(s,1,1);
   end;
  z.nazv:=s1;
  while s[1]=' ' do
  delete(s,1,1);
  z.mosch:=s;
  write(f,z);
 end;
close(t);
close(f);
end;
Добавлено через 22 минуты
n:=length(s);//это убери
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.03.2013, 13:47

Типизированный файл: Создать файл F1, компонентами которого являются "m" одинаковых чисел, а именно "min" элемент из файла F
Создать типизированный файл F, содержащий последовательность целых чисел. Создать файл F1,...

Создать типизированный файл, который содержит данные о билетах на авиарейсы
Создать типизированный файл, который содержит данные о билетах на авиарейсы. Поля записи – страна,...

Не умею работать с файлами,как сохранить в типизированный файл...
Привет... Помогите добавить к программе след действия: Сохранение и загрузка информации в текст....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru