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

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

09.03.2013, 11:28. Просмотров 471. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как считать типизированный файл данные которого находятся в текстовом (Pascal ABC):

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

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

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

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

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

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

3
Puporev
Модератор
54124 / 41757 / 28869
Регистрация: 18.05.2008
Сообщений: 98,280
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
Модератор
54124 / 41757 / 28869
Регистрация: 18.05.2008
Сообщений: 98,280
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
Привет! Вот еще темы с решениями:

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

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

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

Как лучше считать данные?
Необходимо написать программу подсчитывающую количество количество неубывающих...


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

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

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