25. cho 2 số nguyên a, b . So sánh 2 số a,b rồi in ra a) mô tả thuật toán b) viết chương trình 29/07/2021 Bởi Quinn 25. cho 2 số nguyên a, b . So sánh 2 số a,b rồi in ra a) mô tả thuật toán b) viết chương trình
THUẬT TOÁN: b1: Nhập số a và số b trên bàn phím b2: Nếu a>b thì in ra dòng thông báo “số a lớn hơn số b”hoặc ngược lại thì in ra dòng thông báo ” số b lớn hơn số a”hoặc “hai bạn bằng nhau” b3: Kết thúc thực toán b/ Program Tinh_toan; var a,b,c: integer; begin write(‘Nhap a=’); readln(a); write(‘Nhap b=’); readln(b); If a>b then write(‘so a lon hon so b’); If b>a then write(‘so b lon hon so a’); else writeln(‘hai so cao bang nhau’); readln end. Bình luận
a/thuật toán: b1: nhập a,b b2 so sánh a,b và in ra kết quả hợp lí: if a>b then writeln (‘a>b’); if a<b then writeln (‘a<b’); if a=b then writeln (‘a=b’); b/ chương trình: uses crt; var a,b: integer; begin clrscr; write (‘nhap a: ‘); readln (a); write (‘nhap b: ‘); readln (b); if a>b then writeln (‘a>b’); if a<b then writeln (‘a<b’); if a=b then writeln (‘a=b’); readln; end. Bình luận
THUẬT TOÁN:
b1: Nhập số a và số b trên bàn phím
b2: Nếu a>b thì in ra dòng thông báo “số a lớn hơn số b”hoặc ngược lại thì in ra dòng thông báo ” số b lớn hơn số a”hoặc “hai bạn bằng nhau”
b3: Kết thúc thực toán
b/
Program Tinh_toan;
var a,b,c: integer;
begin
write(‘Nhap a=’); readln(a);
write(‘Nhap b=’); readln(b);
If a>b then write(‘so a lon hon so b’);
If b>a then write(‘so b lon hon so a’);
else writeln(‘hai so cao bang nhau’);
readln
end.
a/thuật toán:
b1: nhập a,b
b2 so sánh a,b và in ra kết quả hợp lí:
if a>b then writeln (‘a>b’);
if a<b then writeln (‘a<b’);
if a=b then writeln (‘a=b’);
b/ chương trình:
uses crt;
var a,b: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap b: ‘); readln (b);
if a>b then writeln (‘a>b’);
if a<b then writeln (‘a<b’);
if a=b then writeln (‘a=b’);
readln;
end.