K
Khách

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.

chỉ cần thuật toán thôi

27 tháng 11 2021

Tham khảo!

program  Dien_tich_hinh_tam_giac;

uses   crt;

var      a,h : integer

            S: real

begin:

        clrscr;

Writeln(‘a= ‘);    Readln(a);

Writeln(‘h= ‘);    Readln(h);

  S:= (a*h)/2

Writeln( Dien tich hinh tam giac co do dai 1 canh va chieu cao vua nhap la S=  ‘,S);

Readln

end.

21 tháng 2 2023

Giúp mình ý tưởng bài đỉnh đồi pascal

 

21 tháng 2 2023

Cho mình ý tưởng bài này với!loading...  

uses crt;

var a,b,c,p,s,am,bn,cp:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;

bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;

cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;

writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);

writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);

writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

13 tháng 9 2016

AB=21/(3+4)x3=9 cm

AC=21-9=12cm

Tự kẻ hình bạn nhé =)))

Áp dụng định lí Pitago vào tam giác ABC , có

AB^2+AC^2=BC^2

=>thay số vào, tính được BC=15cm

Áp dụng hệ thức giữa cạnh và đường cao trong tg vuông, có:

AB^2=BHxBC

=>BH=81/15=5.4cm

=>CH=15-5.4=9.6cm

AH^2=BHxCH=5.4x9.6=51.84cm

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(s:4:2);

readln;

end.