Help me, plz pro pascal!!!

[bipbipbip]

Em có 2 bài thầy cho chưa biết làm, mấy sư phụ chỉ em chút! Thanks mọi người nhiều!

Viết ct để tính (a:real; n:integer);
1/a+1/a(a+1)+..1/a(a+n)
Viết ct tính giác trị biểu thức
1-1/2+1/3-1/4+...+1/9999-1/1000
Chiều mai là nộp r! Mấy huynh làm nhanh nhanh nhen! Thanks 1 lần nữa!

[haplinhavxt]

Thì cứ for rồi làm thôi!

[auauau97]

câu 1:


Uses crt;
Var
a,s:real;
n:integer;
i:longint;
BEGIN
Clrscr;
Write('Nhap a,n:');
Readln(a,n);
s:=1/a;
For i:=1 to n do
s:=s+1/(a*(a+i));
Write('Gia tri bieu thuc:',s);
Readln;
END.

[auauau97]

Em có 2 bài thầy cho chưa biết làm, mấy sư phụ chỉ em chút! Thanks mọi người nhiều!

Viết ct để tính (a:real; n:integer);
1/a+1/a(a+1)+..1/a(a+n)
Viết ct tính giác trị biểu thức
1-1/2+1/3-1/4+...+1/9999-1/1000
Chiều mai là nộp r! Mấy huynh làm nhanh nhanh nhen! Thanks 1 lần nữa!

Bài 2:


Uses crt;
Var
i:longint;
s:real;
BEGIN
Clrscr;
s:=1;
For i:=1 to 1000 do
If i mod 2=0 then
s:=s-1/i
Else
s:=s+1/i;
Write('Gia tri cua bieu thuc:',s);
Readln;
END.