Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Type
  tFIO=record
    fam,im,otch:string
  end;
var
  f:tFIO;
  s:string;
  g:Text;
  i,n:integer;
begin
  Assign(g,IOF.txt); Rewrite(g);
  Write(Количество сотрудников: ); Readln(n);
  for i:=1 to n do
  begin
    With f do
    begin
      { сформировать запись типа f }
      Writeln(*** Сотрудник № ,i, ***);
      Writeln(Фамилия: ); Readln(s); fam:=s;
      Writeln(Имя: ); Readln(s); im:=s;
      Writeln(Отчество: ); Readln(s); otch:=s;
      { занести данные в файл }
      Writeln(g,im, ,otch, ,fam)
    end
  end;
  Close(g)
end.