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

[Inferno777]

1. Имеется типизированный файл, элементами которого являются отдельные буквы, составляющие последовательность ОЛГАРИТМ. Получить новый файл, в котором буквы слова АЛГОРИТМ будут расположены правильно.

помогите пожалуйста!!! нужно на зачет!!

[Doholyan]

Правильно...в твоем понимании...это как!
Поясни задачку.

[NSvirus]

Этот вариант тупо создает файл с строкой: алгоритм.

type fails=record
      s:string;
      end;
var
  t:file of fails;
  st:fails;
begin
 assign(t,'fail.dat');
 rewrite(t);
 st.s:='Algoritm';
 write(t,st);
 close(t);
end.

Этот вариант читает из файла fail.dat строку, меняет местами буквы и создает новый файл с обработанной строкой:

type fails=record
     s:string;
     end;
var
t,tt:file of fails;
st,ts:fails;
begin
assign(t,'fail.dat');
assign(tt,'fail2.dat');
reset(t);
read(t,st);
ts.s:=st.s[4];
st.s[4]:=st.s[1];
st.s[1]:=ts.s[1];
rewrite(tt);
write(tt,st);
close(tt);
close(t);
end.

[Inferno777]

ну в смысле чтоб орфографически оно было правильно! то есть не олгаритм а алгоритм!

[Inferno777]

кстати!! если не трудно напишите полностью задачу!! буду оч признателен!

[Inferno777]

во втором коде ошибку выдает! в строке reset(t)!!!! "ошибка ввода вывода 2: не удается найти указанный файл (Program2.pas строка 10) вот!!

[Macklay]

Вот пожалуйста, всё работает...

Первый код:

type fails=record
s:string;
end;
var
t:file of fails;
st:fails;
begin
assign(t,'d:\proga\fail.dat');
rewrite(t);
st.s:='Algoritm';
write(t,st);
close(t);
end.

Второй код:

type fails=record
s:string;
end;
var
t:file of fails;
st:fails;
s: string;
begin
assign(t,'fail.dat');
reset(t);
read(t,st);
s:=st.s;
close (t);
st.s[1]:=s[4];
st.s[4]:=s[1];
assign(t,'fail2.dat');
rewrite(t);
write(t,st);
close(t);
end.

[__STDC__]

файл, элементами которого явл-ся отдельные буквы - file of char скорее...

[Macklay]

тока в первом коде изменить assign(t,'d:\proga\fail.dat'); на просто fail.dat

[Macklay]

Хмм... Возможно.. Нужно уточнять у автора, так ли ему нужно..