Form1: TForm1;. a,i,j:integer; k:integer= 3;. b:array [1..n] of integer= (0,1,-2,0,2,-1);. implementation. function prog(x,y:integer):integer;. begin if y<a then x:=x+a else x:=x-y; prog:=x; end;. procedure TForm1.Button1Click(Sender: TObject);. FOR i:

⇐ ПредыдущаяСтр 2 из 8Следующая ⇒

var

Form1: TForm1;

a, i, j: integer; k: integer= 3;

b: array [1.. n] of integer= (0, 1, -2, 0, 2, -1);

implementation

{$R *. dfm}

function prog(x, y: integer): integer;

begin if y< a then x: =x+a else x: =x-y; prog: =x; end;

procedure TForm1. Button1Click(Sender: TObject);

begin

a: = 1;

FOR i: =2 TO n-1 DO b[i]: =prog(a, i);

Label1. caption: ='';

FOR i: =1 TO 4 DO

k: =k+b[i];

Label1. caption: =Label1. caption+#13+inttostr(k);

end;

-3

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

const n=4;

Type mas=array [1.. n, 1.. n] of integer;

var

Form1: TForm1;

i, j, p: integer;

a: mas= ((2, 1, -4, 3), (0, 2, -1, 5), (3, 2, -5, 1), (-1, -2, 1, 5));

implementation

{$R *. dfm}

procedure prog(var x: mas; k, s, m: integer);

var j, t: integer;

begin

for j: =1 to k do

begin

t: =x[s, j]; x[s, j]: =x[m, j]; x[m, j]: =t;

end;

procedure TForm1. Button1Click(Sender: TObject);

begin

prog(a, n, 2, 4);

p: =0;

FOR i: =1 TO n-1 DO

p: =p+a[n-2, i];

Label1. caption: =inttostr(p);

end;

-2

11. Выполните действия, результат запишите в десятичной системе счисления

C1₁₆ - 27₈

12. Укажите значение, которое будет получено в результате выполнения алгоритма.

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

procedure TForm1. Button1Click(Sender: TObject);

Const n=5;

z=7. 549;

w=-2. 336;

t=2. 856e-02;

d=-3. 856e+01;

var

s, x, y: real;

a, b: integer;

begin

a: =2;

y: =(w+n)/a+t;

label1. Caption: ='Ответ: ';

label1. Caption: ='='+format('%6. 2f', [y-a]);

end;

= -0, 64

14. Какое значение будет выведено в результате выполнения следующей блок-схемы?

⇐ Предыдущая 123 4 5 6 7 8 Следующая ⇒