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.
uses crt;
var a, b, c, d, P, S, h:real;
BEGIN
write ( 'nhap do dai day be a, day lon b, 2 canh ben c, d va chieu cao h: ');
readln(a, b, c, d, h);
P:=a+b+c+d;
S:=((a+b)*h)/2;
writeln ( ' chu vi = ',P:8:3, 'dien tich = ',S:8:3);
readln
END.
bạn dùng bài thực hành trong SGK, thay đổi hằng phi lại thành 22000 là được nhé
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
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.
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 .
?
Có nhiều công thức tính diện tích tam giác khác nhau. Ở đây bạn phải cho biết tam giác thuộc loại hình tam giác cân , tam giác thường , tam giác vuông , hay tam giác đều.
cô em đúng mà cô theo đề thôi
theo đề chỉ cần khai báo để có công thức là
1/2*a*h thôi
Võ Châu Minh Ngọc : Là tam giác vuông em nhé.
dạ
Program hotrotinhoc;
var a,b : integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('Dien tich cua tam giac :',(1/2*a*b):2:2));
readln
end.
Mà em nói đúng không cô . Em làm đâu có sai đề ra sao em làm vậy mà => em làm không sai
Em làm công thức của loại tam giác gì vậy?
@ gắt vậy
Đọc thuật toán mà chả hiểu công thức nào cả
chắc là bạn sao trên mạng r
var a,b,s:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
s:=1/2*a*b;
writeln('Dien tich tam giac la: ',s);
readln;
end.
Chỗ s bạn tự cho tỉ lệ vô nhá tùy ý của bạn
Công thức Hê-rông mà :3