Những câu hỏi liên quan
Trần Hải
Xem chi tiết
Phạm Vũ Hoài Châu
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 22:40

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ình luận (2)
Nhã Uyênn
15 tháng 11 2021 lúc 18:02
print (" Kiem tra 3 do dai cua tam giac ")a=int(input("Nhap so a: "))b=int(input("Nhap so b: "))c=int(input("Nhap so c: "))if a+b>c and b+c>a and c+a>b:print ("Day la Tam Giac")else:print ("Day khong phai tam giac") 'Đây là lập trình Python nha'
Bình luận (0)
Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2021 lúc 22:00

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.

Bình luận (0)
La Thị Thu Phượng
Xem chi tiết
Nguyễn Võ Văn Hùng
16 tháng 12 2016 lúc 20:23

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!

Bình luận (1)
Giao Huỳnh
14 tháng 4 2017 lúc 16:30

uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c:');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
write('3 canh vua nhap la tam giac')

else

write('3 canh vua nhap ko phai la tam giac');
readln;
end. banhqua

Bình luận (0)
Nguyễn Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:39

uses crt;

var a,b,c: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

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

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

readln;

end.

Bình luận (0)
Hồ Nhật Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2021 lúc 17:51

#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;

}

Bình luận (0)
Hồ Nhật Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2021 lúc 17:48

#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;

}

Bình luận (0)
Khoa Nguyên Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 11 2021 lúc 0:03

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.

Bình luận (0)
Nguyễn Huỳnh Minh Hoàng
31 tháng 3 lúc 20:05

S lm giống mà ko ra 

Bình luận (0)
Katherine Lilly Filbert
Xem chi tiết