Question

"Lập trình đọc 2 xâu từ tệp XAU.inp cho 2 biến a,b. Cho biết xâu nào có độ dài lớn hơn và ghi vào xâu đó tệp XAU.out. Nếu xâu có độ lớn bằng nhau thì ghi xâu nhập sau." Ai giúp mình với ạ QAQ

Answer 1

const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
st1,st2:string;
d1,d2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st1);
readln(f1,st2);
d1:=length(st1);
d2:=length(st2);
if d1>d2 then writeln(f2,st1)
else if d1<d2 then writeln(f2,st2)
else writeln(f2,st2);
close(f1);
close(f2);
end.

Answer 2

Program hotrotinhoc;

const fi='XAU.inp';

fo='XAU.out';

var f: text;

a,b: string;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a);

read(f,b);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

if length(a)>length(b) then write(f,'Xau a dai hon');

if length(b)>length(a) then write(f,'Xau b dai hon');

if length(a)=length(b) then write(f,'Xau nhap sau');

close(f);

end;

begin

ip;

out;

end.