viet chuong trinh pascal de tinh dien tich hinh tam giac
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a)
Program TAM_GIAC;
uses crt;
var a,b,c,p,S: real;
Begin
clrscr;
Write('Nhap canh a:');readln(a);
Write('Nhap canh b:');readln(b);
Write('Nhap canh c:');readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la:',s:10:2);
readln
end.
b) Program Hinh_vuong;
uses crt;
var a,s,cv: Real;
Begin
clrscr;
Write('Nhap chieu dai canh:'); Readln(a);
s:=a*a;
cv:=a*4;
Writeln('Chu vi hinh vuong la:',cv);
Writeln('Dien tich hinh vuon la:',s);
Readln
End.
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
S tam giác = (đáy . chiều cao) :2
S hình thang = ( đáy lớn + đáy bé ) . chiều cao :2
S hình tròn: ( R . R)x 3,14
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)*2;
dt=a*b;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
a) Muốn tính diện tích hình tam giác, ta lấy độ dài đáy nhân cới chiều cao, rồi lấy kết quả chia cho 2.
b) Muốn tính diện tích hình thang, ta lấy chiề cao nhân vớitrung bình cộng của tổng hai cạnh đáy.
c) Để tính diện tích xung quanh hình hộp chữ nhật, ta lấy chu vi mặt đáy nhân với chiều cao(cùng một đơn vị đo).
d) Nếu cạnh của một hình vuông gấp lên 3 lần thì diện tích của hình vuông đó gấp lên 9 lần.
e) Nếu cạnh của một hình lập phương gấp lên 3 lần thì thể tích của hình lập phương đó gấp lên 27 lần.
a. Chiều cao của tam giác là : \(36\times\frac{3}{4}=27m\)
DIện tích tam giác là : \(36\times\frac{27}{2}=486m^2\)
b. Nếu cả chiều cao và đáy của tam giác cùng bớt đi 18m thì khi đó chiều cao là 9m, độ dài đáy là 18m và gấp đôi chiều cao
Khi đó diện tích của tam giác là : \(9\times\frac{18}{2}=81m^2\)
Program Dien_tich_tam_giac;
Uses Crt;
Var
a,b,c:Integer;
p,s:Real;
Begin
Clrscr;
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End .
?