Viết chương trình nhập vào 3 cạnh a,b,c(số dương),sau đó kiểm tra xem có thành lập được 1 tam giác hay không ?
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('nhap ba canh cua tam giac'); readln(a,b,c);
if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');
readln
end.
viết chương trình nhập 3 số thực a,b,c từ bàn phím ( sử dụng chương trình con thủ tục ) thực hiện lần lượt các công việc sau :
a. kiểm tra xem 3 số trên có lập thành 3 cạnh của tam giác hay không ?
b. tính diện tích tam giác
c. tính các trung tuyến của tam giác
d. viết hoàn thiện chương trình chính
uses crt;
var a,b,c,p,s,am,bn,cp:real;
begin
clrscr;
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
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 la: ',s:4:2);
am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;
bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;
cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;
writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);
writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);
writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);
end
else writeln('Day khong la ba canh trong 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")
Viết chương trình Đọc dữ liệu từ tập DLVTXT gồm nhiều dòng mỗi dòng chứa 3 số nguyên dương cách nhau một dấu cách là độ dài 3 cạnh của một tam giác. - Kiểm tra xem đó là tam giác gì tương ứng với 3 số nguyên dương trên cùng 1 dòng. - Ghi kết quả vào tệp DLR.TXT tương ứng theo từng dòng Vi du NT DLR.TXT 333 TAM GIÁC DEU 223 TAM GIÁC CÂN 345 TAM GIÁC VUÔNG
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.
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 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 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 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.
