UNIX Free Pascal


. - 2


b,bx:byte;

a:^mas;

{$I-}

begin

if paramcount<>2 then

begin

writeln(': ',paramstr(0),' _ ');

exit;

end;

assign(fb,paramstr(1));

assign(fbx,paramstr(2));

reset(fb);

if ioresult<>0 then

begin

writeln(' : ',paramstr(1));

exit;

end;

reset(fbx);

if ioresult<>0 then

begin

writeln(' : ',paramstr(2));

exit;

end;

n:=filesize(fb);

nx:=filesize(fbx);

{ if n<>nx then begin

writeln(' ',paramstr(1),' ',paramstr(2),' ');

exit;

end;}

t:=false;

if n=nx then

begin

getmem(a,nx);

t:=true;

while n>=0 do

begin

read(fb,b);

read(fbx,bx);

if b<>bx then

begin

a^[nx-n]:=bx;

t:=false;

end;

n:=n-1;

end;

if not t then

begin

writeln(' :');

for i:=1 to nx do

writeln(' ',i,' ,',a^[i] );

end;

freemem(a,nx);

end;

if t then writeln(' ',paramstr(1),' ',paramstr(2),' ');

if n<>nx then

begin

writeln(' ',paramstr(1),' ',paramstr(2),' ');

exit;

end;

close(fb);

close(fbx);

end.

 

13.27. , .

uses crt,sysutils,linux;

type

smth=array [0..0] of char; (* *)

psmth=^smth; (* , pchar*)

var

s1,s2:array [0..1000] of char; (* *)

t1,t2:integer; (* *)

n,w:longint; (* *)

m:tmmapargs; (* mmap*)

p1,p2:psmth; (*, mmap*)

BEGIN

writeln(' ');




- -  - -  - -