Câu lệnh for trong pascal
|
Dưới đây là phần giới thiệu của onthihsg : Pascal là ngôn ngữ khá cũ, trong thực tế nó không còn được sử dụng phổ biến như trước nữa. So với các ngôn ngữ lập trình script hiện đại thì Pascal khá dài dòng, mức độ trừu tượng cao và cách code khá giống với ngôn ngữ lập trình C. Hầu hết các chương trình C đều có thể dịch được sang Pascal mà chỉ bị thay đổi về cú pháp chứ không làm thay đổi cấu trúc. Mà C thì là một trong những ngôn ngữ lập trình rất phổ biến, do đó nắm được Pascal bạn sẽ tiếp cận C tốt hơn. Nó cũng buộc bạn phải luôn nghĩ về kiểu dữ liệu, điều này sẽ giúp các lập trình viên mới học được một thói quen tuyệt vời khi code. Hãy tham khảo câu lệnh for trong pascal bên dưới nhé Show Video hướng dẫn lệnh lặp pascalRelated Articles
Lý thuyết câu lệnh for trong pascalVòng lặp xác địnhCó hai dạng sau với câu lệnh lặp trong pascal Dạng tiến FOR Dạng lùi FOR Sơ đồ thực hiện vòng lặp FOR:Chú ý: Khi sử dụng câu lệnh lặp FOR cần chú ý các điểm sau:
Tổng hợp bài tập vòng lặp for trong pascalDưới đây là tổng hợp bài tập câu lệnh for trong pascal bài tập cấu trúc lặp bài tập pascal vòng lặp for bài tập vòng lặp for trong pascal biến x có thể nhận các giá trị -5 100 15 câu lệnh for trong pascal câu lệnh lặp câu lệnh lặp pascal Câu lệnh lặp trong Pascal lệnh lặp pascal Seri 100 bài tập Pascal nâng cao Seri 100 bài tập Pascal nâng cao – CHƯƠNG III : CÂU LỆNH CÓ CẤU TRÚC LẶP XÁC ĐỊNH § Không nên tuỳ tiện thay đổi giá trị của biến đếm bên trong vòng lặp FOR vì làm như vậy có thể sẽ không kiểm soát được biến đếm. § Giá trị Max và Min trong câu lệnh FOR sẽ được xác định ngay khi vào đầu vòng lặp. Do đó cho dù trong vòng lặp ta có thay đổi giá trị của nó thì số lần lặp cũng không thay đổi. B. BÀI TẬP Bài tập 3.1: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n (Với n được nhập). a. Hướng dẫn: - Cho biến i chạy từ 1 đến n. - Nếu i chẵn ( i chia 2 dư 0) thì in ra số n. b. Mã chương trình: Program In_So_Le; Uses crt; var i,n: integer; Begin Clrscr; Write('Nhap so n ='); readln(n); For i:=1 to n do if i mod 2 =1 then Write(i:3,','); readln end. #include #include using namespace std; int main(){ cout<<"Nhap n";cin>>n; for (i=1;i<=n;i++) { if (i % 2 !=0) { cout< } } return 0; } Bài tập 3.2: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng. a. Hướng dẫn: - Cho j =0. - Cho biến i chạy từ 1 đến n. - Nếu i chẵn ( i chia 2 dư 0) thì in ra số n và tăng dem lên 1 - Nếu dem chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln). b. Mã chương trình: Program In_So_Le; Uses crt; var Dem,i,n: integer; Begin Clrscr; Write('Nhap so n ='); readln(n); Dem:= 0; For i:=1 to n do if i mod 2 =1 then Begin Write(i:3,','); Dem:= Dem + 1; if Dem mod 15 = 0 then Writeln; end; readln end. c. Nhận xét: Lệnh writeln không có tham số cho phép xuống hàng. Nếu có nhận xét trong 30 số thì có 15 số lẻ, ta có thể không cần thêm biến đếm mà chỉ cần kiểm tra biến i để xuống hàng. Bài tập 3.3: Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). a. Hướng dẫn: - Cho S = 0. - Cho biến i chạy từ 1 đến n. - Nếu i chẵn ( i chia 2 dư 0) thì cộng thêm i vào S. - In ra S. b. Mã chương trình: Program In_So_Le; Uses crt; var S,i,n: integer; Begin Clrscr; Write('Nhap so n ='); readln(n); S:= 0; For i:=1 to n do if i mod 2 =1 then S:= S+i; Writeln('Tong cac so le nho hon ',n,' la: ',S); readln end. c. Nhận xét: Ta dùng biến S để cộng dồn nên nó được khởi tạo giá trị đầu bằng 0. Bài tập 3.4: Viết chương trình in ra tất cả các ước của một số n (Với n được nhập từ bàn phím) a. Hướng dẫn: - Cho biến i chạy từ 1 đến n. Nếu n chia hết cho i thì in ra i. b. Mã chương trình: Program Tim_uoc; uses crt; Var n, i: integer; Begin clrscr; Write('Nhap so n ='); readln(n); For i:=1 to n do if n mod i = 0 then write(i:3,','); readln end. c. Nhận xét: Chương trình trên có hai điểm yếu: - In dư một dấu phẩy ở cuối dãy các ước. - Khi n = 0 thì không in một số nào trong khi mọi số đều là ước của 0. Hãy tìm cách khắc phục yếu điểm này. Bài tập 3.5: Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh. Ví dụ: 6 có các ước nhỏ hơn nó là 1, 2, 3. Tổng là 1 + 2 + 3 = 6. Viết chương trình xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không. a. Hướng dẫn: - Dùng biến n lưu số cần xét. - Biến S có giá trị ban đầu bằng 0. - Cho i chạy từ 1 đến n-1. nếu i là ước của n thì cộng thêm i vào S. - Nếu S = n thì S là số hoàn chỉnh. b. Mã chương trình: Program So_Hoan_Chinh; uses crt; var n, i, s: integer; begin write('nhap so n: ');readln(n); s:=0; for i:= 1 to n -1 do if n mod i = 0 then s:=s+i; if s = n then write(n, ' la so hoan chinh') else writeln(n, ' khong phai la so hoan chinh'); readln end. #include #include using namespace std; int main() { int n, sum=0; cout<<"Nhap n";cin>>n; for(int i=1;i<=n/2;i++) { if(n%i==0) sum+=i; } if(sum==n) {cout< } else { cout< } return 0; } Bài tập 3.6: Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ bàn phím). a. Hướng dẫn: Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra. b. Mã chương trình: Program Tim_uoc_2; uses crt; Var S, n, i,j: longint; Begin clrscr; Write('Nhap so n ='); readln(n); For i:=1 to n do Begin S:=0; For j:=1 to i do if i mod j = 0 then S:=S+j; if S = 2*i then write(i:6,','); end; readln end. #include #include using namespace std; int main() { int i,n, s=0; cout<<"Nhap n";cin>>n; for(i=1;i<=n;i++) { for(int j=1;j<=i;j++) { if(i%j==0) s+=j; } } if(s==2*i) {cout< } return 0; } c. Nhận xét: Ở đây ta sử dụng biến có kiểu logic (Đúng, sai). Chỉ cần một lần n mod i = 0 thì sau khi thực hiện xong vòng lặp ok có giá trị là false. |
