Viết chương trình

[hoangminhdaitu]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tin học 8
a) tính chu vi hình chữ nhật
b) tính diện tích hình chữ nhật

 

[DS Trang]

Viết chương trình tin học 8
a) tính chu vi hình chữ nhật
b) tính diện tích hình chữ nhật

Var S, P, a,b : real;
Begin
Write ( 'nhap chieu dai:' ); Readln (a);
Write ( 'nhap chieu rong:' ); Readln (b);
P:= (a+b): 2;
S:= a*b;
Writeln (' Chu vi là:', P);
Writeln (' Dien tich là:', S);
Readln;
End.

Học lâu rồi nên ko nhớ lắm, 2 câu gộp lại 1 cái luôn, em tự tách ra nha

 

[Quang Trungg]

Viết chương trình tin học 8
a) tính chu vi hình chữ nhật
b) tính diện tích hình chữ nhật

Program Chu_Nhat;
Uses Crt;
Var a,b,s,c: real;
Begin
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
Write(‘Nhap chieu dai=’); readln(a);
Write(‘Nhap chieu rong=’);readln(b);
s:=a*b;
c:=(a+b)*2;
Writeln(‘Dien tich hinh chu nhat la:’,s:6:2); Writeln(‘Chu vi hinh chu nhat:’,c:6:2); Readln;

End.

 

[hoangminhdaitu]

đã chạy thử chưa bạn

 

[DS Trang]

đã chạy thử chưa bạn

Ko cần chạy thử đâu em, chắc chắn được nếu ko có lỗi thiếu ;