Tin học xaay dựng thuật toán theo sơ đồ khối

[Tên tôi là...........]

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

xây dựng thuật toán theo sơ đồ khối giải các khói bài toán sau:
a/tính tổng :S=1/2 + 1/4+...+1/2n (với N là số nguyên cho trước)

b/tính tổng: S=[tex]\frac{1}{a}+\frac{1}{a+1}+\frac{1}{a+2}+...+\frac{1}{a+100}[/tex]
với a là số thực cho trước
c/ tính tổng S=[tex]\frac{1}{a}+\frac{1}{a+1}+\frac{1}{a+2}+...+\frac{1}{a+N}[/tex] cho đến khi [tex]\frac{1}{a+N} < 0,001[/tex]
giúp mk vs

 

[Trâm Nguyễn Thị Ngọc]

a, var
n,i:integer;
s:real;
begin
write('nhap vao mot so');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*2);
writeln('tong la:',s);
readln
end.
b,
var
i:integer;
s,a:real;
begin
write('nhap vao mot so:');
readln(a);
for i:=1 to 100 do
s:=s+1/(a+i);
writeln('tong la:',s);
readln
end.
c,
var
i,n:integer;
s,a:real;
begin
write('nhap vao 2 so:');
readln(a);
readln(n);
repeat
for i:=1 to n do
s:=s+1/(a+i);
until 1/(a+n)>0,001;

 

[Tên tôi là...........]

a, var
n,i:integer;
s:real;
begin
write('nhap vao mot so');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*2);
writeln('tong la:',s);
readln
end.
b,
var
i:integer;
s,a:real;
begin
write('nhap vao mot so:');
readln(a);
for i:=1 to 100 do
s:=s+1/(a+i);
writeln('tong la:',s);
readln
end.
c,
var
i,n:integer;
s,a:real;
begin
write('nhap vao 2 so:');
readln(a);
readln(n);
repeat
for i:=1 to n do
s:=s+1/(a+i);
until 1/(a+n)>0,001;




Like ủng hộ

cái j đây bạn
mk ko hỉu.................sơ dồ khối mà

 

[namnam06]

Thế này ạ?
Chắc là được rồi.

 

[Tên tôi là...........]

Thế này ạ?
Chắc là được rồi.

ế sao koxem đc đoạn đầu z
giúp mk bài b,clun đc ko

 

[namnam06]

ế sao koxem đc đoạn đầu z
giúp mk bài b,clun đc ko

Em nhỏ hơn anh mà, hihi.
Em cũng không biết tại sao không xem đc nữa.

 

[Tên tôi là...........]

Em nhỏ hơn chị mà, hihi.
Em cũng không biết tại sao không xem đc nữa.

ko f ko xem đc nhưng nhưng kiểu bị mất đoạn đầu ý
p/s a là trai nhé

 

[namnam06]

Lỗi editing rồi anh ơi.
Buồn ghê đi.

 

[Tên tôi là...........]

Lỗi editing rồi anh ơi.
Buồn ghê đi.

e vẽ tiếp giùm a đc ko