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

UptoLike

ВУЗ: 

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

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

Рубрика: 

124
begin
Writeln('Произошла ошибка, файл ', s1, 'не
существует');
Halt ;
end;
{$i+}
Rewrite(f2);
While not Eof(fl) do
begin
Readln(fl, S);
Writeln(f2, Uplot(S));
end;
Close(fl) ;
Close(f2) ;
end.
Задача. Даны два текстовых файла. Вывести на экран
количество строк в первом и во втором файлах. Если количест-
во строк одинаковое, то вывести на экран те строки второго
файла, которые отличаются от соответствующих строк перво-
го.
program p59;
const
Namel = 'filel. txt';
Name2= ‘file2. txt';
var
fl, f2: Text;
L, K: Integer;
S1, S2: String;
begin
Assign(fl, Namel);
Assign(f2, Name2);
{$i-}
Reset(fl) ;
Reset(f2) ; 
    begin
       Writeln('Произошла ошибка, файл ', s1, 'не
                      существует');
       Halt ;
     end;
{$i+}
  Rewrite(f2);
  While not Eof(fl) do
    begin
       Readln(fl, S);
       Writeln(f2, Uplot(S));
     end;
  Close(fl) ;
  Close(f2) ;
end.

       Задача. Даны два текстовых файла. Вывести на экран
количество строк в первом и во втором файлах. Если количест-
во строк одинаковое, то вывести на экран те строки второго
файла, которые отличаются от соответствующих строк перво-
го.
program p59;
const
  Namel = 'filel. txt';
  Name2= ‘file2. txt';
var
  fl, f2: Text;
  L, K: Integer;
  S1, S2: String;
begin
  Assign(fl, Namel);
  Assign(f2, Name2);
{$i-}
  Reset(fl) ;
  Reset(f2) ;
                                                         124

Страницы