hepl me . viết chương trình tính chu vi và diện tích hình tam giác, chữ nhật ,bình hành ,hình tròn ,vuông
hepl me . viết chương trình tính chu vi và diện tích hình tam giác, chữ nhật ,bình hành ,hình tròn ,vuông
By Peyton
By Peyton
hepl me . viết chương trình tính chu vi và diện tích hình tam giác, chữ nhật ,bình hành ,hình tròn ,vuông
Câu 1: Chu vi và diện tích hình tam giác:
Uses crt;
Var a, b, c, cv, s: real;
Begin
Clrscr;
Write(‘Nhap a, b, c: ‘); readln(a, b, c);
cv:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
Readln
end.
Câu 2: Chu vi và diện tích hình chữ nhật:
Uses crt;
Var a, b, cv, s: real;
Begin
Clrscr;
Write(‘Nhap a, b: ‘); readln(a, b);
cv:=(a+b)*2;
s:=a*b;
Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
Readln
end.
Câu 3: Chu vi và diện tích hình bình hành:
Uses crt;
Var a, b, h, cv, s: real;
Begin
Clrscr;
Write(‘Nhap a, b, h: ‘); readln(a, b, h);
cv:=(a+b)*2;
s:=a*h;
Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
Readln
end.
Câu 4: Chu vi và diện tích hình tròn:
Uses crt;
Var r, cv, s: real;
Const pi=3.14;
Begin
Clrscr;
Write(‘Nhap a, b: ‘); readln(a, b);
cv:=pi*r*2;
s:=pi*sqr(r);
Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
Readln
end.
Câu 5: Chu vi và diện tích hình vuông:
Uses crt;
Var a, cv, s: real;
Begin
Clrscr;
Write(‘Nhap a: ‘); readln(a);
cv:=a*4;
s:=sqr(a);
Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
Readln
end.
uses crt;
var a,b,c,p,S: real;
begin
clrscr;
write (‘Nhap a,b,c= ‘);
readln (a,b,c);
p:= a + b + c;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
writeln (‘ Chu vi P va dien tich S la ‘, P, S);
readln;
end.
* Tương tự có:
– Chu vi hình chữ nhật = (a+b)*2, Diện tích=a*b
– Chu vi hình bình hành= (a+b)*2, Diện tích=a*h
– Chu vi hình tròn= $\pi$*r, Diện tích= $\pi$*r*r
– Chu vi hình tròn= 4a, Diện tích= $a^{2}$