Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
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.
Nơi trao đổi thông tin Văn Lang

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ínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

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

Go down 
Tác giảThông điệp
Admin
Admin
Admin


Posts : 120
Danh tiếng : 6
Join date : 10/11/2014
Age : 22

Giải các bài toán tính tổng, tích Empty
Bài gửiTiêu đề: Giải các bài toán tính tổng, tích   Giải các bài toán tính tổng, tích Icon_minitime16/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
https://forumpascalvanlang.forumvi.com
 
Giải các bài toán tính tổng, tích
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Các bài toán tính tổng, tích
» Nữ sinh viên chuyên ngành IT được trao giải thưởng thành tích học tập xuất sắc
» Giải các bài toán về ước và bội
» Giải các bài toán về xâu kí tự
» Giải các bài toán về số nguyên tố

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