Viết chương trình Pascal tính tổng 1+2+3 n

Mục tiêu

Làm quen cách viết các chương trình đơn giản, cách sử dụng:

Mô tả bài toán

Viết chương trình nhập số nguyên dương n. Tính S(n) = 1/2 + 2/3 + 3/4 + ... + n/(n+1) (n>0)

Ví dụ:

Input: 2

Output: 1.166

Hướng dẫn

Thuật toán

Dựa vào biểu thức trong đề bài, chúng ta sẽ có cách giải như sau:

Bước 1: Nhập vào n (n>0)

Bước 2: Thực hiện tăng dần biến i từ 1 đến n

Bước 3: Tính tổng của i / (i + 1)

Bài tập mang tính tham khảo, hỗ trợ các bạn làm quen và luyện tập với các bàn toán lập trình cơ bản trong C++.

Kteam khuyến khích các bạn tự phân tích đề bài > tự giải bài toán > debug để kiểm tra kết quả và fix lỗi trong quá trình giải. Sau đó, bạn có thể tham khảo source code mẫu để hoàn chỉnh bài tập. 

Để được hỗ trợ tốt nhất, bạn có thể đặt câu hỏi ở phần bình luận bên dưới bài viết hoặc ở mục Hỏi & Đáp.

Source code tham khảo

// Tính S(n) = 1/2 + 2/3 + 3/4 + ... + n/(n+1)

===========================================================================


#include 
using namespace std;

int Nhap()
{
	int x;
	do
	{
		cin >> x;
		if (x < 0)
			cout << "Nhap sai, yeu cau nhap lai!";
	} while (x < 0);
	return x;
}

double Tinh(int n)
{
	double s = 0;
	for (int i = 1; i <= n; i++)
		s = s + (double)i / (i + 1);
	return s;
}

int main()
{
	int n; 

	cout << "Nhap so nguyen n: ";
	n = Nhap();
	cout << "Ket qua la: "<< Tinh(n) << endl;

	return 0;
}

Kết luận

Bạn có thể củng cố kiến thức C++ từ khóa Lập trình C++ cơ bản.

Hoặc tìm hiểu thêm các bài tập khác trong khóa Bài toán kinh điển trong lập trình

Cảm ơn các bạn đã theo dõi bài viết. Hãy để lại bình luận hoặc góp ý của bạn để phát triển bài viết tốt hơn. Đừng quên “Luyện tập – Thử thách – Không ngại khó”.

Thảo luận

Nếu bạn có bất kỳ khó khăn hay thắc mắc gì về khóa học, đừng ngần ngại đặt câu hỏi trong phần BÌNH LUẬN bên dưới hoặc trong mục HỎI & ĐÁP trên thư viện Howkteam.com để nhận được sự hỗ trợ từ cộng đồng.

Answers ( )

1. 

   chauhoangmy

   -1

   2021-07-20T22:35:32+00:00 20/07/2021 at 22:35

   Reply

   1. (while..do)

   program phuongt;
   uses crt;
      var i, s, n: integer;
   begin
               clrscr;
               write(‘Nhap n = ‘); readln(n);
               s:=0; i:=1;
               while i<=n do
               begin
                          s:=s+i;
                          i:=i+1;
               end;
               write(‘Tong s = ‘, s);
               readln
   end.

   2. (For…do)

   program phuongt;
   uses crt;
      var i, s, n: integer;
   begin
               clrscr;
               write(‘Nhap n = ‘); readln(n);
               s:=0; 
               for i:=1 to n do s:=s+i;
               write(‘Tong s = ‘, s);
               readln
   end.

3. 

   maianhnhi

   0

   2021-07-20T22:36:01+00:00 20/07/2021 at 22:36

   Reply

   While…do

   program bai1;
   uses crt;
   var n,S,i:integer;
   begin
   clrscr;
               write(‘ n = ‘); readln(n);
               S:=0; i:=1;
    while i<=n do
               begin
                          S:=S+i;
                          i:=i+1;
               end;
   write(‘Tong la:  ‘, S);
   readln;
   end.

   For…do

   program bai 2;
   uses crt;
   var n,S,i:integer;
   begin
   clrscr;
   write(‘ n = ‘); readln(n) ;S:=0;

   for i:=1 to n do S:=S+i;
   write(‘Tong la:  ‘, S);
   readln;
   end.