BÀI TẬP TÍNH TỔNG     (FOR...TO...DO)

BT1:  Viết chương trình tính tổng S = 1+2+...+5

program tinh;

uses crt      ;

var

   s,i: integer;

begin

    s:=0;   i:=1;

    for i:=1 to 5 do s:=s+i;

    writeln(' ket qua la s= ', s);

    readln;

    end.

BT2:  Viết chương trình tính tổng S = 1+2+...+N.

Program TinhTong;

Uses crt;

Var N,i,S:integer;

Begin

               Clrscr;

               Write('Nhap vao gia tri cua N :'); Readln(N);

               S:=0;

               For i:=1 to N do S:=S+i;

               Writeln('Ket qua la :',S);

               Readln;

End.

BT3   Viết chương trình tính tổng S=1/2+1/4+1/6+...+1/500 và đưa kết quả tính ra màn hình?

Program TinhTong;

uses crt;
var i : integer;
s: real;
begin
clrscr;
s:=0;
i:=2;
while i<=500 do
begin
s:=s+1/i;
i:=i+2;
end;
writeln(' Tong can tinh la : ',trunc(s));
readln;
end.

 

Bt 4: Viết chương trình nhập số N, tính tổng day số sau :S=1²+2²+3³+...+N²

Program TinhTong;

    var N,i:integer;

s:longint;

begin

write(' nhap N:'); readln(N);

s:=0;

For i:=1 to N do s:=s+i*i;

writeln('s=',s);

readln;

End.

 

Bài tập 5 Chương trình tính tổng s=1+1/2+1/3..+1/n

 

                        Program Tinh_GTBT;

                        Uses    CRT;

                        Var     i,n: integer; S: Real;

                        BEGIN clrscr;

                                    Writeln(‘ Chuong trinh tinh gia tri bieu thuc’);

                                    Write(‘ Nhap n = ‘); Readln(n);

                                    s:=0 ; i:=1;

                                    While (i <= n) Do

                                                Begin

                                                            s:=  s+ 1/i;

                                                            i:= i + 1;

                                                End;

                                    Writeln(‘ Gia tri cua bieu thuc la s = ’,s:0:2);

                                    Readln;

                        END.

 

Bài 6:Tính tổng      S= (1+)(1+)…(1+)

Program tinhtong;

uses crt;

var i,n:integer;

s:real;

Begin

clrscr;

  write('nhap n='); readln(n);

  s:=1;

  for i:=1 to n do s:=s*(1+1/(i*i))     ;

  writeln('tong s=',s:4:2);

  readln;

END.