Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Giải các bài toán tính tổng, tích

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Giải các bài toán tính tổng, tích   16/11/2014, 14:06

Bài 1: Viết chương trình tính tích các số từ 1 đến n.
Bài giải:
uses crt;
var n,i,tich:integer;
begin
clrscr;
      tich:=1;
      write('Nhap n:');readln(n);
      for i:=1 to n do tich:=tich*i;
      write('Tich so tu 1 den ',n,' la:',tich);
readln;
end.

Bài 2:Viết chương trình tính tổng nghịch đảo từ 1 đến n.
Bài giải:
uses crt;
var i,n:integer;
   tong:real;
begin
clrscr;
      tong:=0;
      write('Nhap n:');readln(n);
      for i:=1 to n do
      tong:=tong+1/i;
      write('Tong ngich dao cac to tu 1 den ',n,' la:',tong:2:3);
readln;
end.

Bài 3: Viết chương trình tính tổng nghịch đảo giai thừa từ 1 đến n:
S=1/1! + 1/2! + … + 1/n!
Bài giải:
uses crt;
var i,n:integer;
   tich: longint;
   tong:real;
begin
clrscr;
      tong:=0;
      tich:=1;
      write('nhap n:');readln(n);
      for i:=1 to n do
      begin
           tich:=tich*i;
           tong:=tong+1/tich;
      end;
      writeln('Tong nghich dao giai thua tu 1 den ',n,' =',tong:2:1);
readln;
end.

Bài 4: Nhập số thực a dương. Tìm n bé nhất để biểu thức:
S=  1 + 1/2 + 1/3 + … + 1/n > a
Bài giải:
uses crt;
var i,n,a:integer;
tong:real;
beginuê
clrscr;
      write('Nhap a:');readln(a);
      tong:=0;
      n:=0;
      while tong<a do
      begin
           n:=n+1;
           tong:=tong+1/n;
      end;
      writeln('n be nhat:',n);
readln;
end.

Bài 5: Nhập n nguyên và sau đó tính n trong đó
N = 2 x 4 x 6…x n ( nếu n chẵn)
N=  3 x 5 x 7…x n ( nếu n lẻ)
Bài giải:
uses crt;
var n,i,s:integer;
begin
clrscr;
      write('Nhap n = ');readln(n);
      s:=1;
      while i<n do
      begin
           i:=i+2;
           s:=s*i;
      end;
      write('Tong =',s);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Giải các bài toán tính tổng, tích
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Các vòng lặp-
Chuyển đến