В файле хранятся строки. Преобразовать строку, заменяя каждую цифру соответствующим ей числом пробелов - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Представить данную программу в виде отдельных процедур

Program 1;
uses crt;
var f,g:text;
fname,k:string;
n,u,y:integer;
m:char;
begin
clrscr;
//открытие файла
writeln('Введите имя файла для чтения');
readln(fname);
assign(f,fname);
{$I-}
reset(f);
{$I+}
   if IOResult<> 0 then
   begin
   writeln('Файл не найден');
   readln;
   exit;
   end;
writeln('Введите имя файла для записи');
readln(fname);
assign(g,fname);
rewrite(g);
//чтение файла и преобразование строк
   while not eof(f) do
   begin
   readln(f,k);
      for u:=length(k) downto 1 do
      if k[u] in ['0'..'9'] then
      begin
      for y:=1 to ord(k[u])-ord('0') do
      insert(' ',k,u+1);
      delete(k,u,1);
      end;
   writeln(k);
   writeln(g,k);
   end;
close(f);
close(g);
readln;
end.

Решение задачи: «В файле хранятся строки. Преобразовать строку, заменяя каждую цифру соответствующим ей числом пробелов»

textual
Листинг программы
random(101)

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы