Trong pascal để tính số lần lặp của câu trúc for do làm như thế nào
1.1. Mục đích, yêu cầu
1.2. Nội dungCú pháp: For < biến đếm >:= < giá trị đầu > to < giá trị cuối > do < câu lệnh >; Trong đó:
Ý nghĩa: Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại. b. Thực hànhBài 1. Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả.a. Khởi động Pascal. Gõ chương trình sau và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình; uses crt; var N,i:integer; begin clrscr; write('Nhap so N='); readln(N); writeln; writeln('Bang nhan ',N); writeln; for i:=1 to 10 do writeln(N,' x ', i:2,' = ',N*i:3); readln; end. b. Lưu chương trình với tên BANGNHAN.PAS; c. Dịch và chỉnh sửa các lỗi gõ, nếu có; d. Chạy chương trình với các giá trị nhập vào lần lượt bằng 1, 2, …,10. Quan sát kết quả nhận được trên màn hình. Gợi ý làm bài: Kết quả in ra màn hình: Hình 1. Kết quả in ra màn hình bảng nhân 6 Nhận xét kết quả trên:
Bài 2. Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình như hình dưới đây:Hình 2. Kết quả in ra màn hình bảng nhân 7 Gợi ý làm bài: Chương trình: uses crt; var N,i:integer; begin clrscr; write('Nhap so N='); readln(N); writeln; writeln('Bang nhan ',N); writeln; for i:=1 to 10 do begin GotoXY(5,WhereY); writeln(N,' x ',i:2,' = ',N*i:3); writeln; end; readln end. Các câu lệnh được thêm vào:
Lưu ý: Chỉ sử dụng được các lệnh GotoXY(a,b), WhereX, WhereY sau khi đã khai báo thư viện crt; của Pascal. Bài 3. Cũng như câu lệnh if, có thể dùng câu lệnh for lồng trong một câu lệnh for khác khi thực hiện lặp. Sử dụng các câu lệnh for…do lồng nhau để in ra màn hình các số từ 0 đến 99 theo dạng bảng như hình sau:Hình 3. Kết quả in ra màn hình các số từ 0 đến 99 Gợi ý làm bài: Chương trình: Program Tao_bang; Uses Crt; Var i: byte; {chi so cua hang} j: byte; {chi so cua cot} Begin Clrscr; {xoa man hinh} For i:=0 to 9 do {viet theo tung hang} begin For j:=0 to 9 do {viet theo tung cot tren moi hang} write(10*i+j:4); {viet cac so ij ra man hinh} writeln; {xuong hang moi} end; {xong hang thu i} readln; {dung chuong trinh de xem ket qua} end. Trong câu lệnh lặp for….do…, các từ while, do được gọi là gì? A. Tên B. Từ khóa C. Hằng D. Biến Đáp án của bạn: Câu 27: Trong các cú pháp sau đâu là cú pháp của cấu trúc lặp với lần chưa biết trước: A. for
Hay nhất
Đáp án :
số vòng lặp của câu lệnh for do được tính như thế nào Các câu hỏi tương tự 1. Khái niệm -Đánh răng mỗi ngày 2 lần, học Tin học 2 lần một tuần, tắm 1 lần một ngày,... -Rửa bát cho đến khi nào sạch, học bài cho đến khi nào thuộc,... Trong cuộc sống, những việc như trên lặp đi lặp lại nhiều lần. Trong Pascal, cách mô tả những công việc (hoạt động) được lặp đi lặp lại nhiều lần được gọi là cấu trúc lặp. Có 3 cấu trúc lặp chính: Vòng lặp for, vòng lặp repeat_until, vòng lặp while_do 2. Vòng lặp for -Đây là vòng lặp căn bản và được sử dụng nhiều nhất trong kiến thức phổ thông. Vòng lặp for dùng để lặp với số lần đã định trước, có cấu trúc như sau: +Dạng tăng dần của biến đếm: For +Dạng giảm dần của biến đếm: For Vd: Tính tổng các số từ 1 đến 100 Program Tong; uses crt; var i,tong:integer; begin tong:=0; for i:=1 to 100 do tong:=tong+i; write(tong); readln; end. 3. Vòng lặp Repeat Cấu trúc chung: Repeat Until <điều kiện>; - Câu lệnh giữa repeat và until sẽ được lặp lại nhiều lần khi nào điều kiện sai, nếu điều kiện đúng thì ngưng. Đối với lệnh này điều kiện sẽ được kiểm tra sau khi thực hiện các lệnh giữa repeat và until nên ít nhất các lệnh sẽ được thực hiện trước 1 lần rồi mới kiểm tra điều kiện đúng hay sai (nếu sai thì thực hiện tiếp vòng lặp, đúng thì ngưng). Vd: Tính tổng các số từ 1 đến 100 var i,n,tong: integer; S:=S+i; i:=i+1; until i>100; write(tong); readln; end. 4. Vòng lặp While Cú pháp: while <điều kiện> do - Câu lệnh sẽ được lặp lại nhiều lần cho đến khi nào điều kiện còn đúng, nếu điều kiện sai thì các lệnh này sẽ không thực hiện nữa (trái với vòng lặp repeat). Đối với lệnh này điều kiện sẽ được kiểm tra trước khi thực hiện lệnh nên nên điều kiện sai thì không có lệnh nào được thực hiện. Vd: Tính tổng các số liên tiếp từ 1 đến 100 var s,i: longint;begin S:= 0; i:= 1; while i <= 100 do begin S:= S + i; i:= i +1; end; write(s); readln; end. |