Студентам_программирование / Задачи к экзамену

Укажите, после выполнения каких операторов значение переменной 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;

Ответ: 1, 3

После выполнения фрагмента программы x := -1; y := 1; z := 0; If x < 0 Then

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

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

Ответ: 3

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

a := 5; b := 12; c := b – a; If (a + b) = c Then

k := 1 Else

If (a + b) <= c Then k := 0

Else

If (c + b) <= a Then k := 3 Else k := 2;

значение переменной k стало равно _____.

Ответ: 2

Найти значение переменной d после выполнения фрагмента программы k := 5;

case k mod 12 of

7:d := k;

5: d := 2*k-1; 9..11: d := k mod 12 ; else d := k div 12 ; end;

Ответ: 2

Найти значение переменной d после выполнения фрагмента программы k := 5;

case k div 12 = 0 of

После выполнения фрагмента программы k := 0;

For i := 1 To 5 do

For j := 1 To i do k := k + 1;

значение переменной k стало равно _____

Ответ: 15

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

P := 7;

for i := 1 to 2 do

for j := 3 - i downto 1 do P := P + j + i;

значение переменной P стало равно _____.

Ответ: 15

В результате работы алгоритма

Edit1.text:='';

k:=1;

Edit1.text:=Edit1.text+inttostr(k+1)+' ';

For k := 2 To 6 Do Begin

Edit1.text:=Edit1.text+inttostr(k)+' ';

If k < 3 Then begin

Edit1.text:=Edit1.text+inttostr(k)+' '; Edit1.text:=Edit1.text+inttostr(k+1)+' ' end

else

Edit1.text:=Edit1.text+inttostr(k-1)+' ';

End;

в текстовое окно Edit будет выведено ____ чисел.

Ответ: 12

В результате работы алгоритма

Edit1.text:='';

For k := 5 DownTo 1 Do Begin

If k = 4 Then

Edit1.text:=Edit1.text+inttostr(k)+' ';

If k <= 2 Then Begin

Edit1.text:=Edit1.text+inttostr(k)+' '; Edit1.text:=Edit1.text+inttostr(k+2)+' '

end

End;

в текстовое окно Edit будет выведено ____ чисел.

Ответ: 5

Дан фрагмент программы c := 3;

For i:= 5 DownTo 2 Do Begin

c := 2*c;

If i >= c Then Break;

End;

Сколько раз выполнится тело цикла?

Ответ: 5

В алгоритме обработки массива A: array [1..10] of integer;

S := 0;

for j = 1 to 10 do

If (j Mod 2 = 0) and (A[ j ] < 0) Then S := S + A[ j ];

определяется

Ответ: Сумма отрицательных элементов массива c четными индексами

В алгоритме обработки массива A: array [1..10] of integer;

S := 0;

For J := 1 To 10 do

If A[J] >= 0 Then S := S + 1; S := 10 - S;

определяется

Ответ: Количество отрицательных чисел

В алгоритме обработки массива A: array [1..10] of integer;

K := 1; S := 0;

For J := 1 To 10 do

If A[K] > A[J] Then K := J;

For J := 1 To 10 do

if A[K] = A[J] then S := S + 1;

определяется

Ответ: Количество максимальных элементов массива