1.cho đoạn ct sau:

           Tong:=30; while tong>10 do tong:=tong-2;

khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu

2. khai báo biến mảng: Var A:array[1..10] of real;

sử dụng câu lệnh For i:=1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?

TỔ TOÁN-TIN MÔN: TIN HỌC 8

I. TRẮC NGHIỆM

Câu 1: Lệnh lặp nào sau đây là đúng?

a) For <biến đếm>= <giá trị đầu>to<giá trị cuối>do<câu lệnh>;

b) For <biến đếm>:= <giá trị đầu>to<giá trị cuối>do<câu lệnh>;

c) For <biến đếm>:= <giá trị cuối>to<giá trị đầu>do<câu lệnh>;

d) For <biến đếm>: <giá trị đầu>to<câu lệnh> do <giá trị cuối>;

Câu 2: Câu lệnh pascal nào sau đây là hợp lệ?

a) For i:=10 to 1 do write(‘A’); c) For i:=1.5 to 10 do write(‘A’);

b) For i= 1 to 10 do write(‘A’); d) For i:= 1 to 10 do write(‘A’);

Câu 3: Vòng lặp while ..do là vòng lặp:

a) Biết trước số lần lặp c) Chưa biết trước số lần lặp

b) Biết trước số lần <=100 d) Biết trước số lần là >=100

Câu 4: Câu lệnh lặp while…do có dạng đúng là:

a) While <đk> do; <câu lệnh>; c) While <đk> <câu lệnh> do;

b) While <câu lệnh> do <đk>; d) While <đk>do <câu lệnh>;

Câu 5: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=0; for i:=1 to 5 do s := s+i;

Kết quả cuối cùng của s là : a) 11 b) 55 c) 101 d) 15

Câu 6: Trong đọan chương trình pascal sau đây x có giá trị là mấy

Begin x:= 3 ; If (45 mod 3) =0 then x:= x +2;

If x > 10 then x := x +10 ; End.

a) 3 b) 5 c) 15 d) 10

Câu 7: Trong chương trình pascal sau đây:

var a, b :integer;

s,cv :real ;

begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * 2 ; end.

Biến s và cv có giá trị là mấy:

a) s = 10 ; cv = 5 ; c) s= 30 ; cv = 50 ;

b) s = 50 ; cv = 40 ; d) s = 50 ; cv = 30 ;

Câu 8: Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giá trị in ra màn hình là? a) 4 b) 6 c) 8 d) 10

Câu 15: Thực hiện đoạn lệnh:

a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là: a) t=1 b) t=3 c) t=2 d) t=6

II. TỰ LUẬN

1) Nhập số tự nhiên n từ bàn phím, in ra các số chẵn từ 1 đến n và tổng của chúng?

2) Nhập số tự nhiên n từ bàn phím, in ra các số chia hết cho 5 từ 1 đến n và tổng của chúng?

3) Tính trung bình cộng của n số nguyên nhập từ bàn phím?

4) Tìm số lớn nhất trong dãy n số nguyên nhập từ bàn phím?

5) Sửa lỗi cho các câu lệnh Pascal sau:

a. For i=1 to 10 do s= s+i; b. While i:=5 do s:= s+i;

c. Var a:array[100..1] of real; d. If a>b; then max:=a;

6) Kẻ bảng thể hiện các câu lệnh lặp sau:

a. s:=0; b. s:=0; i:=10;

For i:= 1 to 20 do While i>0 do

If I mod 5=0 then s:=s+i; begin s:=s+i; i:=i-1end;

7) Sau khi thực hiện các đoạn chương trình sau, giá trị của biến s và biến i bằng bao nhiêu?

a. s:=1; b. s:=0; i:=0;

For i:= 1 to 5 do s:=s*i; While i<5 do begin i:=i+1; s:=s+i end;

8) Cho biết kiểu dữ liệu của biến a và b trong các đoạn chương trình sau:

a. a:= 0; b:=0;

while a<5 do begin a:=a+1; b:=b+1/a end;

b. b:=1;

For a:= 1 to 5 do b:=b*a;

Bài tập 1: Hãy cho biết kết quả của đoạn chương trình sau:

a) So:=1;

While So<10 do writeln(So);

So:=so+1;

b) Hãy cho biết giá trị của x bằng bao nhiêu?

x:=0;tong:=0;

While tong<=20 do

Begin writeln(tong);

Tong:=tong+1;

End;

x:=tong;

c) Hãy cho biết giá trị của i, j, k

i:=1;j:=2;k:=3;

While i<6 do i:=i+1;j:=j+1;k:=k+j;

Bài tập 2: Hãy cho biết đoạn chương trình sau thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của A bằng bao nhiêu? Viết chương trình Pascal thể hiện thuật toán đó

a) Thuật toán 1

Bước 1: A ¬ 0; n ¬ 2;

Bước 2: Nếu A ≥ 9 , chuyển bước 4

Bước 3: A ¬ A+n và quay lại bước 2

Bước 4: Thông báo A và KTTT

b) Thuật toán 2

Bước 1. S ¬ 10, x ¬ 0.5

Bước 2. Nếu S £ 5.2, chuyển tới bước 4

Bước 3. S ¬ S - x và quay lại bước 2

Bước 4. Thông báo S và kết thúc thuật toán

Bài tập 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây

a) X:=10; while X:=10 do X:=X+5;

b) X:=10; while X=10 do X=X+5;

c) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;

Bài tập 4: Các khai báo biến mảng sau đây trong Pascal đúng hay sai:

a) var X: Array[10,13] Of Integer;

b) var X: Array[5..10.5] Of Real;

c) var X: Array[3.4..4.8] Of Integer;

d) var X: Array[10..1] Of Integer;

e) var X: Array[4..10] Of Real;

Bài tập 5: Viết chương trình nhập số thực nằm trong khoảng từ 1 đến 100. Thông báo bạn đã nhập đúng. Yêu cầu nhập lại nếu số đó không nằm trong khoảng này

Bài tập 6 : Viết chương trình nhập dãy N số và in ra tổng các số chẵn, số lẻ của dãy vừa nhập?

Bài tập 7 : Viết chương trình nhập 1 dãy số nguyên. In ra phần tử lớn nhất, nhỏ nhất của dãy số và tính tổng các số lớn hơn 10 và nhỏ hơn 200?

Bài tập 8 : Viết chương trình nhập 1 dãy số nguyên, sắp xếp lại dãy số theo thứ tự tăng dần, giảm dần?

Mọi người giúp em với em cảm ơn nhìu ạ.

Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.

program chia_het;

uses crt;

var n,i:integer;

a:array[1..100] of integer;

begin

clrscr;

write('Nhap so phan tu co trong day:');readln(n);

for i:=1 to n do begin

writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);

end;

for i:=1 to n do begin

if (a[i] mod 2=0) and (a[i] mod 3=0)

then writeln('Phan tu chia het cho 2 va 3 la:',a[i])

end;

readln

end.

Chương trình trên đúng k ạ