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\) từ bàn phím
Bước 3. In ra màn hình tổng S.
- Bước 2.1. Sử dụng vòng lặp For i:=1 to N tính tổng S:= S + i
3. Code Pascal:
Program Tong_S; Uses crt; Var S, i, N: integer; Begin Clrscr; Write('Nhap N = '); Readln(N); Write('Tong S = 3 + 6 + 9 + 12 + ... + 3N = '); S:= 0; For i:=3 to 3*N do if i mod 3 = 0 then S:= S + i; Write(S); Readln; End.
4. Giải thích code
Dong code | Ý nghĩa |
---|---|
Program Tong_S; | Đặt tên chương trình Tong_S |
uses crt; | Khai báo các hàm thư viện |
Var S, i: Integer | Khai báo biến S(Tính tổng), i(biến chạy) |
clrscr; | Xóa màn hình khi chạy chương trình |
Write('Nhap N = '); | In ra màn hình dòng chữ Nhap N = |
Readln(N); | Nhập từ bàn phím giá trị của biến N |
Write('Tong S = 3 + 6 + 9 + 12 + ... + 3N = '); | In ra màn hình dòng chữ Tong S = 3 + 6 + 9 + 12 + ... + 3N = |
S:=0 | Gán giá trị 0 cho biến S |
For i:=3 to 3*N do if i mod 3 = 0 then S:= S + i; |
Cho i chạy từ 1 đến 3N. Nếu i chia hết cho 3 thì tính giá trị S = S trước đó + giá trị i |
Write(S); | In ra màn hình giá trị biến S cuối cùng. |
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