Viết chương trình tính tổng n giai thừa trong pascal

• Lập trình Pascal

Hàm tính Giai thừa trong Pascal

232

Facebook

Twitter

Pinterest

WhatsApp

Linkedin

Tumblr

Bài toán. Viết chương trình tính n! với yêu cầu sử dụng hàm để tính giai thừa.

Program giaiThua;
uses crt;
var n: longint;
Function Giai_Thua(n:longint):longint;
Var GT:Longint;
begin
     GT:=1;
     while n > 0 do
     begin
     GT:=GT * n;
     n:=n-1;
     end;
     Giai_thua:=GT;
end;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    write(n,'!=',Giai_thua(n));
    readln
end.

Facebook

Twitter

Pinterest

WhatsApp

Linkedin

Tumblr

Bài trướcRút gọn phân số trong Pascal

Bài tiếp theoTrộn hai dãy số trong Pascal

Đỗ Thành

1Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)2Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 203Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20

Xem chi tiết

Program TINH_N_GIAI_THUA;
Uses crt;
Var i,n,gt:integer;
Begin
   Clrscr;
   Writeln(' TINH N GIAI THUA:');
   Writeln('----------------------------------');
   Write('Nhap n ='); readln(n);
   gt:=1;
   For i:=1 to n do
   gt:=gt*i;
   Writeln(n, '!=',gt);
   Readln;
End.

Bài 1: Tính tổng S =

Program TINH_TONG_GT;
Uses crt;
Var i,n,gt: integer;
s:real;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH TONG GIAI THUA:');
Writeln('---------------------------------');
Write('Nhap n='); Readln(n);
gt:=1;
s:=1;
For i:=1 to n do
  Begin
     gt:=gt*i;
     s:=s+1/gt;
  End;
Writeln('Tong S = ',s:8:2);
Readln;
End.

Bài 2: Tính tổng S =

Program TINH_TONG_LT;
Uses Crt;
Var i,n:integer;
x,s,lt:real;
Begin
Clrscr;
Writeln('TINH TONG LUY THUA:');
Writeln('------------------------------');
Write('Nhap x = '); readln(x);
Write('nhap n = '); readln(n) ;
s:=0;
lt:=1;
For i:=1 to n do
  Begin
     lt:=lt*x ;
     s:=s+lt ;
  End;
Writeln('Tong S = ',s:8:2);
Readln;
End.

Bài 3: Tính tổng S =

Program TINH_TONG_LT_GT;
Uses Crt;
Var i,n,gt:integer;
x,s,lt:real;
Begin
Clrscr;
Writeln('TINH TONG LUY THUA/GIAI THUA:');
Writeln('--------------------------------');
Write('Nhap x = '); readln(x);
Write('nhap n = '); readln(n) ;
s:=2;
gt:=1;
lt:=1;
For i:=1 to n do
  Begin
      lt:=lt*x ;
      gt:=gt*i;
      s:=s+lt/gt ;
  End;
Writeln('Tong S = ',s:8:2);
Readln;
End.