Nội dung của Bài thực hành 5: Sử dụng lệnh lặp For…Do dưới đây các em sẽ được thực hành về cách viết chương trình Pascal có câu lệnh lặp For..do, thực hành về sử dụng được câu lệnh ghép và rèn luyện kĩ năng đọc hiểu chương trình có sử dụng vòng lặp for...do. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
Cú 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.
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:
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.
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.
Sau khi học xong Bài thực hành 5: Sử dụng lệnh lặp For…Do, các em cần ghi nhớ:
1. Cấu trúc lặp với số lần được biết trước thể hiện bằng lệnh For …do
2. Câu lệnh GotoXY(a,b) có tác dụng đưa con trỏ về cột a, hàng b.
3. Hàm WhereX cho biết số thứ tự của cột đang có con trỏ.
4. Hàm WhereY cho biết số thứ tự của hàng đang có con trỏ.
5. Chỉ sử dụng các lệnh GotoXY, WhereX, WhereY sau khi khai báo thư viện crt của Pascal.
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 5 cực hay có đáp án và lời giải chi tiết.
Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?
Lệnh lặp nào sau đây là đúng?
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?
Lệnh lặp nào sau đây là đúng?
Câu lệnh pascal nào sau đây là hợp lệ?
Vòng lặp for ..do là vòng lặp:
Với ngôn ngữ lập trình Pascal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
Viết chương trình kiểm tra một số. Nếu số chẵn thì kiểm tra số đó có lớn hơn 100 không?Nếu số lẻ thì kiểm tra số đó có lớn hơn 20 không
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Bài tập 1: Viết chương trình vẽ hình chữ nhật và điền dấu "*" như hình sau: (các dấu "*" phải nằm giữa màn hình)
*****
*****
*****
Bài tập 2: Viết chương trình tìm Ước chung lớn nhất của hai số nguyên (Bất kì). In kết quả ra màn hình
Bài tập 3: Viết chương trình nhập vào một số nguyên rồi in ra màn hình tất cả các ước của số đó.
Bài tập 4: Viết chương trình nhânp vào một số và kiểm tra xem đó có phải là số nguyên tố hay không?
Câu trả lời của bạn
7.Bài toán có tính lặp với số lần biết trước thì ta có chỉ có thể dùng cú pháp câu lệnh For _to _do đúng hay sai?
Câu trả lời của bạn
Viết chương trình tính tổng các biểu thức S=1*1+1*2+...1*10+2*1+2*2+...+...+M*N
(Sử dụng câu lệnh for...do lồng nhau để làm (cho 2 vòng for chạy lồng nhau))
Câu trả lời của bạn
uses crt;
var M,N: integer;
a,b: integer;
S: real;
begin
writeln('nhap so nguyen');
readln(M);
writeln('nhap so nguyen thu 2');
readln(N);
S:=0;
for a:=1 to M do;
begin
for b:=1 to N do
S:= S + a*b
end;
write(S:4:3);
end.
viết chương trình tính tổng T=1/1+1/2+1/3+...+1/100. làm bằng 2 cách dùng lệnh for...to...do và câu lệnh while... do
Câu trả lời của bạn
Hãy mô tả thuật toán của bài toán ''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''.
Câu trả lời của bạn
Câu trả lời của bạn
program insochan;
uses crt;
var n,i: integer;
begin
clrscr;
write('Nhap so N: ');readln(n);
write('Cac so chan tu 0 den ',n,' la: 0');
For i:=1 to n do
if i mod 2 = 0 then write(i:3);
readln;
end.
Mình chịu bạn thông cảm nhé
Câu trả lời của bạn
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap 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âu trả lời của bạn
Câu trả lời của bạn
cho ra kết quả là dãy hằng số chưa biết tính bằng c++, nếu bạn tính theo dãy số có quy luật thì hãy viết như mik đây nhé
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Viết chương trình tính tổng S = 1 + 2 + 3 + 4 + …+ N
N nhập từ bàn phím
Câu trả lời của bạn
program Tinh_tong;
Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.
Viết chương trình tính tích P=1*2*3*4*5
Câu trả lời của bạn
Program tinh_tong;
Uses crt;
Var s:longint;
n,i:integer;
Begin
clrscr;
write('nhap vào số n: ');readln(n);
for i:=1 to n do s:=s+i;
write('tong tren co ket qua la: 's);
readln;
End.
Câu trả lời của bạn
a, 2 DIV 3-2 MOD 3+3 DIV 2-3 MOD 2 = -2
b,1/2-2*7 MOD 2-8 DIV 4*4 = -7.5
Viết chương trình nhập vào số n. In ra màn hình tổng các số chẵn của n
Câu trả lời của bạn
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *