Tin học [Lớp 11] Hàm Function

[Ferri]

[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 CT nhập vào 2 số nguyên dương n,m.Tính:
S=[tex]\frac{1}{m+1}+\frac{2}{m+2}+...+\frac{n}{m+n}[/tex]
T=[tex]1+\sqrt{1+2}+..+\sqrt{1+2+...+m}[/tex]
K=[tex]S^{n}+T^{m}[/tex]
Cảm ơn mọi người !

 

[ka1412]

S:

uses crt;
var m,n,i :integer;
function b1(m,n:integer):real;
begin
    for i:=1 to n do
    b1 := b1+i/(m+i);
end;
begin
    clrscr;
    write('Nhap n:');readln(N);
    write('Nhap m:');readln(m);
    write('S=',b1(m,n):4:6);
    readln
end.

 

[ka1412]

T:

uses crt;
var m,i,j:integer;
function b2(m:integer):real;
var s:integer;
begin
   for i:=1 to m do
   begin
       for j := 1 to i do s := s+j;
       b2    := b2+sqrt(s);
       s     := 0;
   end; 
end;
begin
    clrscr;
    write('Nhap m:');readln(m);
    write('T=',b2(m):4:6);
    readln
end.

 

[ka1412]

K:

uses crt;
var m,n,i,j :integer;
t,k : real;
function b1(m,n:integer):real;
begin
    for i:=1 to n do
    b1 := b1+i/(m+i);
    t  := b1;
end;
function b2(m:integer):real;
var s:integer;
begin
   for i:=1 to m do
   begin
       for j := 1 to i do s := s+j;
       b2    := b2+sqrt(s);
       s     := 0;
   end;
   k := b2;
end;
function b3(n:integer):real;
begin
    b3    := 1;
    for i := 1 to n do b3:=b3*t;
end;
function b4(m:integer):real;
begin
    b4    := 1;
    for i := 1 to m do b4:=b4*k;
end;
begin
    clrscr;
    write('Nhap n:');readln(N);
    write('Nhap m:');readln(m);
    writeln('S=',b1(m,n):4:6);
    writeln('T=',b2(m):4:6);
    write('K=',(b3(n)+b4(m)):4:6);
    readln
end.

 

[Ferri]

S:

uses crt;
var m,n,i :integer;
function b1(m,n:integer):real;
begin
    for i:=1 to n do
    b1 := b1+i/(m+i);
end;
begin
    clrscr;
    write('Nhap n:');readln(N);
    write('Nhap m:');readln(m);
    write('S=',b1(m,n):4:6);
    readln
end.

CT này có sai sai gì không b, mình đánh lên nó báo lỗi ( "(" expected ) ở dòng b1:=b1+i/(m+i);

 

[ka1412]

Mình chạy bình thường mà bạn