uses crt;

var a,b:real;

begin

clrscr;

write('Nhap do dai canh thu nhat:'); readln(a);

write('Nhap do dai canh thu hai:'); readln(b);

writeln(sqrt(sqr(a)+sqr(b)):4:2);

readln;

end.

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

begin

write('Nhap canh thu nhat: '); readln(a);

write('Nhap canh thu hai: '); readln(b);

write('Nhap canh thu ba: '); readln(c);

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

begin

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

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

writeln('Chu vi tam giac la ',2*p:5:2, '(dvdd)');

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

if (a=b) and (b=c) then writeln('Day con la tam giac deu') else

if (a=b) or (b=c) or (c=a) then writeln('Day la tam giac can') else

if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then writeln('Day la tam giac vuong') else

writeln('Day la tam giac thuong');

if ((a=b) or (b=c) or (c=a)) and ((a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b)) then writeln('Day la tam giac vuong can')

end

else writeln(a:5:2,',',b:5:2,',',c:5:2,' khong la do dai mot tam giac');

end.

help me !!!!!!

2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

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

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

cout<<fixed<<setprecision(2)<<s;

return 0;

}

#include <bits/stdc++.h>
using namespace std;
int main() {
double a, b, c, S;
cin >> a >> b;
S=(1.0/2)*a*b;
c=sqrt(a*a+b*b);
cout << fixed << setprecision(2) << "Dien tich la " << (double)S << "\nCanh huyen la " << (double)c << endl;
return 0;
}

Chúc bn học tốt!

uses crt;

var a: integer;

begin clrscr;

Writeln('Nhap vao do dai canh cua tam giac deu: '); readln(a);

Writeln('Chu vi cua tam giac deu do la: ',a*3);

readln;

end.

Bài 8: Vì em nhắn tin nhờ cô giảng bài 8 nên cô chỉ giảng bài 8 thôi nhé

Gọi các cạnh góc vuông, cạnh huyền của tam giác cần tìm lần lượt là: a; b; c

Theo bài ra ta có: a+b+c =36; \(\dfrac{a}{b}\) = \(\dfrac{3}{4}\)

\(\dfrac{a}{b}\) = \(\dfrac{3}{4}\) ⇒ \(\dfrac{a}{3}\) = \(\dfrac{b}{4}\) ⇒ \(\dfrac{a^2}{9}\) = \(\dfrac{b^2}{16}\) = \(\dfrac{a^2+b^2}{9+16}\) (1)

Vì tam giác vuông nên ta theo pytago ta có: a² + b²  = c² (2)

Thay (2) vào (1) ta có: \(\dfrac{a^2}{9}\) = \(\dfrac{b^2}{16}\) = \(\dfrac{c^2}{25}\)

⇒ \(\dfrac{a}{3}=\dfrac{b}{4}=\dfrac{c}{5}\) 

Áp dụng tính chất dãy tỉ số bằng nhau ta có:

\(\dfrac{a}{3}=\dfrac{b}{4}=\dfrac{c}{5}\) = \(\dfrac{a+b+c}{3+4+5}\) = \(\dfrac{36}{12}\) = 3

a = 3.3 = 9 (cm)

b = 3.4 = 12 (cm)

c = 3.5 = 15 (cm)

Kết luận: độ dài cạnh bé của góc vuông là: 9 cm

               dộ dài cạnh lớn của góc vuông là 12 cm

              độ dài cạnh huyền là 15 cm

Bài 9:

a,Gọi độ dài cạnh góc vuông là: a

Theo pytago ta có: a² + a² = 2² = 4 ⇒ 2a² = 4 ⇒ a² = 2 ⇒ a = \(\sqrt{2}\)

b, Gọi độ dài cạnh góc vuông là :b 

Theo pytago ta có:

b² + b² = 10² =100 ⇒ 2b² = 100 ⇒ b² = 50⇒ b = 5\(\sqrt{2}\)

Bài 8 cô làm rồi nhé. 

Bài 10 ; Gọi độ dài các cạnh góc của tam giác vuông lần lượt là:

a; b theo bài ra ta có: 

\(\dfrac{a}{5}\) = \(\dfrac{b}{12}\) \(\Rightarrow\) \(\dfrac{a^2}{25}\) = \(\dfrac{b^2}{144}\) = \(\dfrac{a^2+b^2}{25+144}\) (1)

Theo pytago ta có: a² + b² = 52² = 2704 (2)

Thay (2) vào (1) ta có: \(\dfrac{a^2}{25}\) = \(\dfrac{b^2}{144}\) = \(\dfrac{2704}{169}\) = 16

⇒ a² = 25.16 = (4.5)² ⇒ a = 20

b² = 144.16 = (12.4)² ⇒ b = 48

Bài 11 

AM = \(\dfrac{1}{2}\) AC ( vì M là trung điểm AC)

AM = 16 \(\times\) \(\dfrac{1}{2}\) = 8 (cm)

BM \(\perp\)AC ( vì trong tam giác cân đường trung tuyến cũng là đường cao, đường trung trực)

⇒\(\Delta\)MAB vuông tại M

Xét tam giác vuông MAB theo pytago ta có:

AB² = AM² + BM²

⇒ BM² = AM² - AM²  = 17² - 8² = 225

    BM = \(\sqrt{225}\) cm = 15 cm

Kết luận BM = 15 cm

Program Bai1;

Uses crt;

Var a,b,c:integer;

Begin

CLRSCR;

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('c='); Readln(c);

If (a*a=b*b+c*c) then Write('a,b,c la cac canh cua 1 tam giac vuong')

else('a,b,c khong phai la cac canh cua 1 tam giac vuong');

Readln

END.

program kiem_tra;

uses crt;

var a,b,c:integer;

begin

write('nhập số a');readln(a);

write('nhập số b');readln(b);

write('nhập số c');readln(c);

if(a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=b*b+a*a)then writeln('đây là tam giác vuông') else writeln('đây là tam giác thường');

readln;

end.