Viết chương trình nhập vào từ bàn phím 3 cạnh a, b, c của một tam giác. Kiểm tra và hiển thị tam giác đó là tam giác vuông hay không?
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.
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 ko với a,b,c là số được nhập từ bàn phím
số hợp lệ là số lớn hơn 100 bé hơn 1000.Viết chương trình nhập vào 1 số nguyên từ bàn phím và thông báo số nguyên đó có hợp lệ hay ko?
GIÚP MIK VS Ạ MIK CẦN GẤP
MIK SẮP THI RỒI GIÚP MIK VS
Uses crt;
Var a, b, c:real;
Begin
Readln(a);
Readln(b);
Readln(c);
If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')
Else writeln('Khong phai 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.
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
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.
1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....
2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?
1.uses crt;
var n,gt:longint;
begin
clrscr;
repeat
write('nhap so n:');readln(n);
until n>0;
gt:=1;
while n>0 do
begin
gt:=gt*n;
n:=n-1;
end;
writeln('giai thua cua n la:',gt);
readln
end.
2. uses crt;
var a,b,c:real;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');
readln
end.
Viết chương trình nhập từ bàn phím 3cạnh của một tam giác. Kiểm tra xem đó có phải là tam giác đều hay không? Mong mn giúp🥺
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a=b) and (b=c) then write('YES')
else write('NO');
readln;
end.
Viết chương trình để nhập 3 số a,b,c bất kì từ bàn phím kiểm tra 3 số đó có phải là 3 cạnh của tam giác không?nếu là tam giác thì tam giác đó là tam giác gì? TIN PASCAL LỚP 8