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

@Nekko93 · Регистрация: 29.03.2013

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

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

Kodzaev · 29.03.2013, 22:46

Если файл уже есть комментарии не трогай, если нет - раскомментируй и программа создаст новый файл:

Pascal

Var
  f: File of Char;
  ch: Char;
BEGIN
Assign(f,'1.dat');
{Rewrite(f);
Write(f,'О');
Write(f,'Л');
Write(f,'Г');
Write(f,'А');
Write(f,'Р');
Write(f,'И');
Write(f,'Т');
Write(f,'М');}
Reset(f);
Seek(f,0);
Write(f,'А');
Seek(f,3);
Write(f,'О');
Seek(f,0);
While not Eof(f) do
begin
  Read(f,ch);
  Write(ch);
end;
Close(f)
END.

@K0hi · 14.06.2021, 09:15

var f: text;
s,sr,b1,b2:string;
begin
assign(f,'b18.txt'); reset(f);
while not eof(f) do
read(f,s);
close(f);
b1:=s[1];
b2:=s[4];
sr:=b2+s[2]+s[3]+b1+s[5]+s[6]+s[7]+s[8];
rewrite(f);
write(f,sr);
close(f);
readln;
end.

Добавлено через 50 секунд
в своем файле напишите olgaritm

@Nekko93 1 / 1 / 0 Регистрация: 29.03.2013 Сообщений: 8
		1
	Имеется типизированный файл, элементами которого являются отдельные буквы 29.03.2013, 22:39. Показов 4063. Ответов 2 Метки нет (Все метки) Имеется типизированный файл, элементами которого являются отдельные буквы, составляющие последовательность ОЛГАРИТМ. Получить новый файл, в котором буквы слова АЛГОРИТМ будут расположены правильно. 0

@K0hi 0 / 0 / 0 Регистрация: 03.05.2021 Сообщений: 2
	14.06.2021, 09:15	3
	var f: text; s,sr,b1,b2:string; begin assign(f,'b18.txt'); reset(f); while not eof(f) do read(f,s); close(f); b1:=s[1]; b2:=s[4]; sr:=b2+s[2]+s[3]+b1+s[5]+s[6]+s[7]+s[8]; rewrite(f); write(f,sr); close(f); readln; end. Добавлено через 50 секунд в своем файле напишите olgaritm 0

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

Решение