Đề 8 : Viết chương trình nhập giá trị cho 3 số nguyên dương a,b,c và kiểm tra xem chúng có phải là độ dài ba cạnh của một tam giác vuông hay không ? ( đưa ra thông báo )
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!!
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.
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.
Đề 6 : Viết chương trình nhập giá trị cho 3 số nguyên dương a,b,c và kiểm tra xem chúng có phải là độ dài ba cạnh của một tam giác hay không ? ( đưa ra thông báo )
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!
Lời giải :
program hotrotinhoc ;
var a,b,c : integer ;
begin
write('nhap gia tri a'); readln(a);
write('nhap gia tri b'); readln(b);
write('nhap gia tri c'); readln(c);
If (a+b>c) or (a+c>b) or (b+c>a) then write('Chung la ba canh cua tam giac') else write('Chung khong phai la ba canh cua tam giac');
readln
end.
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")
Viết chương trình nhập từ bàn phím 3 số thực a, b, c. Kiểm tra nếu a, b, c có là độ dài 3 cạnh của một tam giác cân thì đưa ra thông điệp "Ba số đã nhập là độ dài 3 cạnh của một tam giác cân". Giúp em với ạ :((
#include <bits/stdc++.h>
using namespace std;
int main() {
double a, b, c;
cin >> a >> b >> c;
if(a==b)
{if (b!=c) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}
if(b==c) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac deu";}}
if(b==c)
{if(a!=b) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}}
if(a==c)
{if(a!=b) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}}
if(a!=b)
{if(b!=c) {cout << "Ba so da nhap khong la do dai ba canh cua mot tam giac can";}}
return 0;
}
Chúc bn học tốt! (Bonus thêm trường hợp không là độ dài tam giác cân và là độ dài của tam giác đều nha!)
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.
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")
viết chương trình nhập vào từ bàn phím giá trị số thực a,b,c và kiểm tra a,b,c có phải độ dài 3 cạnh của tam giác đêù ,vuông ,cân hay tam giác thường
uses crt;
var a, b, c: real;
begin
clrscr;
writeln('Kiem Tra Tam Giac');
write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Do La Ba Canh Tam Giac');
if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then
writeln('Tam Giac Vuong')
else if (a = b) or (a = c) or (b = c) then
begin
if (a = b) and (b = c) then
writeln('Tam Giac Deu')
else
writeln('Tam Giac Can');
end
else writeln('Tam Giac Thuong');
end
else write('Khong Phai Tam Giac');
readln
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