Viết thuật toán cho bài toán tính chu vi của tam giác khi biết 3 cạnh lần lượt là a,b,c

2 câu trả lời

B1: nhập a,b,c:

B2: cv←a+b+c;

B3: xuất cv;

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:=(p*(p-a)*(p-b)*(p-c));

writeln('chu vi hinh tam giac la:',p:10:2);

writeln('dien tich hinh tam giac la:',S:10:2);

readln;

end.

Câu hỏi trong lớp Xem thêm