Bài tập : Lậpchương trình tính tổng A= 1 + 1/2 + 1/3 + … + 1/n
Vớin là số tự nhiên được nhập từ bàn phím
Bài giải :
Mã:
Program tinhtong;
Uses Crt;
Var i, n: Integer;tong: Real;
BEGIN
Clrscr;
Write (' Cho so tunhien n: ');
Readln (n);
tong:=0;
i:=1;
While i <= n
Do
Begin
tong:=tong + 1/i;
i:=i + 1;
End;
Writeln (' Tong cantim la: ', tong: 8: 2 );
Readln;
END.
Hướng dẫn :
Các bạn khai báo biến tong bằng0 và i là kiểu số thực. Sau đó cho vòng lặp chạy từ1 đến n. Mỗi vòng lặp thì thực hiện tong=tong+ 1/i và tăng i lên1 đơn vị. Và chỉ cần in ra tong làxong.
Mã:
tong:=0; i:=1; // khai báo biến tong=0, i là kiểu số thực
While i <= n // vong lặp bắtđấu chạy từ I (1) đến n
Do
Begin
tong:=tong + 1/i; //
i:=i + 1; // Tăng i lên 1 đơn v
End;
Writeln (' Tong can tim la: ', tong:8: 2 ); // In kết quả ra màn hình
Vậy là hoàn thành rồi đó !
Vớin là số tự nhiên được nhập từ bàn phím
Bài giải :
Mã:
Program tinhtong;
Uses Crt;
Var i, n: Integer;tong: Real;
BEGIN
Clrscr;
Write (' Cho so tunhien n: ');
Readln (n);
tong:=0;
i:=1;
While i <= n
Do
Begin
tong:=tong + 1/i;
i:=i + 1;
End;
Writeln (' Tong cantim la: ', tong: 8: 2 );
Readln;
END.
Hướng dẫn :
Các bạn khai báo biến tong bằng0 và i là kiểu số thực. Sau đó cho vòng lặp chạy từ1 đến n. Mỗi vòng lặp thì thực hiện tong=tong+ 1/i và tăng i lên1 đơn vị. Và chỉ cần in ra tong làxong.
Mã:
tong:=0; i:=1; // khai báo biến tong=0, i là kiểu số thực
While i <= n // vong lặp bắtđấu chạy từ I (1) đến n
Do
Begin
tong:=tong + 1/i; //
i:=i + 1; // Tăng i lên 1 đơn v
End;
Writeln (' Tong can tim la: ', tong:8: 2 ); // In kết quả ra màn hình
Vậy là hoàn thành rồi đó !