TURBO PASCAL:Учебное пособие. Терёхин В.В. - 123 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

123
Close(f);
end.
Задача. Дан текстовый файл, создать второй текстовый
файл, уплотнив первый, заменяя в каждой строке серии из двух
или более пробелов (32 - ASCII) одним пробелом.
program р58;
var
fl, f2: Text;
S: String;
Sl, S2: String;
{функция параметром получает неуплотненную строку,
а возвращает уплотненную}
function Uplot(S: String): String;
var
Z: boolean;
begin
Z:= false;
repeat
if pos(' ', S) <> 0 then Delete (S, pos (' ', S) , 1)
else Z:= true;
Until Z;
Uplot:= S;
end;
begin
Write ('введите имя исходного файла ');
Readln(sl);
Write('введите имя файла с результатом');
Readln(s2);
Assign(fl, s1);
Assign(f2, s2) ;
{$i-}
Reset(fl);
if lOResult <> 0 then 
  Close(f);
end.

        Задача. Дан текстовый файл, создать второй текстовый
файл, уплотнив первый, заменяя в каждой строке серии из двух
или более пробелов (32 - ASCII) одним пробелом.
program р58;
var
  fl, f2: Text;
  S: String;
  Sl, S2: String;
{функция параметром получает неуплотненную строку,
                а возвращает уплотненную}
function Uplot(S: String): String;
var
  Z: boolean;
begin
  Z:= false;
  repeat
        if pos(' ', S) <> 0 then Delete (S, pos (' ', S) , 1)
          else Z:= true;
  Until Z;
  Uplot:= S;
end;

begin
  Write ('введите имя исходного файла ');
  Readln(sl);
  Write('введите имя файла с результатом');
  Readln(s2);
  Assign(fl, s1);
  Assign(f2, s2) ;
{$i-}
  Reset(fl);
  if lOResult <> 0 then
                                                          123

Страницы