viết chuong trình kiểm tra 3 số có phải là 3 cạnh của tam giác hay không . nếu có hãy tính chu vi và diện tích
Những câu hỏi liên quan
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra chúng có phải là độ dài 3 cạnh của một tam giác không? Nếu có hãy tính chu vi và diện tích tam giác ấy.
Viết chương trình nhập từ bàn phím 3 số a,b,c . Kiểm tra xem 3 số đó có phải 3 cạnh của tam giác không . Nếu là 3 cạnh thì tính chu vi và diện tích của tam giác đó . Ghi kết quả bài toán vào tập bai1.inp
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.
Đúng 0
Bình luận (1)
viết thuật toán nhập vào 3 số a b c. kiểm tra và thông báo ra màn hình xem a b c có phải là 3 cạnh của tam giác hay không nếu phải thì kiểm tra và thông báo ra màn hình đó là tam giác vuông hay không rồi tính diện tích của tam giác đó?
mình đang cần gấp cảm ơn mn trc nha
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.
Đúng 1
Bình luận (0)
Viết chương trình cho phép nhập vào ba số a,b,c kiểm tra xem 3 số đó có phải độ dài của ba cạnh tam giác hay không. Nếu đúng in dòng chữ là độ dài ba canh của tam giác va tính chu vi của tam giác đó. Ngược lại nếu sai in dòng chữ không phải là độ dài 3 cạnh của tam giác
GIÚP MÌNH VỚI MÌNH SẮP THI RỒI
XIN CẢM ƠN
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.
Đúng 2
Bình luận (2)
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'
Đúng 0
Bình luận (0)
viết chương trình nhập vào 3 số nguyên dương kiểm tra xem a,b,c có phải là 3 cạnh của tam giác không? nêu là 3 cạnh của tam giác thì diện tích của tam giác tính theo công thức sau S=p*(p-a)*(p-c) với p là 1/2 chu vi cuat tam giác
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều
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.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều, tam giác cân, tam giác vuông, tam giác vuông cân không? Hướng dẫn:Để kiểm tra tam giác: tổng hai cạnh bất kì lớn hơn cạnh còn lạiĐể phân loại tam giác: - Tam giác đều: có 3 cạnh bằng nhau - Tam giác cân: có 2 cạnh bằng nhau - Tam giác vuông: áp dụng công thức Pi-ta-go - Tam giác vuông cân: nó vừa vuông, vừa cân
Đọc tiếp
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều, tam giác cân, tam giác vuông, tam giác vuông cân không?
Hướng dẫn:
Để kiểm tra tam giác: tổng hai cạnh bất kì lớn hơn cạnh còn lại
Để phân loại tam giác:
- Tam giác đều: có 3 cạnh bằng nhau
- Tam giác cân: có 2 cạnh bằng nhau
- Tam giác vuông: áp dụng công thức Pi-ta-go
- Tam giác vuông cân: nó vừa vuông, vừa cân
câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông s : =a*a; p:=4*a;
câu 2 viết chương trình tính tổng , tích và hiệu của hai số được nhập từ bàn phím
câu 3 viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay không với a,b,c là 3 số nhập từ bàn phím
Câu 1:
uses crt;
var a,s,p:real;
begin
clrscr;
repeat
write('Nhap do dai canh hinh vuong:'); readln(a);
until a>0;
p:=4*a;
s:=sqr(a);
writeln('Chu vi hinh vuong la: ',p:4:2);
writeln('Dien tich hinh vuong la: ',s);
readln;
end.
Câu 2:
uses crt;
var a,b,t,s,h:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
t:=a+b;
h:=a-b;
s:=a*b;
writeln('Tong la: ',t:4:2);
writeln('Hieu la: ',h:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
Câu 3:
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.
Đúng 0
Bình luận (0)
-lập chương trình nhập vào độ dài các cạnh của tam giác rồi :
+tính chu vi và diện tích của tam giác
+kiểm tra xem tam giác đó có là tam giác cân hoặc tam giác vuông hay không ?HELP me !!!!!!
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.
Đúng 2
Bình luận (1)