bài tập về hàm trog pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

bài tập về hàm trog pascal

Bài gửi by jetlongk4 on 15/3/2011, 7:36 am

xây dựng hàm tính a^x.
sử dungj hàm đã xây dựng tính:
S=(1^0)+(3^2)+..+(2*n+1)^2*n.
avatar
jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh : 04/11/1991
Tuổi : 25
Ngày đăng ký : 14/02/2011

Về Đầu Trang Go down

Re: bài tập về hàm trog pascal

Bài gửi by sieuhoatinh on 18/3/2011, 10:34 pm

jetlongk4 đã viết:xây dựng hàm tính a^x.
sử dungj hàm đã xây dựng tính:
S=(1^0)+(3^2)+..+(2*n+1)^2*n.


USES CRT;
VAR X,N,I:INTEGER;
S,A:REAL;
FUNCTION TICH(A:real;X:INTEGER):real;
VAR I:INTEGER;
P:REAL;
BEGIN
P:=1;
FOR I:=1 TO X DO P:=P*A;
TICH:=P;
END;
BEGIN
CLRSCR;
WRITE('A,X: ');
READLN(A,X);
WRITELN('A^X= ',TICH(A,X):0:0);
WRITE('N= ');
READLN(N);
FOR I:=0 TO N DO
BEGIN
A:=0;
A:=TICH(2*I+1,2*I);
S:=S+A;
END;
WRITELN('TONG CAN TINH= ',S:0:0);
READLN;
END.
avatar
sieuhoatinh
Thành viên mới
Thành viên mới

Nam Ngày sinh : 19/04/1994
Tuổi : 23
Ngày đăng ký : 26/02/2011

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết