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.

13 tháng 11 2021

uses crt;

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

begin

clrscr;

readln(a,b,c);

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

begin

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

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

writeln('Chu vi la: ',p*2:4:2);

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

end

else writeln('a,b,c khong la ba canh cua tam giac');

readln;

end.

S lm giống mà ko ra 

16 tháng 12 2016

PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.

* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}

kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)

Chúc bạn học tốt!

16 tháng 12 2016

IK K HIỂU CHO Lắm, bn có thể giải rõ hơn khôg ?

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.

2 tháng 1 2021

 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 ạ

24 tháng 11 2022

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")

20 tháng 12 2016

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.

 

21 tháng 12 2016

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

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

bool kt;

int main()

{

cin>>a>>b>>c;

if (a+b>c && b+c>a && a+c>b)

{

kt=false;

if (a==b && b!=c && a!=c) kt=true;

if (b==c && b!=a && c!=a) kt=true;

if (a==c && a!=b && c!=b) kt=true;

if (kt==true) cout<<"YES";

else cout<<"NO";

}

else cout<<"NO";

return 0;

}

31 tháng 12 2020

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.

31 tháng 12 2020

help me !!!!!!

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}