Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng Program Vi_du Var a,b,c,s: Interger ; Begin write ( ‘ nhap chieu dai a = ‘); Realn ( ‘a’)

0 bình luận về “Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng Program Vi_du Var a,b,c,s: Interger ; Begin write ( ‘ nhap chieu dai a = ‘); Realn ( ‘a’)”

1. Program Vi_du;

   Var a,b: Integer;

   S, C : Real;

   Begin

   Clrscr;

   Write(‘Nhap chieu dai a=’); readln(a);

   Write(‘Nhap chieu rong b=’); readln(b);

   S:= a*b;

   C:= (a+b)*2;

   Write(‘dien tich hinh chu nhat la:’,S:4:2);

   Write(‘chu vi hinh chu nhat la:’,C:4:2);

   Readln

   End.

   Bình luận

2. Program vi_du;

   var a,b: interger;

        C,S: real
   uses crt;

   begin

   clrscr;

   writeln(‘nhap chieu rong hinh chu nhat’); realn(‘a’);

   writeln(‘nhap chieu dai hinh chu nhat’); realn(‘b’);

   S:= a*b

   C: ( a+b)*2

   write (‘ dien tich hinh chu nhat la: ‘ ,  S ); write ( ‘ chu vi hinh chu nhat la: ‘ , C );

   Realn;

   End.

   Bình luận