Untitled

SUBMITTED BY: Guest

DATE: May 10, 2015, 4:41 p.m.

FORMAT: Text only

SIZE: 518 Bytes

Raw Download

HITS: 1029

Report
  1. Tính tổng
  2. S= x^i với i từ 0 đến n;
  3. Tương tự bài tính giai thừa
  4. nhưng hàm Lũy thừa
  5. F(x,i)= x*x*x*x...*x
  6. (i thừa số);
  7. VAR s:LONGINT;
  8. i,x,n:LONGINT;
  9. FUNCTION Luythua(x,i:LONGINT):LONGINT;
  10. VAR s,j:LONGINT;
  11. BEGIN
  12. s:=1;
  13. FOR j:=1 TO i DO
  14. s:=s*x;
  15. Luythua:=s;
  16. END;
  17. BEGIN
  18. Writeln('Nhap n : ');
  19. readln(n);
  20. Write('Nhap x : ');
  21. Readln(x);
  22. s:=0;
  23. FOR i:=0 TO n DO
  24. s:=s+Luythua(x,i);
  25. Write('S= ',s);
  26. readln;
  27. END.
comments powered by Disqus