Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

2 posters

Go down

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

Bài gửi by jetlongk4 15/3/2011, 7:38 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.
và ý này nữa/
S=(2^1)+(4^3)+..+(2*n)^2*n-1
jetlongk4
jetlongk4
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by nbni 15/3/2011, 1:15 pm

hàm tính a^x:
var a,x,p:longint;
function luythua(a,x:integer):longint;
var tich,i:integer;
begin
tich:=1;
for i:=1 to x do tich:=tich*a;
luythua:=tich;
end;
begin
readln(a,x);
p:=luythua(a,x);
write(p);
readln
end.
nbni
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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