Viết chương trình tính chu vi,diện tích hình vuông

0 bình luận về “Viết chương trình tính chu vi,diện tích hình vuông”

1. program hinhvuong;
   uses crt;
   var a, chu vi, dien tich : real;
   BEGIN
       clrscr;
       write(‘Nhap canh a= ‘);
       readln(a);
       cv:=4*a;
       dt:=a*a;
       writeln(‘Chu vi = ‘, cv:6:2);
       writeln(‘Dien tich = ‘,dt:6:2);
       readln
   END

   Chúc bạn học tốt, hãy vote5*+CTRLHN+Cảm ơn

   Bình luận

2. PROGRAM HINH VUONG; 
   (Nhập cạnh a của hình vuông. Tính chu vi, diện tích của hình vuông ấy)
   VAR a:real; 
   BEGIN 
   Write(‘Nhap canh a: ‘);readln(a); 
   Writeln; 
   If a>0 then 
   begin 
   Writeln(‘Chu vi P = ‘,4*a:6:2); 
   Writeln(‘Dien tich S = ‘,a*a:6:2); 
   end 
   Else writeln(#7,’Khong thuc hien vi a <= 0′); 
   Readln 
   END. 

   Thôi tui chỉ cần 5* + cảm ơn , nhường bn kia vậy

   Bình luận