Bài 1: Nhập vào chiều cao của 2 bạn A và bạn B, in ra màn hình thông báo bạn nào cao hơn. Bài 2: Viết chương trình tính kết quả a chia b (a/b), với a,

0 bình luận về “Bài 1: Nhập vào chiều cao của 2 bạn A và bạn B, in ra màn hình thông báo bạn nào cao hơn. Bài 2: Viết chương trình tính kết quả a chia b (a/b), với a,”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var a,b: real;
   Begin
           Clrscr;
           Write(‘Nhap chieu cao ban A: ‘); Readln(a);
           Write(‘Nhap chieu cao ban B: ‘); Readln(b);
           If a>b then Write(‘Ban A cao hon’)
           Else if a<b then Write(‘Ban B cao hon’)
           Else Write(‘Hai ban cao bang nhau’);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var a,b: longint;
       t: extended;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           If b<0 then Write(‘Khong chia duoc’)
           Else
           Begin
                   t:=a/b;
                   Write(a,’ : ‘,b,’ = ‘,t:0:2);
           End;
           Readln
   End.

   Bình luận

2. Bài 1:

   Var A, B: Real;

   BEGIN

       Readln(A, B);

       if A = B then Writeln(‘Hai ban cao bang nhau’)

       else if A > B then Writeln(‘A cao hon B’)

       else Writeln(‘B cao hon A’);

   END.

   Bài 2:

   Var a, b: Real;

   BEGIN

        Readln(a, b);

        if (b<=0) Writeln(‘Phep chia khong thuc hien duoc’)

        else Writeln(a/b); 

   END.

   Bình luận