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 \(N\);
- Bước 1.2. Nhập dãy số đã cho \(A_{1}, A_{2}, ..., A_{n}\)
Bước 3. In ra màn hình tích các a[i].
- Bước 2.1. Nếu a[i] > 0 thì in ra màn hình tích các a[i]
3. Code Pascal:
Program Phan_tu_chi_so_le; Uses crt; Var a: array[1..100] of integer; N, i, Tich: integer; Begin Clrscr; Write('Nhap so phan tu cua mang: '); Readln(N); For i:=1 to N do Begin Write('Phan tu thu ', i, ' la: '); Readln(a[i]); End; Writeln; Writeln('* Mang vua nhap la: '); For i:=1 to N do write(a[i]:4); Writeln; Tich:= 1; For i:=1 to N do if a[i] > 0 then Tich:= Tich * a[i]; Write('* Tich cac phan tu duong cua mang: ',Tich:2); Readln; End.
4. Giải thích code
Dong code | Ý nghĩa |
---|---|
Program Phan_tu_chi_so_chan; | Đặt tên chương trình Phan_tu_chi_so_chan; |
uses crt; | Khai báo các hàm thư viện |
Var a: array[1..100] of integer; | Khai báo mảng một chiều |
Var N, i, Tong: Integer | Khai báo biến N(Số phần tử của dãy), i(biến chạy), Tong(Tổng các phần tử của mảng) |
clrscr; | Xóa màn hình khi chạy chương trình |
write('Nhap so luong phan tu cua day: '); | In ra màn hình dòng chữ Nhap so luong phan tu cua day: |
readln(N); | Nhập từ bàn phím giá trị gán vào biến N |
for i:=1 to N do begin write('Phan tu thu ', i,': '); readln(a[i]); end; |
Cho i chạy từ 1 đến N làm công việc in các phần tử của dãy ra màn hình. |
Writeln('* Mang vua nhap la: '); | In ra màn hình dòng "* Mang vua nhap la:" |
For i:=1 to N do write(a[i]:4); | In ra màn hình các phần tử vừa được nhập ở trên |
Tich:= 1; | Gán giá trị 1 cho biến Tich. |
For i:=1 to N do Tich:= Tich * a[i]; | Cho i chạy từ 1 đến N làm công việc tính tích: Tích = Tích ban đầu * giá trị phần tử a[i] |
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