var i, j: Integer; S: String;
Визначте, який рядок буде сформований у результаті виконання фрагмента програми:
  S := ''; For і:=1 To 2 do begin
       j := 0.1;
       While j<1 do begin j := j+0.3; S := S +IntToStr(j) +' ' end;
Позначте одну правильну відповідь.

(Кількість балів 1.00)

• А

  0.1 0.7 1.0 0.4 0.7 1.0; 

• Б

  0.1 0.4 0.7 1.0 0.1 0.4 0.7 1.0; 

• В

  0.1 0.4 0.7 1.0;

• Г

  0.4 0.7 1.0 0.4 0.7 1.0; 

var i, j: Integer; S: String;
Визначте, який рядок буде сформований у результаті виконання фрагмента програми:
    For i := 1 To 2 do begin
    S := S + IntToStr (i);
    For j := 1 To 3 do S:=S + 'A';
end;
Позначте одну правильну відповідь.

(Кількість балів 1.00)

• А

  1A2A3A; 

• Б

  1AA2AA3AA; 

• В

  1AAA2AAA; 

• Г

  1A1A1A2A2A2A; 

Чому дорівнює Х після виконання циклу:
x := 1; While x<5 do x := x*2;

(Кількість балів 1.00)

• А

  8

• Б

  16

• В

  4

• Г

  2

Визначте, які оператори реалізують обчислення f = 10!.
Позначте всі правильні відповіді.

(Кількість балів 1.50)

• А

  f:= 1; For i := 1 to 10 do f := f+і;

• Б

  f:= 1; i := 1; While i<n Then begin i := i+1; f := f *і end;

• В

  f:= 1; For i := 2 to 10 do f := f*i;

• Г

  f:= 1; For i := 1 to 10 do f := f * A;

В яких операторах допущені помилки?
Позначте всі правильні відповіді.

(Кількість балів 1.50)

• А

  K := 1; C := 0; For і := 1 to 64 do begin K := K+і; C:=2*і; end; 

• Б

  K := 0; For і := 9 to 1 do K := K*2; 

• В

  Y := 0; For X := 0.1 to 0.9 do Y := Y+Sіn(X); 

• Г

  K := 81; Y := 1; For і := 1 to Sqrt(K) do Y := Y*2; 

Встановіть відповідність між списками компонента ListBox (1–4) і операторами, виконання яких привело до такого результату (А–Г).

(Кількість балів 2.00)

• • 1
  • 2
  • 3
  • 4
• • А

    For N := 2 to 9 do begin
            For K := 1 to 9 do begin
              ListBox1.Items.Add(IntToStr(N) + ' x ' + IntToStr(K)+ ' = '+ IntToStr(N*K));
            end;
            ListBox1.Items.Add('---------------');
    end; 

  • Б

    K := 0;
         For A := 1 to 9 do
               For B := 0 to 9 do
                       For C := 0 to 9 do
                            If A + B + C = A * B * C Then
                            begin
            ListBox1.Items.Add(IntToStr(100*A+10*B+ C));
                                    K := K + 1; end;
            ListBox1.Items.Add('K='+IntToStr (K)); 

  • В

    ListBox1.Items.Add('S='+IntToStr(S)); 

  • Г

    For A := 1 To 5 do begin
            S := '';
            For B := 1 To 5 do begin
               S := S+ IntToStr (B);
               ListBox1.Items.Add(S);
            end;
    end; 

	А	Б	В	Г
1
2
3
4

Встановіть порядок розташування операторів у програмі для визначення кількості парних серед введених з клавіатури восьми довільних чисел.

(Кількість балів 2.00)

• А

  end; 

• Б

  If a mod 2=0 Then k := k+1;  

• В

  For i := 1 to 8 do begin 

• Г

  Edit1.Text := IntToStr(k); 

• Д

  a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0')); 

• Е

  k := 0; 

	А	Б	В	Г	Д	Е
1
2
3
4
5
6

Чому дорівнює S після виконання фрагмента програми:
var і: Integer; A, S: Real;
begin S := 0; A := 0;
                   For і := 1 to 5 do begin
                                                         A := A+0.2;
                                                         S := S+A end; 

(Кількість балів 2.00)