cho ba số dương a, b, c. Viết chương trình kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không? Nếu có in ra chu vi của tam giác
Chạy thử chương trình với a=5, b=6, c=4
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.
viết chương trình tính tam giác: Nhập ba số a,b,c bất kì.Kiểm tra xem nó có thể là ba cạnh của tam giác hay không, nếu không thì in ra màn hình ''không làm ba cạnh của một tam giác', ngược lại thì in diện tích, chu vi của tam giác ra màn hình
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!
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')
write('3 canh vua nhap ko phai la tam giac');
readln;
end.
viết chương trình nhập 3 số dương a,b,c từ bàn phím và in ra kết qua kiểm tra ba số đó có thể là độ dài các cạnh của 1 tam giác hay không
Var a,b,c: integer;
begin writeln('nhap ba so duong: ');Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('3 so nay co the la do dai 3 canh cua 1 tam giac')
else writeln('3 so nay khong the la do dai 3 canh cua 1 tam giac');
End.
Hãy viết chương trình nhập ba số dương a, b và c từ bàn phím, kiểm tra và in kết quả ra màn hình kiểm tra ba số đó có thể là độ dài ba cạnh của một tam giác hay không?
Ai biết giúp với !!! Cần gấp gấp gấp lắm
Program ba_canh_cua_tam_giac;
uses crt;
var a,b,c: real;
BEGIN
Write('nhap do dai canh a'); Readln(a);
Write('nhap do dai canh b'); Readln(b);
Write('nhap do dai canh c'); Readln(c);
If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')
else write('do khong la do dai cua mot tam giac');
Readln;
END.
Thanks
bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn
Viết chương trình nhập vào ba số thực a b c kiểm tra xem ABC có phải chiều dài của ba cạnh tam giác không Nếu không phải thì kiểm tra A B C không phải là chiều dài của ba cạnh tam giác Nếu thỏa mãn là chiều dài 3 cảnh thì tính và thoing báo ra màn hình chu vi, diện tích của 3 tam giác ?
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: ',2*p:4:2);
writeln('Dien tich la: ',s:4:2);
end
else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');
readln;
end.
Bài 7**: Viết chương trình nhập 3 số thực a, b, c từ bàn phím. Kiểm tra xem 3 số đó có thỏa mãn là độ dài 3 cạnh của một tam giác hay không? Nếu là độ dài 3 cạnh của một tam giác thì kiểm tra xem tam giác đó là tam giác đều, tam giác cân, tam giác vuông hay tam giác thường?
(ví dụ: nhập a = 5; b = 5; c = 7, in ra màn hình “Đây là độ dài 3 cạnh của tam giác. Đây là tam giác cân”; nhập a = 5; b = 2; c = 1, in ra màn hình “Đây không phải là độ dài 3 cạnh của tam giác”
Lưu ý: Sử dụng ngôn ngữ lập trình Python để viết chương trình
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")
Câu 2: Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập ba số a, b, c nguyên dương từ bàn
phím và kiểm tra ba số a, b, c có phải là độ dài ba cạnh của một tam giác không?
a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
print(a,b,c,"la ba canh cua tam giac")
else:
print(a,b,c,"khong la ba canh cua tam giac")
Tính tam giác: Nụâp vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba
cạnh hay không, nếu không thì in ra màn hình ‘Khong la ba canh cua mot tam giac’
Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình
Lập trình C++ nha
#include <iostream>
using namespace std;
int main()
{
int a,b,c,kt;
cout<<"Nhap a=";
cin>>a;
cout<<"Nhap b=";
cin>>b;
cout<<"Nhap c=";
cin>>c;
if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a))
{
kt=0;
if (a*a==b*b+c*c) kt=1;
if (b*b==a*a+c*c) kt=1;
if (c*c==a*a+b*b) kt=1;
if ((a==b) and ((a<c) or (a>c)) and ((b<c) or (b>c))) kt=2;
if ((b==c) and ((b<a) or (b>a)) and ((c<a) or (c>a))) kt=2;
if ((c==a) and ((c<b) or (c>b)) and ((a<b) or (a>b))) kt=2;
if ((a==c) and (b==c)) kt=3;
if (kt==0) cout<<"Day la tam giac thuong";
if (kt==1) cout<<"Day la tam giac vuong";
if (kt==2) cout<<"Day la tam giac can";
if (kt==3) cout<<"Day la tam giac deu";
if ((kt==1) and (kt==2) ) cout<<"Day la tam giac vuong can";
}
else cout<<"Day khong la ba canh trong mot tam giac";
return 0;
}
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.