$I$
Câu 1:
+ Số lần lặp biết trước là một số lần lặp được quy định (được đặt trước)
+ Số lần lặp chưa biết trước là số lần lặp chưa được quy định
- VD:
+ Biết trước: for i:=1 to 4 do inc(s,i);
+ Chưa biết trước:
while i<=4 do
begin
inc(s,i);
inc(i);
end;
Câu 2:
- Cú pháp:
+ Biết trước: for <biến>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
+ Chưa biết trước: while <điều kiện> do <câu lệnh>;
- Hoạt động:
+ Biết trước: lặp một code với số lần được đặt trước, khi nào hết số lần lặp thì dừng.
+ Chưa biết trước:
+ Nếu điều kiện đúng, câu lệnh thực hiện đến khi điều kiện sai.
+ Nếu điều kiện sai ngay từ đầu, câu lệnh không thực hiện sau đó kết thúc.
Câu 3:
- Tác dụng:
+ Rút ngắn thời gian khai báo
+ Tiện lợi cho những bài dài
+ ...
- Cú pháp:
<tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
$II$
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('Tong: ',s);
readln;
end.
Câu 2:
uses crt;
var n,i,d:longint;
check:boolean;
begin
clrscr;
write('Nhap so nguyen: '); readln(n);
if n<=1 then begin check:=false; write(n,' khong phai la so nguyen to') end
else begin
for i:=1 to n do if n mod i=0 then inc(d);
if d=2 then begin check:=true; write(n,' la so nguyen to') end
else begin check:=false; write(n,' khong phai la so nguyen to'); end;
end;
readln;
end.
Câu 3:
uses crt;
var a:array[1..10000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
write('GTNN: ',min);
readln;
end.
