Giáo án tổng hợp

ĐỀ CƯƠNG ÔN TẬP TIN HỌC HKII
LÝ THUYẾT
Hãy nêu công dụng, cú pháp và quy trình thực hiện của lệnh For trong ngôn ngữ lập trình Pascal.
Hãy nêu công dụng, cú pháp và quy trình thực hiện của lệnh While trong ngôn ngữ lập trình Pascal. Vẽ sơ đồ mô tả hoạt động lặp với số lần chưa biết trước.
Dữ liệu kiểu mảng là gì?
Nêu cách khai báo và cách truy cập các phần tử của biến mảng trong ngôn ngữ lập trình Pascal.
Cho ví dụ về lỗi lặp vô hạn trong ngôn ngữ lập trình Pascal.
LẬP TRÌNH
Một số tự nhiên N được gọi là số hoàn hảo nếu tổng các ước số của N (trừ N) bằng chính N. Ví dụ 6 là số hoàn hảo vì 6 có các ước là 1, 2, 3 và 6 = 1+2+3. Hãy viết chươn trình đếm xem có bao nhiêu số hoàn hảo từ 2 đến n với n là số nguyên được nhập vào từ bàn phím.
uses crt;
var s,n,i,j,dem:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
s:=0;
for j:=1 to i div 2 do
if i mod j = 0 then s:=s+j;
if s=i then dem:=dem+1;
end;
write(dem);
end.
Một số tự nhiên N được gọi là số chính phương nếu tồn tại một số nguyên x sao cho x2 = N. Hãy viết chương trình tìm tất cả các số chính phương từ 1 đến N với N là số nguyên được nhập vào từ bàn phím.
uses crt;
var i,n:integer;
begin
write(`nhap n: `); readln(n);
for i:=1 to n do if frac(sqrt(i))=0 then write(i:4);
end.
Đếm xem có bao nhiêu số chia hết cho 3 nhưng không chia hết cho 5 trong một dãy số nguyên được nhập vào từ bàn phím. Tính tổng các số đó.
uses crt;
var i,n,s,dem:integer;
a:array[1..10000] of integer;
begin
write(`nhap n: `); readln(n);
for i:=1 to n do
begin
write(`Phan tu thu `,i,` = `); readln(a[i]);
end;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5<>0) then
begin
dem:=dem+1;
s:=s+a[i];
end;
writeln(dem,` so`);
writeln(`tong = `,s);
end.
Đếm xem có bao nhiêu số chẵn, số lẽ, số số 0 trong một dãy số nguyên được nhập vào từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ.
uses crt;
var a:array[1..10000] of integer;
i,n,chan,le,schan,sle,so0:integer;
begin
write(`nhap n: `); readln(n);
for i:=1 to n do
begin
write(`phan tu thu `,i,` = `); readln(a[i]);
if a[i]=0 then so0:=so0+1 else
if a[i] mod 2=0 then
begin
chan:=chan+1;
schan:=schan+a[i];
end else
begin
le:=le+1;
sle:=sle+a[i];
end;
end;
writeln(chan,` so chan - tong `,schan);
writeln(le,` so le - tong `,sle);
writeln(so0,` so 0`);
end.
Tìm tất cả các số chính phương trong một dãy số nguyên được nhập vào từ bàn phím. Tính tổng các số chính phương đó.
uses crt;
var i,n,s:integer;
a:array[1..10000] of integer;
begin
write(`nhap n: `); readln(n);
for i:=1 to n do
begin
write(`phan tu thu `,i,` = `); readln(a[i]);
end;
for i:=1 to n do
begin
if frac(sqrt(a[i]))=0 then
begin
write(a[i]:4);