Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Linh Thùy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 21:33

uses crt;

const fi='bai1.inp'

var f1:text;

a,b,c,cv,dt,p:real;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

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

begin

cv:=a+b+c;

p:=cv/2;

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

writeln(f1,'Chu vi la: ',cv:4:2);

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

end

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

close(f1);

readln;

end.

Huynh ThuongHan
Xem chi tiết
Luân Đào
31 tháng 12 2020 lúc 17:30

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.

Huynh ThuongHan
31 tháng 12 2020 lúc 15:16

help me !!!!!!

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.

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'
Nguyễn Quốc Thịnh
Xem chi tiết
Slime
24 tháng 11 2022 lúc 19:35

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

༺ミ𝒮σɱєσиє...彡༻
Xem chi tiết
htfziang
18 tháng 12 2021 lúc 22:03

èo lớp 8 khó thế:v

ILoveMath
18 tháng 12 2021 lúc 22:04

sao ko tham khảo 

•¢ɦẹρ➻¢ɦẹρ
18 tháng 12 2021 lúc 22:05

=V lúc trước làm bài này nhưng quên cách làm rồi

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.

Trần Hải
Xem chi tiết
Trâm
Xem chi tiết
Thanh Hằng
20 tháng 12 2020 lúc 10:27

program tamgiac;

uses crt;

var

a,b,c: integer;

begin

clrscr;

write('nhap vao do dai thu nhat:');readln(a);

write('nhap vao do dai thu hai:');readln(b);

write('nhap vao do dai thu ba:');readln(c);

if (a+b>c) or (b+c>a) or(c+a>b) then write ('day la do dai 3 canh cua tam giac')

else write('day ko phai la do dai 3 canh cua tam giac');

readln;

end.

Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 10:31

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 writeln('Day la ba canh trong mot tam giac')

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

readln;

end.

duc dung
Xem chi tiết
duc dung
15 tháng 12 2021 lúc 9:10

giúp e vs ạ e cảm ơn nhiều<333