Демонстрационный вариант. String. procedure TForm1.Button1Click(Sender: TObject);. var b:boolean;. c1,c2:integer;. Const k=8; a=81;. c1:=a div k+a mod k;. c2:=k+a mod k;. // b:=b or (sqrt(a)<k);. b:=b and not(sqrt(a)<k);. if b then label1.Caption:=i

Стр 1 из 8Следующая ⇒

Демонстрационный вариант

1. Какому типу переменной должен соответствовать идентификатор X, если в программе есть оператор Х: =’a’ + ‘b’;

String

2. Что будет выведено в Label1 при выполнении следующего обработчика события:

procedure TForm1. Button1Click(Sender: TObject);

var b: boolean;

c1, c2: integer;

Const k=8; a=81;

begin

c1: =a div k+a mod k;

c2: =k+a mod k;

b: =c1> k;

// b: =b or (sqrt(a)< k);

b: =b and not(sqrt(a)< k);

if b then label1. Caption: =inttostr(c1+1)

else label1. Caption: =inttostr(c2+a);

end;

3. Запишите значение ячейки A4 в формате числовой, число десятичных знаков 3.

0, 077

4. Что будет выведено в Label1 при выполнении следующего фрагмента программы?

P: =3; X: =4;

FOR j: =2 TO 4 DO

BEGIN

FOR i: =1 TO 2 DO

P: =P+X;

X: =X+j;

END;

Label1. caption: =inttostr(X+P);

5. Чему равно значение q после выполнения фрагмента программы?

var q, t: integer;

w2: boolean;

begin

q: =81; t: =7;

repeat

q: =round(sqrt(q)+t);

t: =t-2;

if q< > t then w2: =t=3 else w2: =q< t;

until w2;

end;

6. Формула из ячейки C1 скопирована в ячейку C3. Чему равно ее значение?

7. _{Переведите данное десятичное число в двоичную систему счисления 17, 125}

10001, 001

8. Что будет напечатано в результате выполнения фрагмента программы?

Const n=6;

Var i, k: integer;

A: array[1.. n] of integer;

t: TextFile;

begin

assignfile(t, 'res. txt');

rewrite(t);

For i: =1 to n do

If i< =3 then A[i]: =i*2-1

else A[i]: =2*(i-3);

k: =A[A[5]-A[2]];

write(t, n-k);

closefile(t);

End;

9. Представлен фрагмент модуля Unit1. Какое значение будет выведено в результате возникновения события OnClick объекта Button1?

const n= 6;

12 3 4 5 6 7 8 Следующая ⇒