Tin học ai giúp mình với sắp kiểm tra 1t rồi

[bcvs2003@gmail.com]

[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.

viết thuật toán tính tổng : S = 1/(a+1) +1/(a+2) +...+1/(a+n) cho đến khi 1/(a+n) <= 0,001

 

[ka1412]

viết thuật toán tính tổng : S = 1/(a+1) +1/(a+2) +...+1/(a+n) cho đến khi 1/(a+n) <= 0,001

Bạn xem thử xem:

uses crt;
var a,i:integer;
s:real;
begin
    clrscr;
    write('Nhap a:');readln(a);
    i := 1;
    repeat
        s := s+1/(a+i);
        inc(i);
    until 1/(a+i)<=0.001;
    write('S=',s:4:9);
    readln
end.

 

[bcvs2003@gmail.com]

bạn đang học cấp 2 hay cấp 3

mới lên lớp 10 ạ . tin 10

Bạn xem thử xem:

uses crt;
var a,i:integer;
s:real;
begin
    clrscr;
    write('Nhap a:');readln(a);
    i := 1;
    repeat
        s := s+1/(a+i);
        inc(i);
    until 1/(a+i)<=0.001;
    write('S=',s:4:9);
    readln
end.

chưa cần dùng chương trình pascal đâu bạn ạ . đang tin 10 thôi . viết thuật toán mà bằng 2 cách ấy

bạn đang học cấp 2 hay cấp 3

lớp 10 ạ

Bạn xem thử xem:

uses crt;
var a,i:integer;
s:real;
begin
    clrscr;
    write('Nhap a:');readln(a);
    i := 1;
    repeat
        s := s+1/(a+i);
        inc(i);
    until 1/(a+i)<=0.001;
    write('S=',s:4:9);
    readln
end.

chỉ cần viết thuật toán thôi ạ . chưa dùng đến chương trình đâu ạ

 

[Deathheart]

chỉ cần viết thuật toán thôi ạ . chưa dùng đến chương trình đâu ạ

bạn ơi nó thế này
B1: Nhập a
B2: S <-- 0, n <--- 1
B3: 1/(a+n) < hoặc = 0,01 thì xuất S và kết thúc
B4: S <-- S+1/(a+n), i<--i+1
B5: quay lại B3