Giải Các Bài Toán Tính Tổng, Tích

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ếm
Tìm kiếm
Display results as : Số bài Chủ đề
Advanced Search Advanced Search
Latest imagesĐăng kýĐăng Nhập
Nơi trao đổi thông tin Văn Lang :: Bài tập :: Các vòng lặp
Giải các bài toán tính tổng, tíchGo down
Tác giảThông điệp
AdminAdminAdminPosts : 122Danh tiếng : 7Join date : 10/11/2014Age : 23Giả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;beginclrscr;      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;beginclrscr;      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;beginclrscr;      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;beginclrscr;      write('Nhap n = ');readln(n);      s:=1;      while i<n do      begin           i:=i+2;           s:=s*i;      end;      write('Tong =',s);readln;end.
LikeDislike
Về Đầu Trang Go down
https://forumpascalvanlang.forumvi.com
Giải các bài toán tính tổng, tíchVề Đầ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ề xâu kí tự» Giải các bài toán về ước và bội » 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: Chọn Diễn Đàn||--Các chuyên đề hay|--Lí thuyết| |--Làm quen với Pascal| |--Các cấu trúc điều khiển| |--Mảng và xâu| |--Tệp (File)| |--Bài tập| |--Các vòng lặp| |--Cấu trúc điều kiện| |--Mảng| | |--Mảng hai chiều| | |--Mảng một chiều| | | |--Xâu kí tự| |--Tệp (File)| |--Bài tập cơ bản| |--Thảo luận| |--đưa bài| |--Các bộ đề thi|--Thông tin công nghệ|--Các chương trình lớn viết bằng Pascal
Free forum | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất

Từ khóa » Các Bài Toán Tính Tổng Trong Pascal