Bài tập câu lệnh lặp trong Pascal lớp 8

Trong ngôn ngữ lập trình Pascal, vòng lặp For (hay còn gọi là vòng lặp điều khiển bằng số) là một cấu trúc lặp lại một khối lệnh nhiều lần theo một thứ tự xác định. Vòng lặp For thường được sử dụng để thực hiện các công việc lặp lại một số lần cố định, và chúng ta cần một biến lặp để thực hiện điều này. Cú pháp của vòng lặp For trong Pascal như sau:

for biến_lặp := giá_trị_đầu to giá_trị_cuối do
begin
// các lệnh cần thực hiện trong vòng lặp
end;

Trong đó:

biến_lặp: là tên của biến được sử dụng để lặp lại khối lệnh. Biến này sẽ thay đổi giá trị mỗi lần lặp để thực hiện các lệnh khác nhau.
giá_trị_đầu và giá_trị_cuối: là giá trị ban đầu và giá trị kết thúc của biến lặp. Vòng lặp For sẽ lặp lại khối lệnh cho tất cả các giá trị của biến lặp trong khoảng từ giá_trị_đầu đến giá_trị_cuối.
begin và end: là từ khóa đánh dấu đầu và cuối của khối lệnh sẽ được thực hiện trong vòng lặp.

Khi vòng lặp For được thực hiện, biến lặp sẽ được tăng lên một đơn vị sau mỗi lần lặp, cho đến khi giá trị của biến lặp đạt tới giá trị kết thúc giá_trị_cuối, thì vòng lặp sẽ dừng lại.

Ví dụ 1: In ra các số từ 1 đến 10

Program Example1;

var
i: Integer;

begin
for i := 1 to 10 do
begin
writeln(i);
end;
end.

Ví dụ 2: Tính tổng các số từ 1 đến n

Program Example2;

var
i, n, sum: Integer;

begin
write(‘Nhap n: ‘);
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
writeln(‘Tong tu 1 den ‘, n, ‘ la: ‘, sum);
end.

Ví dụ 3: Tính giai thừa của một số nguyên dương n

Program Example3;

var
i, n, fact: Integer;

begin
write(‘Nhap n: ‘);
readln(n);
fact := 1;
for i := 1 to n do
begin
fact := fact * i;
end;
writeln(n, ‘! = ‘, fact);
end.

Ví dụ 4: In ra bảng cửu chương

Program Example4;

var
i, j: Integer;

begin
for i := 1 to 9 do
begin
for j := 1 to 10 do
begin
write(i, ‘ x ‘, j, ‘ = ‘, i * j, ‘ ‘);
end;
writeln;
end;
end.

Hy vọng rằng những ví dụ trên sẽ giúp bạn hiểu rõ hơn về cách sử dụng vòng lặp for trong Pascal.

Bài tập 1: Tính tổng các số lẻ từ 1 đến n

Program BaiTap1;

var
i, n, sum: Integer;

begin
write(‘Nhap n: ‘);
readln(n);
sum := 0;
for i := 1 to n do
begin
if (i mod 2 = 1) then
begin
sum := sum + i;
end;
end;
writeln(‘Tong cac so le tu 1 den ‘, n, ‘ la: ‘, sum);
end.

Bài tập 2: Kiểm tra một số có phải là số nguyên tố hay không

Program BaiTap2;

var
n, i: Integer;
isPrime: Boolean;

begin
write(‘Nhap n: ‘);
readln(n);
isPrime := true;
for i := 2 to n – 1 do
begin
if (n mod i = 0) then
begin
isPrime := false;
break;
end;
end;
if isPrime then
begin
writeln(n, ‘ la so nguyen to’);
end
else
begin
writeln(n, ‘ khong la so nguyen to’);
end;
end.

Bài tập 3: Đảo ngược một chuỗi

Program BaiTap3;

var
str, reversed: String;
i: Integer;

begin
write(‘Nhap chuoi: ‘);
readln(str);
reversed := ”;
for i := length(str) downto 1 do
begin
reversed := reversed + str[i];
end;
writeln(‘Chuoi dao nguoc: ‘, reversed);
end.

Bài tập 4: Tìm số lớn nhất trong một mảng

Program BaiTap4;

const
MAX_SIZE = 100;

var
arr: array[1..MAX_SIZE] of Integer;
n, i, max: Integer;

begin
write(‘Nhap so luong phan tu cua mang: ‘);
readln(n);
write(‘Nhap cac phan tu cua mang: ‘);
for i := 1 to n do
begin
readln(arr[i]);
end;
max := arr[1];
for i := 2 to n do
begin
if arr[i] > max then
begin
max := arr[i];
end;
end;
writeln(‘So lon nhat trong mang la: ‘, max);
end.

Hy vọng rằng những bài tập trên sẽ giúp bạn củng cố kỹ năng về cấu trúc lặp trong Pascal.

Bài tập 1: Viết chương trình in ra bảng cửu chương từ 1 đến 10

Program BaiTap1;

var
i, j: Integer;

begin
for i := 1 to 10 do
begin
writeln(‘Bang cuu chuong cua ‘, i, ‘:’);
for j := 1 to 10 do
begin
writeln(i, ‘ x ‘, j, ‘ = ‘, i*j);
end;
writeln;
end;
end.

Bài tập 2: Tính tổng các số từ 1 đến n

Program BaiTap2;

var
i, n, sum: Integer;

begin
write(‘Nhap n: ‘);
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
writeln(‘Tong cac so tu 1 den ‘, n, ‘ la: ‘, sum);
end.

Bài tập 3: Tính giai thừa của một số

Program BaiTap3;

var
i, n, factorial: Integer;

begin
write(‘Nhap n: ‘);
readln(n);
factorial := 1;
for i := 1 to n do
begin
factorial := factorial * i;
end;
writeln(n, ‘! = ‘, factorial);
end.

Bài tập 4: Kiểm tra một số có phải số hoàn hảo hay không

Program BaiTap4;

var
n, i, sum: Integer;

begin
write(‘Nhap n: ‘);
readln(n);
sum := 0;
for i := 1 to n – 1 do
begin
if (n mod i = 0) then
begin
sum := sum + i;
end;
end;
if (sum = n) then
begin
writeln(n, ‘ la so hoan hao’);
end
else
begin
writeln(n, ‘ khong la so hoan hao’);
end;
end.

Hy vọng rằng những bài tập trên sẽ giúp bạn hiểu rõ hơn về cách sử dụng câu lệnh lặp trong Pascal và nâng cao kỹ năng lập trình của bạn.

Tính tổng, tích hoặc các phép tính khác của một dãy số. Ví dụ: Tính tổng các số từ 1 đến n, tính tích các số từ 1 đến n, tính tổng các số chẵn từ 1 đến n…

In ra bảng cửu chương hoặc các bảng số khác. Ví dụ: In ra bảng cửu chương từ 1 đến 10, in ra bảng mũ từ 1 đến n…

Kiểm tra các số nguyên tố, số hoàn hảo hoặc các số khác. Ví dụ: Kiểm tra một số có phải số nguyên tố hay không, kiểm tra một số có phải số hoàn hảo hay không, kiểm tra một số có phải số chính phương hay không…

Xác định số lượng, tìm giá trị lớn nhất, giá trị nhỏ nhất hoặc các giá trị khác của một dãy số. Ví dụ: Tìm số lượng các số chẵn từ 1 đến n, tìm giá trị lớn nhất của một dãy số, tìm giá trị nhỏ nhất của một dãy số…

Tạo một mảng hoặc danh sách và thực hiện các thao tác trên mảng đó. Ví dụ: Tính tổng các phần tử của một mảng, tìm giá trị lớn nhất của một mảng, sắp xếp một mảng theo thứ tự tăng dần…

Thực hiện các tác vụ khác, ví dụ: tạo một chương trình in ra hình tam giác, in ra hình chữ nhật, in ra các số từ 1 đến n theo một thứ tự nhất định…

Các dạng bài tập trên đòi hỏi các kỹ năng khác nhau về lập trình, từ việc sử dụng vòng lặp đơn giản đến sử dụng các cấu trúc điều kiện, mảng hoặc danh sách. Tuy nhiên, qua đó sẽ giúp nâng cao kỹ năng lập trình của bạn.