Câu 1: Cho biết kết quả biến S đoạn chương trình sau
P:=1; S:=0;
While S<15 do
Begin

            P:=P+1;
            S:=S+P;

End;
Câu 2: Chương trình sau cho kết quả thế nào? Vì sao?
Var a, b, S: integer;
begin
           a:=50;
           b:=27;
           while b< a do S:=S+a-b;
           write(„tong S=‟, S);
end.

Câu 1: Cho biết kết quả biến S đoạn chương trình sau

P:=1; S:=0;

While S<15 do

Begin

          P:=P+1;

          S:=S+P;

End;

Câu 2: Chương trình sau cho kết quả thế nào ?Vì sao?

Var a, b, S: integer;

begin

              a:=50;

              b:=27;

             while b< a do S:=S+a-b;

             write(„tong S=‟, S);

end.

ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II TIN HỌC 8

Năm học 2011-2012

Ôn lại kiến thức đã học  bài 7, 8, 9 và thực hành 5,6,7

I. PHẦN TRẮC NGHIỆM

A. Điền Đ (đúng) hoặc S (sai) với các câu sau:

ð 1.for i:=10 to 1 do writeln('b');

ð 2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.

ð 3. for i:=1 to 100 do ;

ð  4. for i:=1 to 100 do writeln('b');

ð 5.for i:=0.5 to 5.5 do writeln('b');

ð 6.for i=1 to 100 do writeln('b');

ð 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal

ð 8. S:=0; n:=0;

while S <= 100 do

   begin n:=n+1; S:=S+n end;

ð 9.for i:=5 to 1 do writeln('X');

ð 10.for i:=0.5 to 5.5 do writeln('X');

ð 11. while…do là câu lệnh lặp với số lần chưa biết trước trong pascal

ð 12. for i:=1 to 100 do ;

ð  13. for i:=1 to 10 do writeln('X');

ð 14.for i=1 to 50 do writeln('X');

B.Khoanh tròn vào câu mà em cho là đúng nhất.

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ôí> do <câu lệnh>;

B.               For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;

C.               For <biến đếm>:= <giá trị cuôí> 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: Vòng lặp while ..do là vòng lặp:

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

B. Biết trước số lần lặp

C. Biết trước số lần lặp nhưng giới hạn là <=100

D. Biết trước số lần lặp nhưng giới hạn là >=100

Câu 3:  Cách khai báo mảng sau đây cách nào khai báo đúng ?

        A. var X : Array [10, 13] of integer;   C. var X : Array [3.4..4.8] of integer;

        B. var X : Array [10.. 1] of integer;    D. var X : Array [1..10] of real;

Câu 4: 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+2;                 writeln(s);

Kết quả in lên màn hình là của s là :

                  A.11                     B. 55                              C. 12                    D.13

Câu 5: Lần lượt 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=2                   C. t=3        D. t=6

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

A.For i:= 1 to 10 do writeln(‘A’);     B. For i:=1.5 to 10.5 do writeln(‘A’);

C. For i= 1 to 10 do writeln(‘A’);     D. For i:=100 to 1 do writeln(‘A’);

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

Câu 8: Vòng lặp for ..do là vòng lặp:

Câu 9:  Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?

          a. Readln(A[10]);                         b. Readln(A[k]);

c. Readln(A[i]);                             d. Readln(A10);

Câu 10:  Phần mềm học vẽ hình là:

A. Sun Times                 B. Yenka    C. Finger Break Out                D. Geogebra

Câu 11:  Phần mềm luyện gõ phím nhanh là:

A. Sun Times         B. Yenka    C. Finger Break Out                D. Geogebra

Câu 12: Vòng lặp for ..do là vòng lặp:

Câu 13: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i  phải được

 khai báo là kiểu dữ liệu

Câu 14: Tìm hiểu đoạn lệnh sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp?

             Var a:integer;

                    Begin

             a:=5;

               While a< 6 do writeln(‘A’);

                    End.

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

    s:=1;

    for i:=1 to 10 do s := s+i;

    writeln(s);

    Kết quả in lên màn hình của S là :

Câu 16: Hãy đọc đoạn chương trình sau:

While a<b do a:=a+1;

Khi a = 1, b = 7 thì kết quả cuối cùng a bằng bao nhiêu

Câu 17:       S:=0 ;

FOR i:=1 to 10 do IF i mod 2 = 0 THEN s := s + i ;   Vậy s nhận giá trị nào?

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

A. While <điều kiện> do; <câu lệnh>;

B. While <điều kiện> <câu lệnh> do;

C. While <câu lệnh> do <điều kiện>;

D. While <điều kiện> do  <câu lệnh>;

Câu 19:  Các cách nhập dữ liệu cho biến mảng sau, cách nhập nào không hợp lệ?

A.  B[1]:= 8;                                      B. readln(chieucao[i]);       

C. readln(chieucao5);                        D. read(dayso[9]);

Câu 20:  Phần mềm tìm hiểu thời gian là phần mềm:

A. Sun Times                            B. Yenka   

C. Finger Break Out        D. Geogebra 

Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else

Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.

giá trị của S khi thực hiện đoạn chương trình sau 

S:=0;i:=0;

While i<=6 do begin i:=i+1; s:=s+i ; 

A. 16 

B. 28 

C. 21 

D. không xác định 

Nhập ba số nguyên a, b, c từ bàn phím. Kiểm tra xem ba số nguyên đó có phải ba cạnh của một tam giác không?Hãy chỉ ra đó là tam giác gì?
Theo mình học là có : tam giác thường, cân, vuông và đều. 
Mình làm ntn ( Sửa giúp mình với ạ, cảm ơn nhiều):

if a=b=c then writeln('Tam giac deu') else

if a=b then writeln('Tam giac can')

if b=c then writeln('Tam giac can')

if a=c then writeln('Tam giac can')

if a*a=b*b+c*c then writeln('Tam giac vuong')

if b*b=a*a+c*c then writeln('Tam giac vuong')

if c*c=b*b+a*a then writeln('Tam giac vuong')

if a<>b<>c then writeln('Tam giac thuong');