| 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 |
---|
AdminAdminPosts : 122Danh tiếng : 7Join date : 10/11/2014Age : 23 | 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ề 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 | |
|
| 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 |