Pascal | Tính tổng của các số tự nhiên từ 1 đến N

Pascal | Tính tổng của các số tự nhiên từ 1 đến N

Cấu trúc điều khiển

Bài toán số 1: Tính tổng của các số tự nhiên từ 1 đến N.

                        S = 1 + 2 + … + N

                        Ví dụ : N = 5,    S  =  1 + 2 + 3 + 4 + 5  =  15

Yêu cầu: Input: N, là số tự nhiên bất kỳ.

Output: S, là tổng của các số từ 1 đến N

Hướng dẫn:

Bài toán được thực hiện qua 3 bước cụ thể như sau:

-         Thông báo nhập liệu, và nhập dữ liệu vào cho N

-         Tiến hành tính tổng S:

  • Khởi gán giá trị ban đầu cho tổng S
  • Tiến hành tính tổng, cộng dồn với các giá trị của i vào S (với i được lặp từ 1 cho đến N)

-         Xuất kết quả của tổng S ra màn hình.

Chương trình:

Program TinhTong;                                     
Uses crt;
Var S,i,n:Integer;                                          // Khai bao bien su dung
BEGIN
            Write( ‘ Nhap so n:’ );       // Thong bao nhap lieu
            Readln( n );                        // Nhap gtri N, (voi &N la lay d/c bien N)
            S: = 0;                                                  // Khoi gan gia tri ban dau cho S  
            For i:=1 to n do                                    // Lap voi moi i co gia tri tu 1 den N
                        S:=S + i;                                  // Tinh tong cong don i vao S
            Writeln( ‘Tong = ’, S);                       // Xuat ket qua tong S ra man hinh
            Readln;
END.

Các phiên bản khác nhau của bài toán là:

  • Tính tổng  (với giả sử N là số lẻ)
  • Tính tổng các số tự nhiên lẻ nhỏ hơn hoặc bằng N.
  • Tính tổng các số tự nhiên chia hết cho 5 như 5, 10, 15, 20, 25, 30….N (N chia hết cho 5)

Hướng dẫn:

- Điều chỉnh bước lặp cho phù hợp.

- Trước khi cộng dồn giá trị của i vào tổng S, phải kiểm tra điều kiện giá trị của i có thỏa mãn điều kiện bài toán hay không.

Cụ thể là:

For i:= 1 to n do               // Lap voi moi i co gia tri tu 1 den N

            S:= S + i / (i+1);        // Tinh tong cong don i/(i+1) vao S

(Luu y, truong hop nay bien S phai duoc khai bao kieu du lieu la so thuc Real )

For i:=1 to n do                            // Lap voi moi i co gia tri tu 1 den N

            if ( i mod 2 == 1)                  // Kiem tra i co’ phai la so le hay khong

                    S := S + i;                                   // Dung ==> Tinh tong cong don i vao S

for i:=1 to n do                 // Lap voi moi i co gia tri tu 1 den N

            if ( i % 5 == 0)                      // Kiem tra i co’ phai la 5, 10, 15… hay khong

                    S := S + i;                                   // Dung ==>Tinh tong cong don i vao S

Bạn thấy bài viết này như thế nào?: 
Average: 9.5 (413 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Facebook bắt tay với Storyful để tạo ra FB Techwire

Facebook bắt tay với Storyful để tạo ra FB Techwire

Facebook và Storyful vừa công bố cho ra đời một tiện ích dành cho các nhà báo hay những ai

Hướng dẫn tạo Drupal 7 Content Type Search Block chỉ với 5 Steps

Hướng dẫn tạo Drupal 7 Content Type Search Block chỉ với 5 Steps

Since the content type I needed to search for was already indexed by the search module, I wanted to stick with core Drupal searching. I didn’t really want to mess with altering an advanced search form, so I came up with the following solution, which only took 5 easy steps.

First module in Symfony and Frameworks, Drupal 8

First module in Symfony and Frameworks, Drupal 8

Having recently started working with Drupal in module development and published my first public Module, my interests have gravitated around the next version of Drupal (v8) and what it holds in store.

Công ty diệt chuột T&C

 

Diet con trung