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.
a = float(input("Nhap a : "))
b = float(input("Nhap b : "))
c = float(input("Nhap c : "))
if a+b>c and a+c>b and b+c>a:
if a==b or a==c or b==c:
if a==c==b:
print("Day la ba canh cua tam giac deu")
else:
print("Day la ba canh cua tam giac can")
elif (a**2)+(b**2)==c**2 or (a**2)+(c**2)==b**2 or (c**2)+(b**2)==a**2:
print("Day la ba canh cua tam giac vuong")
else:
pass
else:
print("Day khong phai ba canh cua tam giac")
uses crt;
var a,b,c: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);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('La do dai ba canh cua tam giac');
writeln('Chu vi tam giac la: ',a+b+c:4:2);
end
else writeln('Khong phai la do dai 3 canh cua tam giac');
readln;
end.
bạn ơi bạn có thể giải thích giúp mình repeat, until là gì không ạ và hình như chương trình của bạn mình nghĩ chắc đúng rồi đó nhưng bạn xét dùm mình xem chỗ var a,b,c,CV:word thì có đúng kh ạ
uses crt;
var a, b, c: real;
begin
clrscr;
writeln('Kiem Tra Tam Giac');
write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Do La Ba Canh Tam Giac');
if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then
writeln('Tam Giac Vuong')
else if (a = b) or (a = c) or (b = c) then
begin
if (a = b) and (b = c) then
writeln('Tam Giac Deu')
else
writeln('Tam Giac Can');
end
else writeln('Tam Giac Thuong');
end
else write('Khong Phai Tam Giac');
readln
end.
progam ban_tu_chon;
uses crt;
var a,b,c :real;
BEGIN
clrscr;
write('nhap canh a thu nhat'); Read(a);
write('nhap canh b thu hai:'); Readln(b);
write('nhap canh c thu ba'); Readln(c);
if (a>=b+c) or (b>=c+a) or (c>=a+b) then write('ba canh tren khong phai cua mot tam giac')
else
if (a=b) or (b=c) or (c=a) then write('tam giac tren la tam giac can');
else
if a=b=c then write('tam giac tren la tam giac deu')
else
if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write('tam giac tren la tam giac vuong');
readln;
END.
Vì theo định lý, tông hai cạnh của tam giác luôn lớn hơn cạnh còn lại. thế nên để là tam giác, a< hoặc = b+c,...
để tam giác trên cân, ít nhất hai cạnh phải bằng nhau.
để tam giác đều, ba cạnh phải bằng nhau.
để tam giác vuông, áp dụng py ta go a^2+b^2=c^2....
đó là cách xác định,
thanks
ê mọi người cho em hỏi ngày hôm nay 6/ 12 thứ 2 có đá bóng việt nam đá với lào có ai coi ko cho em biết nha
em là lê tố uyên lớp 5i vô nhắn tin với em hi .
việt nam thắng 2-0 rồi còn lại thì em chưa coi em mới coi đc 1 nửa cho em biết với ạ
duy mạnh đẫ ra sân chưa ạ
coi vn thắng 3- 0 ạ . cho em biết với
thank you mọi người
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.
Tham khảo
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.