Смекни!
smekni.com

Тест по информатике (стр. 2 из 2)

1) 1_st

2) k 1

3) Summa

4) Single

5) int_4

(3,5)

B Укажите числовые типы данных

1) Integer

2) LongInt

3) Boolean

4) String

5) Double

(1,2,5)

B Укажите, после выполнения каких операторов значение переменной k станет равно 1, если a = 8 и b = 6:

1) If (a > b) And (b > 7) Then k := 0 Else k := 1;

2) If (a < b) Or (b > 7) Then k := 1 Else k := 0;

3) If (a > b) Or (b > 7) Then k := 1 Else k := 0;

4) If Not (a = 8) Then k := 1 Else k := 0;

5) If (a < b) Or Not (b > 7) Then k := 1 Else k := 0;

(1,3,5)

B Укажите операторы присваивания, в которых не нарушен синтаксис

1) x := y + 3 +;

2) x := x + 2 +1;

3) x / 2 := y;

4) x := (y + 2) / y + 1);

5) x := y x + 1;

(2)

B Укажите фрагменты программ, в которых не нарушен синтаксис

1) var A : Integer;
begin

while (A > 0) do x := x + 1;

end;

2) var A : Boolean;
begin

while A do x := x + 1;

end;

3) var A : Boolean;
begin

while A

x := x + 1;

end;

4) var A : Integer;
begin

repeat A > 0

x := x + 1;

until;

end;

5) var A : Integer;
begin

repeat do

x := x + 1;

until A > 0;

end;

(1, 2)

СДанфрагментпрограммы

Y := A[1];

For k := 1 to 10 do

If A[k] < Y Then Y := A[k];

Write(Y);

в котором обрабатывается массив VarA:array[1..10] OfInteger: (2, 12, 0, -3, 10, -3, -5, 7, 21, 0).

После окончания работы значение переменной Y равно ___.

(-5)

С После выполнения фрагмента программы

x := -1; y := 1;z:= 0;

If x < 0 Then

begin

If y > 0 Then z := y + 1 Else z := y + 2;

If z <> 0 Then

z := z + 1;

end;

Write(z);

значение переменной z равно _____.

(3)

С После выполнения фрагмента программы

a:= 13305;

b := 0;

While a <> 0 Do

begin

b := b * 10 + a Mod 10;

a := a div 10;

end;

Write(b);

значение переменной b равно ___.

(50331)

С Дан фрагмент программы

Y := 0;

For N := 1 to 4 do

begin

X := A[N, 1];

For M := 1 to 4 do

If A[N, M] > X Then X := A[N, M];

Y := Y + X;

End;

Write(Y);

в котором обрабатывается массив A: array[1..4, 1..4] OfInteger:

После окончания работы значение переменной Y равно ___.

(21)

С После выполнения фрагмента программы

Fork:= 1 to 5 do

begin

Write(k);

If k >= 4 Then begin Write(k); Write(k + 1); end;

End;

Write(k);

на форму будет выведено ____ чисел.

(10)

(37 заданий 80 минут)