Перевірка знань 

Вставте пропущену логічну операцію так , щоб значення змінної Z після виконання заданого фрагмента програми стало 3:

(надір символів здійснювати шрифтом малого розміру ).

a:=15; b:=7; с:=4;

if (a>b) not(and) (b<c) then z:=a+c   else z:=b-c;


Що використовують у формі для керування програмою ?

Відмітьте правильний опис масиву:


Дано опис функції:

Function S(a,b,c : integer):integer;
begin
   s:=a*b+b*c+a*c;
end;

Знайдіть значення змінної z після виконання команди

z:=7-s(2,2,3)

Відповідь:
"-58"
Правильна відповідь:
"-9"

Вкажіть значення змінної х після виконання алгоритму:

1) Y := 7
2) X := Y+2
3) X := X*Y
4) Y := X
5) X := Y

 

Відповідь:
"63"
Правильна відповідь:
"63"

Коли операція OR повертає значення True?

Відмітьте правильні заголовки процедур і функцій:

Що ініціює подія у Delphi?


Дано текст процедури та функції:

Procedure First(c:integer; Var a,b :word);
begin
 a:=c div a;
 b:=c div b;
end;

Function Second( m,k : integer):integer;
begin
 Second:=m*(k mod 10)+k(m mod 10);
end;

Відмітьте правильні команди виклику процедури або функції:

 


Яке ключове слово використовується для опису масиву?     

Визначте значення змінної  y після виконання наступних команд программи:

Var
  y  :real;
  i   :integer:
...........................
  y:=1;
  i :=1;
while i>1 do
  Begin
    y:=y+1/i;
    i:=i-1;
  end;

Відповідь:
"2"
Правильна відповідь:
"1"

Визначте значення змінної  y після виконання наступних команд программи:

Var
  s :real;
  i  :integer:
...........................
   y:=1;
   i:=2;
 repeat
   i:=2*i;
   y:=y+i
 until i>5;

Відповідь:
"5"
Правильна відповідь:
"13"

Який тип має властивість Text об'єкта TEdit?


Яким будет значение A[3] после виконання заданного фрагмента програми?

 

 

A[1]:=3;  A[2]:=5;  A[3]:=2;

For i:=-1 to 1 do A[3]:=A[i+2]+A[i*i+2];

 

 

 

Відповідь:
"6"
Правильна відповідь:
"20"

Скільки елементів може бути вказано ліворуч від символу ":=" в операторі присвоєння?


Коли операція AND повертає значення True?

Обробник події це -

 


1

Вкажіть, які присвоєння можливі:


Скільки параметрів може мати процедура або функція:

В якому з випадків після виконання фрагменту програми значення змінної b дорівнюватиме  19?
1).

    a:=2;  b:=19.;
     if a+b=20;
        then b:=b-a*a; b:=b*a ;  b:=b-1;  b:=b-5*a;
2). 

           a:=2;  b:=19.;
     if a+b=20;
        then
            begin
               b:=b-a*a; 
               b:=b*a ;
           end;
           b:=b-1;  
           b:=b-5*a;
   

3). 

           a:=2;  b:=19.;
     if a+b=20;
        then
            begin
               b:=b-a*a; 
               b:=b*a ;
               b:=b-1;  
           end;
     
      b:=b-5*a;

4). 

           a:=2;  b:=19.;
     if a+b=20;
        then
            begin
               b:=b-a*a; 
               b:=b*a ;
               b:=b-1;  
         
      b:=b-5*a;
           end;


Вставте пропущені числа так , щоб значення змінної z після виконання заданого фрагмента стало рівним 3:

a:=9; b:=<Нет ответа>(4) -a;

if  a+b=20 then z:=b-7 else z:=b+8;


Вкажіть властивості алгоритму:


1

Яким буде значення S післе виконання заданого фрагмента програми?

A[1]:=3; A[2]:=4;  A[3]:=2;  i:=2;

If A[i+1]>A[i]+1 
           
then S:=A[A[1]]  
            else  S:=A[A[3]];

Відповідь:
"8"
Правильна відповідь:
"4"

Яким будет значение A[1] после виконання заданного фрагмента програми?

 

 

A[1]:=5; A[2]:=4;  A[3]:=6;

For i:=3 downto 2 do A[1]:=i-A[1];

Відповідь:
"4"
Правильна відповідь:
"4"

5. Вкажіть значення висоти кнопки (Button1) після виконання процедури.

Form1.Color := clGreen;
Form1.Height:=100;
Form1.Button1.Height := 300;
Form1.Height := Form1.Height*2;
Button1.Caption := 'Збільшити';
Form1.Button1.Height := Form1.Button1.Height+20;
Form1.Button1.Width := 200;

Відповідь:
"500"
Правильна відповідь:
"620"

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

Var
  y :real;
  i  :integer:
...........................
 y:=0;
For i:=4 to 6 do y:=y+i;
  y:=y/10;

 

Відповідь:
"[0,4.."
Правильна відповідь:
"1,5"

В системі: гості (0), користувачі