Создание типизированного файла

@Maks Smirnov · Регистрация: 02.12.2020

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

Здравствуйте!

Я никак не могу найти ошибку, которую допустил в этой части кода:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var f: file of string[38];
     s: string;
begin
assign(f, 'tfile.txt');
rewrite(f);
write(f, 'страна город улица дом корпус квартира', #13#10);
write(f, 'NNNN NNNN NNNN NNN NNNNN NNNNNN');
write(f, 'NNNN NNNN NNNN NNN NNNNN NNNNNN');
//...
write(f, 'NNNN NNNN NNNN NNN NNNNN NNNNNN');
close(f);
reset(f);
while (not Eof(f)) do
begin
   read(f, s);
   writeln(s);
end;
close(f);
end.

Компилятор выдает ошибку: Typecast has different (8 -> 38) size in assignment - на строке:

Pascal
1
read(f, s);

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

Понимаю, что я либо неправильно объявил файл типа string, либо он может быть только типа char.

Сейчас мне пришла мысль, что [55] означает количество символов не в одной строке, а во всех строках файла.

@DivineBoss · 13.11.2021, 16:05

Maks Smirnov, строка s должна быть такой же размерности, как строки файла (38)

@bormant · 13.11.2021, 17:01

Maks Smirnov,
Не надо вам вот этого:

Pascal
1
   : file of string[38];

Вам могло показаться, что это текстовый файл (на это указывают расширение ".txt" и попытка вывести туда #13#10), но это не так.
File of String[38] -- это типизированный файл. Строки в него пишутся ровно так, как расположены в памяти:

Code
1
<один байт длины строки> <38 байт содержимого строки> <один байт длины строки> <38 байт содержимого строки> ...

Залезет туда кто-то блокнотом и привет вашим данным

Вам нужен файл типа Text:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  f: Text;
  s: String;
begin
  Assign(f, 'tfile.txt');
  Rewrite(f);
  WriteLn(f, 'страна город улица дом корпус квартира');
  WriteLn(f, 'NNNN NNNN NNNN NNN NNNNN NNNNNN');
  WriteLn(f, 'NNNN NNNN NNNN NNN NNNNN NNNNNN');
//...
  WriteLn(f, 'NNNN NNNN NNNN NNN NNNNN NNNNNN');
  Close(f);
  Reset(f);
  while not EoF(f) do
  begin
    ReadLn(f, s);
    WriteLn(s);
  end;
  Close(f);
end.

@Maks Smirnov · 13.11.2021, 19:24 **[ТС]**

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

@bormant · 13.11.2021, 19:49

Зачем вы в типизированный файл пишете текст?
Пишите те самые записи, которые содержат нужные поля.

Приведите полное и точное задание, похоже без него мы дальше не сдвинемся.

@Maks Smirnov · 13.11.2021, 20:39 **[ТС]**

bormant, я разбил задание на три части. Сейчас делаю первую. Для двух текстовых файлов первую часть задачи выполнил (решение приведено ниже), но для типизированного и текстового реализовать не получается.

Первая часть задания: Создать типизированный файл, содержащий экзаменационную ведомость одной студенческой группы. Компонентом файла является запись, состоящая из следующих полей: номер, фамилия, имя, отчество, номер зачетной книжки, оценка. Заполнить этот файл 5 – 7 записями.
Далее, считывая информацию из типизированного файла, создать текстовый файл со следующим содержимым:
Фамилия Оценка
… …
… …
Вывести на экран содержимое обоих файлов.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
program basic;
type vedomost = record
number: string[8];
surname: string[12];
name: string[12];
patronymic: string[15];
number_z_k: string[24];
mark: string[8];
end;
function cp866to1251(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    case s[i] of
      #0..#$7F: ;
      #$80..#$AF: {А..п} Inc(s[i], $40);
      #$E0..#$EF: {р..я} Inc(s[i], $10);
      #$F0: {Ё} s[i] := #$A8;
      #$F1: {ё} s[i] := #$B8;
      else s[i] := ' ';
    end;
  cp866to1251 := s;
end;
var f: text;
    k: vedomost;
    g: text;
    proverka: byte;
begin
  write('Запустить программу? (Да - "1", Нет - "0"): ');
  readln(proverka);
  if (proverka = 0) then exit;
  writeln;
  repeat
    assign(f, 'tfile.txt');
    rewrite(f);
    writeln(f, 'Номер___Фамилия______Имя_________Отчество________Номер_зачетной_книжки___Оценка');
    writeln(f, '__1_____Третников____Алексей_____Владимирович____________21ф164____________5___');
    writeln(f, '__2_____Хомутов______Иван________Михайлович______________21ф165____________2___');
    writeln(f, '__3_____Смирнов______Александр___Николаевич______________21ф166____________4___');
    writeln(f, '__4_____Кузнецов_____Артем_______Степанович______________21ф167____________3___');
    writeln(f, '__5_____Миронов______Егор________Даниилович______________21ф168____________1___');
    close(f);
    reset(f);
    assign(g, 'file.txt');
    rewrite(g);
    while (not EOF(f)) do
    begin
      read(f, k.number);
      read(f, k.surname);
      write(g, k.surname);
      read(f, k.name);
      read(f, k.patronymic);
      read(f, k.number_z_k);
      readln(f, k.mark);
      write(g, k.mark, #13#10);
    end;
    close(g);
    close(f);
    reset(f);
    writeln('-------------------------------------------------------------------------------');
    writeln('Содержимое  исходного файла:');
    writeln('-------------------------------------------------------------------------------');
    while (not EOF(f)) do
    begin
      read(f, k.number);
      write(cp866to1251(k.number));
      read(f, k.surname);
      write(cp866to1251(k.surname));
      read(f, k.name);
      write(cp866to1251(k.name));
      read(f, k.patronymic);
      write(cp866to1251(k.patronymic));
      read(f, k.number_z_k);
      write(cp866to1251(k.number_z_k));
      readln(f, k.mark);
      writeln(cp866to1251(k.mark));
    end;
    close(f);
    writeln('-------------------------------------------------------------------------------');
    reset(g);
    writeln;
    writeln('-------------------------');
    writeln('Содержимое  нового файла:');
    writeln('-------------------------');
    while (not EOF(g)) do
    begin
      read(g, k.surname);
      write(cp866to1251(k.surname));
      readln(g, k.mark);
      writeln(cp866to1251(k.mark));
    end;
    writeln('-------------------------');
    close(g);
    writeln;
    write('Запустить программу с начала? (Да - "1", Нет - "0"): ');
    readln(proverka);
  until (proverka = 0);
end.

@bormant · 13.11.2021, 21:44

Сообщение от Maks Smirnov

я разбил задание на три части

Мне непонятно, что может быть непонятно в этих пяти незамысловатых словах:

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

Приведите полное и точное задание

Добавлено через 23 минуты

Сообщение от Maks Smirnov

запись, состоящая из следующих полей: номер, фамилия, имя, отчество, номер зачетной книжки, оценка.

Pascal
1
2
3
4
5
6
7
type
  TRec = record
    Num: Integer;
    LName, FName, MName: String[31];
    GBNum: Integer;
    Grade: Integer;
  end;

Сообщение от Maks Smirnov

Заполнить этот файл 5 – 7 записями.

Pascal
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
const W=25;
var
  f: file of TRec;
  r: TRec;
begin
  Assign(f,'sheet.dat'); Rewrite(f);
  WriteLn('Введите данные ведомости (пустая фамилия - завершение ввода)');
  with r do 
    repeat
      Inc(Num);
      WriteLn;
      WriteLn('Строка: ':W,Num);
      Write('Фамилия: ':W);
      ReadLn(LName);
      if LName='' then Break;
      Write('Имя: ':W);
      ReadLn(FName);
      Write('Отчество: ':W);
      ReadLn(MName);
      Write('Номер зачетной книжки: ':W);
      ReadLn(GBNum);
      Write('Оценка: ':W);
      ReadLn(Grade);
      Write(f,r);
    until False;
  Close(f);
end.

Сообщение от Maks Smirnov

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

Ну тут-то теперь справитесь?

@bormant · 14.11.2021, 13:41

Кликните здесь для просмотра всего текста

Может подумать еще немного?

Pascal
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var
  f: file of TRec
  r: TRec;
  t: Text;
begin
  Assign(f,'sheet.dat');
  Assign(t,'sheet.txt');
  Reset(f);
  Rewrite(t);
  WriteLn(t,' #  Фамилия             Имя                 Отчество            Зач.кн.  Оценка');
  WriteLn(t);
  while not EoF(f) do with r do begin
    Read(f,r);
    WriteLn(t,
      Num:2,'':2,
      LName,'':20-Length(LName),
      FName,'':20-Length(FName),
      MName,'':20-Length(MName),
      GBNum:7,
      Grade:8);
  end;
  Close(f);
  Close(t);
end.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@DivineBoss 191 / 111 / 84 Регистрация: 11.10.2020 Сообщений: 345
	13.11.2021, 16:05
	Maks Smirnov, строка s должна быть такой же размерности, как строки файла (38) 1

@Maks Smirnov 0 / 0 / 0 Регистрация: 02.12.2020 Сообщений: 135
	13.11.2021, 19:24 [ТС]
	bormant, так в этом и проблема, что по заданию требуется, чтобы данный файл был типизированный. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	13.11.2021, 19:49
	Зачем вы в типизированный файл пишете текст? Пишите те самые записи, которые содержат нужные поля. Приведите полное и точное задание, похоже без него мы дальше не сдвинемся. 0