 | 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 |
  | Tìm kiếm |
|---|
| Display results as : Số bài Chủ đề |  Advanced Search |
   |
| 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ích | |
| | Tác giả | Thông điệp |
|---|
AdminAdmin Posts : 126Danh tiếng : 7Join date : 10/11/2014Age : 24 |  Tiê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;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 |
| | | | | Giải các bài toán tính tổng, tích | |
|
| Trang 1 trong tổng số 1 trang |
| Similar topics | |
|
| 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 | |
|
| | 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 |
