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 số dòng \(M\);
- Bước 1.2. Nhập số sao trên dòng \(N\);
Bước 3. In ra màn hình hình chữ nhật có kích thước mxn.
- Bước 2.1. Sử dụng vòng lặp lồng nhau For i:=1 to M (For j:=1 to N)
3. Code Pascal:
Program In_HCN_kich_thuoc; Uses crt; Var N, M, i, j: integer; Begin Clrscr; Writeln('Chuong trinh tao thanh HCN co kich thuoc MxN:'); Write('Nhap m dong: '); Readln(M); Write('Nhap n dau sao tren dong: '); Readln(N); For i:= 1 to M do begin For j:= 1 to N do write('*':3); writeln; end; Readln; End.
4. Giải thích code
Dong code | Ý nghĩa |
---|---|
Program In_n_dau_sao; | Đặt tên chương trình In_n_dau_sao; |
uses crt; | Khai báo các hàm thư viện |
Var N, M, i, j: Integer | Khai báo biến N(Số * muốn in trên dòng), M (số dòng cần tạo), i, j(biến chạy) |
clrscr; | Xóa màn hình khi chạy chương trình |
Writeln('Chuong trinh tao thanh HCN co kich thuoc MxN:'); | In ra màn hình dòng chữ Chuong trinh tao thanh HCN co kich thuoc MxN: |
Write('Nhap m dong: '); | In ra màn hình dòng chữ Nhap m dong: |
readln(M); | Nhập từ bàn phím giá trị gán vào biến M |
Write('Nhap n dau sao tren dong: '); | In ra màn hình dòng chữ Nhap n dau sao tren dong: |
readln(N); | Nhập từ bàn phím giá trị gán vào biến N |
For i:= 1 to M do begin For j:= 1 to N do write('*':3); writeln; end; |
Cho i chạy từ 1 đến N làm công việc in các dấu * ra màn hình. |
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