tính bằng chương trình pascal băng for.... to.. do

Question

S=√1+2+3+...+n
S=1-2+3-4.....+(-1)^n-1* n
S= 1/2+2/3+3/4......+n/n+2

Comments

Đề 3 sai nha bạn. n / n + 1 chứ không phải n / n + 2

Answer 1

Bài 1:

uses crt, math;
var     n, i , S: integer;
begin
    clrscr;
    write('Nhap n = ');readln(n);
    S := 0;
    for i := 0 to n do
    begin
    S := S + i;
    end;
    write(sqrt(S));
    readln;
end.

Bài 2:

uses crt, math;
var     n, i : integer;
    S : float;
begin
    clrscr;
    write('Nhap n = ');readln(n);
    S := 0;
    for i := 1 to n do
    begin
    S := S + power(-1, i - 1) * i;
    end;
    write(S:4:3);
    readln;
end.

Bài 3;

uses crt, math;
var     n, i : integer;
    S : float;
begin
    clrscr;
    write('Nhap n = ');readln(n);
    S := 0;
    for i := 1 to n do
    begin
        S := S + float(i) / i + 1;
    end;
    write(S:4:3);
    readln;
end.

Chúc bạn học tốt!

_thanhtrong_