Viết chương trình nhập vào chiều dài của hai đoạn thẳng AB và CD, kiểm tra độ dài của hai đoạn thẳng đó và in ra kết quả màn hình.

0 bình luận về “Viết chương trình nhập vào chiều dài của hai đoạn thẳng AB và CD, kiểm tra độ dài của hai đoạn thẳng đó và in ra kết quả màn hình.”

1. Program NN;
   Uses crt;
   Var a,b: real;
   Begin
           Clrscr;
           Write(‘Nhap do dai 2 canh: ‘); Readln(a,b);
           If a>b then Write(‘AB dai hon CD’)
           Else If b>a then Write(‘CD dai hon AB’)
           Else Write(‘BANG NHAU’);
           Readln
   End.

   Bình luận

2. uses crt;
   var ab,cd:longint;
   begin
   clrscr;
      write(‘AB,CD= ‘);readln(AB,CD);
      if ab=cd then writeln(‘AB=CD’) else
      if ab>cd then writeln(‘AB>Cd’) else writeln(‘AB<CD’);
   readln
   end.

   Bình luận