Study Lập Trình

Học lập trình dành cho người mới bắt đầu!

ads

Bài 13. Viết chương trình tính tổng S = 1 + 1/2 + 1/3 + 1/4 + ... + 1/n - For do

1. Bài toán

  Yêu cầu: Viết chương trình tính tổng S = 1 + 1/2 + 1/3 + 1/4 + ... + 1/n. Với n được nhập từ bàn phím
  • Input: Nhập \(N\)
  • Output:In ra màn hình hình tổng

2. Giải thuật:


Bước 1. Nhập thông tin:
  • Bước 1.1. Nhập \(N\) từ bàn phím
Bước 2. Xử lý:
  • Bước 2.1. Sử dụng vòng lặp For i:=1 to N tính tổng S:= S + 1/i
Bước 3. In ra màn hình tổng S.

3. Code Pascal:

Program Tong_S;
Uses crt;
Var i, N: integer;
    S: real;
Begin
        Clrscr;
        Write('Nhap N = ');
        Readln(N);
        Write('Tong S = 1 + 1/2 + 1/3 + 1/4 + ... + 1/N = ');
        S:= 0;
        For i:=1 to N do S:= S + 1/i;
        Write(S:3:2);
        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 = 1 + 1/2 + 1/3 + 1/4 + ... + 1/N = '); In ra màn hình dòng chữ Tong S = 1 + 1/2 + 1/3 + 1/4 + ... + 1/N =
S:=0 Gán giá trị 0 cho biến S
For i:=1 to N do S:= S + 1/i; Cho i chạy từ 1 đến N tính giá trị S = S + 1/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ả.

5. Kết Quả Pascal

Kết luận:
    ▪ Bài này chúng ta sử dụng vòng lặp For do.
    ▪ Bài tập này rất căn bản giúp ta hiểu được cách sử dụng vòng lặp For do.

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

Đăng nhận xét