Nêu thuật toán của bài toán sau
Nhập 3 số a,b,c bất kì. Hãy kiểm tra ba số đó có thể là độ dài ba cạnh của một tam giác hay không? Thông báo lên màn hình ‘Thỏa mãn’, ‘ Không thỏa mãn trong từng trường hợp tương ứng
Nêu thuật toán của bài toán sau
Nhập 3 số a,b,c bất kì. Hãy kiểm tra ba số đó có thể là độ dài ba cạnh của một tam giác hay không? Thông báo lên màn hình ‘Thỏa mãn’, ‘ Không thỏa mãn trong từng trường hợp tương ứng
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+b)>c) and ((b+c)>a) and ((a+c)>b) then
writeln(a:4:2,’,’,b:4:2,’,’,c:4:2, ‘ la ba canh cua tam giac’)
else
writeln(a:4:2,’,’,b:4:2,’,’,c:4:2, ‘ khong phai la ba canh cua tam giac’);
readln
end.
Chúc học tốt
*Thuật toán:
Bước 1: Nhập a, b, c
Bước 2: Nếu a + b > c và b + c > a và a + c > b thì thông báo thỏa mãn, ngược lại thông báo không thỏa mã
Bước 3: Kết thúc thuật toán
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 + b > c) and (a + c > b) and (b + c > a)) then writeln(‘Thoa man’)
Else writeln(‘Khong thoa man’);
Readln
End.