II. BÀI TẬP – VẬN DỤNG
Bài tập:
B1. Hãy liệt kê các lỗi có trong chƣơng trình dƣới đây và sửa lại cho đúng:
Var a,b:= integer;
Const c:=300;
Begin
a:=100;
b:=c/a;
Writeln(b)
End.
B2. Hãy chỉ ra INPUT và OUTPUT của các bài toán sau:
a) Tính tổng của các phần tử lớn hơn 0 trong dãy n số cho trước.
b) Tìm số các số có giá trị nhỏ nhất trong n số đã cho.
B3. Mỗi điều kiện hoặc biểu thức cho kết quả đúng hay sai?
a) 120 là số chia hết cho 5.
b) Nếu ba cạnh a, b và c của một tam giác thỏa mãn c2 > a2 + b2 thì tam giác đó có một
góc vuông.
c) 152 > 200.
d) x2 < 1.
B4. Các câu lệnh Pascal sau đây đƣợc viết đúng hay sai? Nếu câu lệnh nào sai hãy
sửa lại cho đúng
a) if x:=7 then a:=b;
b) if x > 5; then a:=b;
c) if x > 5 then; a:=b;
d) if x > 5 then a:=b; m:=n;
e) if x > 5 then a:=b; else m:=n;
f) if n > 0 then begin a:=0; m:=-1 end else c:=a;
B5. Với mỗi câu lệnh sau đây giá trị của biến X sẽ là bao nhiêu, nếu trƣớc đó giá trị
của X bằng 10?a) if (45 mod 3) = 0 then X:= X+1;
b) if X > 10 then X:= X+1;
B6. Câu lệnh sau là đúng hay sai?
If a>b then writeln(‘a>b’) else
If a<b then writeln(‘a<b’) else writeln(‘a=b’);
B7. Các câu lệnh sau đây, sai ở điểm nào?
a) For i:=1 to 10,1 do writeln(‘a’);
b) For i:=3 to 3 do writeln(‘a’);
c) For i:=3,4 to 5,7 do writeln(s+i);
d) For i:=1000 to 10 do writeln(i);
B8. Chƣơng trình Pascal sau đây thực hiện hoạt động nào?
Var i: integer;
Begin
For i:=1 to 1000 do;
End.
B9. Mỗi chƣơng trình sau đây sẽ thực hiện bao nhiêu vòng lặp?
Chương trình 1
S:=0; n:=0;
While s<=10 do
Begin n:=n+1; s:=s+n;
end;
Chương trình 2
S:=0; n:=0;
While s<=10 do n:=n+1;
S:=s+n;
B10. Các câu lệnh sau, câu lệnh nào sai và hãy chỉ ra điểm sai. Câu lệnh nào đúng?
a) X:=10; while x:=0 do begin a:=a+x; x:=x-1; end;
b) S:=0; n:=0; while s<=10 do n:=n+1; s:=s+n;
c) A:=5; while A<6 do writeln(‘A’);
d) X:=0; s:=0; while x+s=0 do n:=x+s;
e) N:=10; M:=0 while N>M then M:=M+N; N:=N-1;
B11. Hãy khai báo một mảng gồm 50 phần tử, dữ liệu kiểu mảng là integer.
B12. Các khai báo biến mảng sau đây trong Pascal đúng hay sai?
a) Var A: Array[1,,100] of integer;
b) Var X: Array[5.....10] of real;
c) Var A: Array[1..10,51] of integer;
d) Var A: Array[3,4..5,8] of real;
e) Var N: Array[100..10] of real;
Loga
Sinh Học lớp 12
