Viết chương trình nhập 2 xâu từ bàn phím,tìm xâu ngắn hơn và ghi xâu đó lên tệp ketqua.txt

0 bình luận về “Viết chương trình nhập 2 xâu từ bàn phím,tìm xâu ngắn hơn và ghi xâu đó lên tệp ketqua.txt”

1. uses crt;
   var fo:text;s1,s2:string;
   BEGIN
   clrscr;
   assign(fo,’ketqua.txt’);rewrite(fo);
   readln(s1);readln(s2);
   if length(s1)<length(s2) then writeln(fo,s2);
   if length(s1)>length(s2) then writeln(fo,s1);
   if length(s1)=length(s2) then begin writeln(fo,s1);writeln(fo,s2) end;
   close(fo);
   END.

   Bình luận

2. program xau_ngan;

   uses crt;

   var f:text;

         s1,s2:string;

   begin

          clrscr;

          Assign(f,’ketqua.txt’);    rewrite(f);

          write(‘Nhap xau thu nhat: ‘);  readln(s1);

          write(‘Nhap xau thu hai: ‘);   readln(s2);

          if length(s1)=length(s2) then write(f,s1,’ ‘,s2)

          else if length(s1)<length(s2) then write(f,s1) else write(f,s2);

          readln;

   end.

    

   Bình luận