Дан символьный файл

@zevs-2009 · Регистрация: 25.12.2009

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

Помогите с задачей:

Дан символьный файл f, содержащий сведения о сотрудниках учереждения, записанные по следующему образцу: фамилия__имя__отчество, фамилия__имя__отчество, ...Записать эти сведения в файле g, используя образцы:
имя__отчество__фамилия, имя__отчество__фамилия, ...;

я на быдлокодил следующее..., оно наполовину работало, затем стала выдавать ошибку чтения.
что виновато и что делать? Заранее спасибо!!!!!

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
uses crt;
var
i,j,n,m,r:byte;
a:array [1..100] of char;
b:array [1..100] of byte;
y,z:char;
f,g: file of char;
 
begin
clrscr;
assign(f,'d:\1.dat');
assign(g,'d:\2.dat');
rewrite(f);
repeat begin read(x); write(f,x) end; until ord(x)=13; close(f); 
reset(f);
z:='_';
m:=1;
{считаем кол-во записанных человек, фиксируя начало каждого в массиве b}
for m:=1 to filesize(f) do begin read (f,a[m]);
                            if a[m]=' ' then begin inc(r); b[r]:=m end;end;
 
for j:=1 to r do begin
    {каждый цикл начинаем со следующего человека по ссылке на массив  b}
    reset(f); seek(f,b[j]);{считываем фамилию в массив а}
    repeat begin read(f,y); i:=i+1; a[i]:=y; end until y='_'; 
 
    rewrite(g);  seek(f, b[j]+i); {считываем имя отчество и записываем в файл g}
    repeat  begin read(f,y); write(g,y) end until y=','; 
 
    {меняем , на _ в конце файла g}
    seek(g,filesize(g)-1); write(g,z);
    seek(g,filesize(g)); {переходим в конец файла g и дописываем фамилию}
    for n:=1 to i do write(g,a[n]); close(g);
    {переходим к следующему человеку}
   end
end.

@Artorios · 14.05.2011, 06:42

Не,я думаю тут массив не нужен.Можно сделать проще!
Вот создаём файл:

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
Program ggg;
uses crt;
Type A= file of char;
Var f:A;
    i,n:integer;
    sp,sp1,sp2,sp3:string;d:char;
Procedure convert(Var S:String;Var f1:A);
Var i,n:integer;
    c:char;
begin
  for i:=1 to ord(s[0]) do
  begin
    seek(f1,FileSize(f1));
    d:=s[i];
    Write(f1,d);
  end;
  s:='';
end;
Begin
 ClrScr;
 repeat
  Write('Введите колличество записей ');
  ReadLn(n);
 until n > 0;
Assign(F,'f');
ReWrite(f);
for i:=1 to n do
begin
  Write('Фамилия ');
  readLn(sp1);sp1:=sp1+'__';
  Write('Имя ');
  readLn(sp2);sp2:=sp2+'__';
  Write('Отчество ');
  readLn(sp3);sp3:=sp3+',';
  sp:=sp1+sp2+sp3;
  convert(sp,f);
end;
ClrScr;
Reset(f);
While not eof(f) do
  begin
    read(f,d);
    Write(d);
  end;
readLn;
close(f);
end.

А вот и сама програмка:

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
Program m;
Uses crt;
Type AA=file of char;
Var
    F,G:AA;
Procedure convert(Stroka:String);
Var i,n:integer;
    c:char;
begin
  for i:=1 to ord(stroka[0]) do
  begin
    seek(G,FileSize(G));  //нахожу конец файла для дозаписи
    c:=stroka[i];
    Write(g,c);
  end;
  //stroka:='';
end;
 
Procedure ststst(St:String);
Var fam,na,pt,h:String;
    x:integer;
begin
h:='_';
    x:=Pos(h,St);
    Fam:=copy(st,1,x-1);  delete(st,1,x+1); //удаляем фамилию
    x:=Pos(h,St);
    Na:=copy(st,1,x-1);   delete(st,1,x+1); //удаляем имя
    pt:=st;              //остаётся отчество
    WriteLn;
    convert(Na+'__');convert(pt+'__');convert(fam+','); //передаём строки для посимвольной записи в файл g
    st:='';
end;
 
 
Procedure Search(Var ff:AA);
Var c:char;
    s:string;
Begin
s:='';  ReSet(ff);
While not eof(ff) do
begin
  read(ff,c);
  if c <> ',' then
    s:=s+c  else
    begin
      Ststst(s);
      s:='';
    end;
end;
end;
 
Procedure Prosmotr(Var fg:AA);
Var d:char;
begin
  While not eof(fg) do
  begin
    Read(fg,d);
    Write(d);
  end;
end;
 
Begin
  ClrScr;
  Assign(f,'f');   Assign(g,'g');  ReWrite(g);
  Reset(f);
  WriteLn('Данный файл : ');
  Prosmotr(f);
  WriteLn;
  Search(f);
  WriteLn('Получилось : ');
  ReSet(g);
  Prosmotr(g);
readLn;
close(f);close(g);
end.

Ну я бы так сделал

.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов 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. Задача: реализовать контроль корректности заполнения дат назначения. . .

Опции темы