YuliaShumilova969
Новичок
|
     
Дана задача,по программированию, вот не дотямкаю я её...
Дан текстовый файл f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу:
фамилия имя отчество фамилия имя отчество ...
Запишите эти сведения в текстовом файле g, используя образец: фамилия и.о.
program fail;
uses crt;
type Fio=record
Fam:string[15];
Ima:string[15];
Otch:string[15];
end;
var f,g:file of Fio;
i,n:word;
s:Fio;
p:array[0..14] of Fio;
begin
clrscr;
assign(f,'f.txt');
rewrite(f);
writeln('vvedite kol-vo sotrudnikov ');
readln(n);
for i:=1 to n do
begin
writeln('vvedite FIO',i,' rabotnika: ');
write('familia ');readln(s.Fam);
write('Imia ');readln(s.Ima);
writeln('otchestvo ');readln(s.Otch);
write(f,s);
writeln;
end;
assign(g,'g.txt');
rewrite(g);
read(f,s);
for i:=1 to n do
begin
???????????????
writeln;
end;
writeln('spisok sotrudnikov: ');
for i:=1 to n do
begin
read(g,s);
writeln;
end;
readkey;
end.
|
Форум
Решение задачи
