viết chương trình so sánh 2 số thực

0 bình luận về “viết chương trình so sánh 2 số thực”

1. Program  so_sanh;

   uses crt ;

   var  a,b: real;

   begin

    clrscr;

   Write (‘ Nhap so a: ‘); readln ( a);

   Write (‘Nhap so b: ‘); readln (b);

   If (a>b) then writeln (‘ a lon hon b’) else 

   If (a<b) then writeln (‘ b lon hon a’) else writeln (‘Hai so bang nhau’);

   Readln

   End.

   Bình luận

2. var a,b:integer;

   begin

   write (‘a va b la:’); readln(a,b);

   if a>b then write (a) else write (b);

   end.

   Bình luận