Viết chương trình pascal tính: Tính diện tích và chu vi của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím)
2 câu trả lời
uses crt;
var a,b,c:longint; p:real;
begin
clrscr;
write('a,b,c: ');readln(a,b,c);
p:=(a+b+c)/2;
writeln('Chu vi: ',p*2:0:2);
writeln('Dien tich: ',sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
readln;
end.
program hoidap247;
uses crt;
var A,B,C,P:real;
Begin
write ('Canh 1');
Readln (A);
write ('Canh 2');
Readln (B);
write ('Canh 3');
Readln (C);
P:=A+B+C;
Writeln ('Chu vi hinh tam giac',P);
Readln
End.
Câu hỏi trong lớp
Xem thêm
