program oken;
uses crt;
var a,b,c: longint;
s,a: real;
begin
clrscr;
write['Nhap 3 so a,b,c[cach nhau boi 1 dau cach]: ']; readln[a,b,c];
s:=[a+b+c]/2; a:=sqrt[s*[s-a]*[s*b]*[s-c]];
writeln['Dien tich: ',a:0:3];
readln;
end.
Đua top nhận quà tháng 3/2022
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
- Yonnii
- 12/11/2020
- Cám ơn 1
- Báo vi phạm
XEM GIẢI BÀI TẬP SGK TIN 8 - TẠI ĐÂY
viết chương trình tính tam giác: Nhập ba số a,b,c bất kì.Kiểm tra xem nó có thể là ba cạnh của tam giác hay không, nếu không thì in ra màn hình ''không làm ba cạnh của một tam giác', ngược lại thì in diện tích, chu vi của tam giác ra màn hình
ĐỀ: Viết thuật toán, chương trình.
- nhập vào 3 cạnh của tam giác [ VD: a,b,c]
-Tính chu vi và diện tích của tam giác đó.
Viết chương trình tính diện tích tam giác có 3 cạnh là :a,b,c [ được nhập từ bàn phím ] a, hướng dẫn -Nhập 3 cạnh c ủatam giác vào biến a,b,c -Nửa chu vi của tam giác p=[a+b+c]/2
– diện tích của tam giác :s =Căn bậc p[p-a][p-b][p-c]
Sơ đồ tư duy là gì [Tin học - Lớp 6]
3 trả lời
Sơ đồ tư duy là gì? [Tin học - Lớp 6]
1 trả lời
Chọn câu lệnh đúng [Tin học - Lớp 8]
1 trả lời
Cho biết ý nghĩa của câu lệnh sau [Tin học - Lớp 8]
1 trả lời
Các câu lệnh sau, câu lệnh nào hợp lệ [Tin học - Lớp 8]
1 trả lời
Hay nhất
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.