Question

^{cho đoạn chương trình dưới đây . Hãy chỉ ra những lỗi sai và sửa lại cho đúng} 

^Begingin

^Clrscr;

            ^{Writeln(' nhap ban kinh R:=')}

             ^Readln (R)

             ^S:=R*R*pi

              ^{Writeln(' Dien tich hinh tron la:',S);}

              ^Readln;

^End

 

Answer 1

Sửa:

Program Dien_tich_hinh_tron;

Uses crt;

Var R, S: real;

Const pi = 3.14;

Begin

   Clrscr;

   Writeln('nhap ban kinh R:=');

   Readln(R);

   S:= R*R*pi;

   Writeln('Dien tich hinh tron la:', S);

   Readln;

End.  

-Những chỗ mik in đậm là phần sửa nha. Còn phần khai báo ở trên là trong trường hợp đề kêu bổ sung phần khai báo thôi. Bn ko ghi cx đc.