viết chương trình pascal lớp 8

[kienduc_2000]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1/ tính tổng s= 1+1/3+1/5+...+1/n+1
2/ tính tổng s=1+1/2+1/4+...+1/n+2
3/ tính tổng s=1/1^2+1/2^2+..+1/n^2

 

[megamanxza]

Câu 1:

[B][COLOR="Blue"]Uses crt;
var i, n: integer;
      tong: real;
begin
clrscr;
write ('Nhap so N la so chan: '); readln (n);
if n mod 2 <>0 then
  begin
    write ('So ban nhap khong phai la so chan! An Enter va chay lai!');
    readln; exit;
  end;
i:=1;
while i<=n+1 do 
  begin
    tong:=tong+1/i;
    i:=i+2;
  end;
write ('Tong S la ',tong:0:4);
readln
end.[/COLOR][/B]

 

[megamanxza]

Hai bài kia mình làm sau! Giờ mình mắc đi học cmnr! =))

 

[zuniexinh]

Bài 3

3/ tính tổng s=1/1^2+1/2^2+..+1/n^2
uses crt;
var s:real;i,n:integer;
begin clrscr;
write('Nhap n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/sqr(i);
writeln('Tong S la:',s:0:5);
readln
end.

 

[nguyenhien15]

2/ tính tổng s=1+1/2+1/4+...+1/n+2

var s:real;
i,n:integer;
begin
write('nhap so n');readln(n);
s:=1;
i:=2;
while i>n then
begin
s:=s+1/i;
i:=i+2;
end;
write('tong la ',s);
readln
end.