1. Bài toán
2. Giải thuật:
Bước 1. Nhập thông tin:
Bước 2. Xử lý:
- Bước 1.1. Nhập a, b.
Bước 3. In ra màn hình max, min.
- Bước 2.1. Nếu a > b thì max = a, min =b;
- Bước 2.2. Nếu a < b thì max = b, min =a;
- Bước 2.3. Nếu a = b thì max = min = a;
3. Code Pascal:
Program tim_min_max;
uses crt;
var a, b, min, max: Integer;
begin
clrscr;
write('Nhap so a: ');
readln(a);
write('Nhap so b: ');
readln(b);
if (a>b) then
begin
writeln('Max = ', a);
write('min = ',b);
end
else if (b>a) then
begin
writeln('Max = ', b);
write('min = ',a);
end
else
write('Max = min = ', a);
readln;
end.
4. Giải thích code
| Dong code | Ý nghĩa |
|---|---|
| Program tim_min_max; | Đặt tên chương trình tim_min_max |
| uses crt; | Khai báo các hàm thư viện |
| var a, b, min, max: Integer; | Khai báo biến a(số thứ nhât), b(số thứ hai), min(số nhỏ nhất), max(số lớn nhất) |
| clrscr; | Xóa màn hình khi chạy chương trình |
| write('Nhap so a: '); | In ra màn hình dòng Nhap so a: |
| readln(a); | Nhập từ bàn phím giá trị gán vào biến a |
| write('Nhap so b: '); | In ra màn hình dòng Nhap so b: |
| readln(b); | Nhập từ bàn phím giá trị gán vào biến b |
|
if (a>b) then begin writeln('Max = ', a); write('min = ',b); end |
Nếu a > b thì thực hiện In ra màn hình dòng Max = và giá trị của biến a; In ra màn hình dòng Min = và giá trị của biến b; |
|
else if (b>a) then begin writeln('Max = ', b); write('min = ',a); end |
Nếu a < b thì thực hiện In ra màn hình dòng Max = và giá trị của biến b; In ra màn hình dòng Min = và giá trị của biến a; |
|
else write('Max = min = ', a); |
Ngược lại các trường hợp > và < tức trường hợp hai số a và b bằng nhau thì in ra màn hình dòng Max = min = và giá trị của biến a hoặc b đều được. |
| Readln; | Dừng màn hình cho các bạn xem kết quả. |


Không có nhận xét nào:
Đăng nhận xét