Nhập vào 3 cạnh xét xem 3 cạnh đó có phải là 3 cạnh của tam giác hay ko. nếu ko thì in ra khong phai la 3 canh cua tam giac, còn nếu có thì in ra là 3 cạnh của tam giác thường,vuông,cân,đều.
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.
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.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
if (a+b>c && b+c>a && c+b>a)
{
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
}
else cout<<"Day khong la ba canh trong mot tam giac";
return 0;
}
#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;
}
#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;
}
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b=');c 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
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la tam giac vuong')
else 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 vuong la: ',s:4:2);
end;
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
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 ạ
Giúp tui ik mn =(( tui bị cô chửi tui buồn lắm
uses crt;
var a,b,c,kt:integer;
begin
clrscr;
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=0;
if (sqr(a)=sqr(b)+sqr(c)) then kt:=1;
if (sqr(b)=sqr(a)+sqr(c)) then kt:=1;
if (sqr(c)=sqr(a)+sqr(b)) then kt:=1;
if (a=b) and (b<>c) and (a<>c) then kt:=2;
if (a=c) and (a<>b) and (c<>b) then kt:=2;
if (b=c) and (b<>a) and (c<>a) then kt:=2;
if (a=b) and (b=c) then kt:=3;
if kt=0 then write('Tam giac thuong')
else if kt=1 then write('Tam giac vuong')
else if kt=2 then write('Tam giac can')
else if kt=3 then write('Tam giac deu');
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.