Giải chi tiết giúp mk với - hứa vote 5 sao Câu 1: Viết chương trình tính chu vi tam giác ? Câu 2: Viết phương trình tính diện tích tam giác?
2 câu trả lời
Câu 1:
uses crt;
var a,b,c,p,s:extended;
begin
clrscr;
write('Nhap do dai 3 canh cua tam giac: '); readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Chu vi tam giac la: ',p*2:10:2);
writeln;
write('Dien tich tam giac la: ',s:10:2);
readln
end.
Câu 2:
uses crt;
var a,b,c:longint;
p,s:real;
begin
clrscr;
write('Nhap 3 canh: '); readln(a,b,c);
writeln('Chu vi la: ',a+b+c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Dien tich la: ',s:0:4);
readln
end.
Câu 1.Viết chương trình tính chu vi tam giác ?
Uses crt;
Var a,b,c,p,s: extended;
Begin
Clrscr;
Write('Nhap do dai 3 canh cua tam giac: '); Readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Chu vi tam giac la: ',p*2:10:2);
Writeln;
Write('Dien tich tam giac la: ',s:10:2);
Readln
End.
Câu 2.Viết phương trình tính diện tích tam giác?
var a,b,c:longint;
p,s:real;
begin
write('Nhap 3 canh: '); readln(a,b,c);
writeln('Chu vi la: ',a+b+c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Dien tich la: ',s:0:4);
readln
end.
Chúc bạn học tốt
