Tin học Pascal

[ricknem]

[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.

1/Tính tổng S=1+1*2+1*2*3+...

2/Tính tổng S=1-2+3-4+(-n) mũ n-1

 

[Nguyễn Như Tuyết]

1/Tính tổng S=1+1*2+1*2*3+...

2/Tính tổng S=1-2+3-4+(-n) mũ n-1

Bạn muốn viết chương trình hay thuật toán?

 

[ricknem]

Bạn muốn viết chương trình hay thuật
Cả hai ý

 

[Trâm Nguyễn Thị Ngọc]

bài 1:

1/Tính tổng S=1+1*2+1*2*3+...

2/Tính tổng S=1-2+3-4+(-n) mũ n-1

S=1+1*2+1*2*3+...tới mấy vậy bạn

 

[ricknem]

bài 1:

S=1+1*2+1*2*3+...tới mấy vậy bạn

...n

 

[Trâm Nguyễn Thị Ngọc]

...n

Ý của bạn là n*(n+1)*(n+2)

 

[ka1412]

1/

uses crt;
var i,s,k,n,j:integer;
begin
    readln(n);
    for i:=1 to n do
    begin
        k:=1;
        for j:=1 to i do k:=k*j;
        s:=s+k;
    end;
    write(s);
    readln
end.

 

[trà nguyễn hữu nghĩa]

Ý của bạn là n*(n+1)*(n+2)

bài này là tính tổng giai thừa từ 1 đến n
nghĩa là S = 1! + 2! + ... + n!

 

[ricknem]

Ý của bạn là n*(n+1)*(n+2)

N là số mình nhập ấy
Thật ra là đề cô cho ghi vậy á k biết mình có ghi thiếu k

 

[trà nguyễn hữu nghĩa]

1/

uses crt;
var i,s,k,n,j:integer;
begin
    readln(n);
    for i:=1 to n do
    begin
        k:=1;
        for j:=1 to i do k:=k*j;
        s:=s+k;
    end;
    write(s);
    readln
end.

làm kiểu này chạy lâu lắm đó e.

k := 1;
for i := 1 to n do
begin
         k := k*i;
         s := s + k;
end;

 

[Trâm Nguyễn Thị Ngọc]

N là số mình nhập ấy
Thật ra là đề cô cho ghi vậy á k biết mình có ghi thiếu k

bài này là tính tổng giai thừa từ 1 đến n
nghĩa là S = 1! + 2! + ... + n!

em hiểu rồi ạ, vậy thì code đây bạn

Var
 n:integer;
Function GT(a:integer):Longint;
Var
 i,s:integer;
Begin
   For i:=1 to a do
     s:=s*i;
  GT:=s;
 end;
Begin
 readln(n);
 If (n=0) or (n=1) then write('giai thua:',1)
 else write('giai thua cua ',n,'la:',gt(n));
readln
end.

 

[ricknem]

em hiểu rồi ạ, vậy thì code đây bạn

Var
 n:integer;
Function GT(a:integer):Longint;
Var
 i,s:integer;
Begin
   For i:=1 to a do
     s:=s*i;
  GT:=s;
 end;
Begin
 readln(n);
 If (n=0) or (n=1) then write('giai thua:',1)
 else write('giai thua cua ',n,'la:',gt(n));
readln
end.

Cảm ơn lun ạ

 

[trà nguyễn hữu nghĩa]

em hiểu rồi ạ, vậy thì code đây bạn

Var
 n:integer;
Function GT(a:integer):Longint;
Var
 i,s:integer;
Begin
   For i:=1 to a do
     s:=s*i;
  GT:=s;
 end;
Begin
 readln(n);
 If (n=0) or (n=1) then write('giai thua:',1)
 else write('giai thua cua ',n,'la:',gt(n));
readln
end.

không phải tính giai thừa n mà là tổng giai thừa từ 1 đến n nha e

 

[Trâm Nguyễn Thị Ngọc]

N là số mình nhập ấy
Thật ra là đề cô cho ghi vậy á k biết mình có ghi thiếu k

không phải tính giai thừa n mà là tổng giai thừa từ 1 đến n nha e

Vâng, e bị lộn ạ.

Var
  n:integer;
  t,a,i,n:integer;
Begin
  readln(n);
  t:=0;a:=1;
  For i := 1 to n do
   begin
     a := a*i;
     t := t + a;
   end;
write('tong la:',t);
readln
 end.