Viết công thức pascal nhập vào 2 số a,b từ bàn phím in ra màn hình kết quả so sánh cuẩ 2 số a,b

0 bình luận về “Viết công thức pascal nhập vào 2 số a,b từ bàn phím in ra màn hình kết quả so sánh cuẩ 2 số a,b”

1. program bt;

   var

         a,b:integer;

   begin

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

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

           if a>b then write(‘a lon hon b’) else

          if a<b then write(‘a nho hon b’) else

          write(‘a bang b’); 

          readln;

   end.

   Kiểu dữ liệu bạn có thay đổi thành real, hoặc byte….

   Còn phần khai báo thư viện có cũng được không cũng không sao nha

         Chúc bạn học tốt

   Bình luận

2. Program So_Sanh;

   Uses Crt;

   Var a,b:integer;

   Begin

   Clrscr;

   Writeln(‘Nhap so a:’);Readln(a);

   Writeln(‘Nhap so b:’);Readln(b);

   If a>b then writeln(‘a>b’)

   Else If a<b then writeln(‘a<b’)

   Else If a=b then writeln(‘a=b’);

   Readln

   End.

   Bình luận