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: 8.5 (102 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
Cludo + Drupal = Instant User-Friendly Search

Thử trải nghiệm Friendly Search của Cludo module trên Drupal 8

Search is a key feature in web experience, and for a lot of people, it's the go-to method to find content. We use search countless times a day on our smartphones in various contexts.

Android, Sony Ericsson Xperia Arc

Sony Ericsson Xperia Arc Review

If you’re looking for a power-packed, stylish Android phone, Sony Ericsson Xperia Arc has it all. It is one of the thinnest smartphones available these days. Not only that, but it’s also among the easiest to handle Android phones out there.

BlackBerry khởi kiện Typo Products - công ty với ý tưởng vỏ bảo vệ kiêm bàn phím Qwerty cho iPhone

Vỏ bảo vệ Typo Keyboards Case (ảnh) dù chưa chính thức bán ra nhưng đã vấp phải vụ kiện từ BlackBerry - hãng nổi tiếng với smartphone có bàn phím Qwerty vật lý​

Wordpress Freelancer

 

Wordpress Freelancer