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

@Sensei150 · Регистрация: 07.06.2020

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

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

@Puporev · 07.06.2020, 17:35

Pascal

var f:file of char;
    i,n,p:integer;
    c:char;
begin
assign(f,'file');
rewrite(f);
repeat
write('Введите количество символов, четное число n=');//чтобы можно было вставить точно в середину
readln(n);
until n mod 2=0;
randomize;
for i:=1 to n do
 begin
  c:=chr(65+random(26));
  write(f,c);
 end;
writeln('Содержание исходного файла');
reset(f);
while not eof(f)do
 begin
  read(f,c);
  write(c:2);
 end;
writeln;
reset(f);
p:=filesize(f)div 2;
for i:=filesize(f) downto p do
 begin
  seek(f,i-1);
  read(f,c);
  seek(f,i);
  write(f,c);
 end;
seek(f,p);
write(f,'K');
writeln('Содержание файла после вставки');
reset(f);
while not eof(f) do
 begin
  read(f,c);
  write(c:2);
 end;
close(f);
end.

@Sensei150 · 07.06.2020, 21:14 **[ТС]**

Спасибо, всё работает !

@Sensei150 0 / 0 / 0 Регистрация: 07.06.2020 Сообщений: 2
		1
	Имеется типизированный файл, элементами которого являются отдельные буквы. В середину файла вставить букву К 07.06.2020, 17:05. Показов 1012. Ответов 2 Метки pascal abc, задание, задачи студентам (Все метки) Имеется типизированный файл, элементами которого являются отдельные буквы В середину файла вставить букву К. Поэалуйста, написать программу, заранее спасибо за помощь ! 0

@Sensei150 0 / 0 / 0 Регистрация: 07.06.2020 Сообщений: 2
	07.06.2020, 21:14 [ТС]	3
	Спасибо, всё работает ! 0

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

Решение