1. a:array(1..SIZE) of integer;

2. a[i]:=IntToStr(StringGrid1.Cells[i-1,0]);

3. for i:=2 to SIZE do;

4. if a[i]:= a[min] then min:=i;

1. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

const SIZE=5;

var a:array(1..SIZE) of integer; min:integer; i:integer;

begin

for i:=1 to SIZE do

a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

min:=1;

for i:=2 to SIZE do

if a[i]< a[min] then min:=i;

end;

1. a:array[1..SIZE]of integer;

2. a[i]:=StrToFloat(StringGrid1.Cells[i-1,0]);

3. for i:=2 to 0 do;

4. if a[0]< a[min] then min:=i;

1. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

const SIZE=5;

var a:array[1..SIZE]of integer; min:integer; i:integer;

begin

for i:=1 to SIZE do

a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

min:=1;

for i:=2 to SIZE do

if a[i]:= a[min] then min:=i;

end;

1. a:array[1..5,5] of integer;

2. a[i]:=DateToInt(StringGrid1.Cells[i-1,0]);

3. for i=2 to SIZE do;

4. if a[i]< a[min] then min:=i;

1. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0);

then ShowMessage('Помилка введення даних. +#13+Заповніть поля.')

else writeln(db, edit1.text,' ',edit2.text);

end;

1. (Length(edit1.text):=0) or (Length(edit2.text):=0);

2. ShowMessage(Помилка введення даних.' +#13+'Заповніть поля.);

3. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

4. ShowMessage('Помилка введення даних. +#13+Заповніть поля.')

1. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0)

then ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

else writeln(db, edit1.text,' ',edit2.text);

end;

1. (Length(edit1.text)=0) for (Length(edit2.text)=0);

2. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

3. ShowMessage(Помилка введення даних. +#13+Заповніть поля.);

4. ShowMessage('Помилка введення даних. +#13+Заповніть поля.');

1. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0);

then ShowMessage('Помилка введення даних. +#13+'Заповніть поля.')

else writeln(db, edit1.text,' ',edit2.text);

end;

1. (Length(edit1.text)=0) or (Length(edit2.text)=0);

2. ShowMessage('Помилка введення даних. #13 Заповніть поля.')

3. ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

4. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

62. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(X,Y);LineTo(50,100); LineTo(50,50);

1. X=100; Y=50;

2. X=200; Y=100;

3. X=100; Y=100;

4. X=150; Y=50;

1. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(100,100);LineTo(X,Y); LineTo(50,50);

1. X=50; Y=100;

2. X=50; Y=200;

3. X=200; Y=50;

4. X=50; Y=50;

1. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(100,100);LineTo(50,100); LineTo(X,Y);

1. X=100; Y=50;

2. X=50; Y=50;

3. X=200; Y=100;

4. X=150; Y=100;

1. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(X,Y);LineTo(100,100);LineTo(50,100); LineTo(50,50);

1. X=100; Y=150;

2. X=200; Y=100;

3. X=50; Y=100;

4. X=100; Y=50;

1. Записати вираз на мові Паскаль :

   1. z:=exp(x)*(1+cos(2*a))/(1+sqrt(cos(2*b))+(4*(ln(cos(2*c)))));

   2. z:=exp(x)*(1+cos(2*a))/(1+sqrt(cos(2*b))+sqr(cos2*c)*sqr(cos2*c));

   3. z:=exp(x)*(1+cos(2*a))/(1+sqrt(cos(2*b))+exp(4*(ln(cos(2*c)))));

   4. z:=x*(1+cos(2*a))/(1+sqrt(cos(2*b))+exp(4*(ln(cos(2*c)))));

2. Записати вираз на мові Паскаль :

   1. z:=x*(1+sin(2*a)/cos(2*a))/(1+sqr(cos(2*b))+sqrt(sin(c)));

   2. z:=exp(x)*(1+sin(2*a)/cos(2*a))/(1+sqrt(cos(2*b))+sqrt(sin(c)));

   3. z:=exp(x)*(1+tg(2*a))/(1+sqrt(cos(2b))+sqrt(sin(c)));

   4. z:=exp(x)*(1+sin2*a/cos2*a)/(1+sqrt(cos2*b)+sqrt(sinc));

3. Записати вираз на мові Паскаль :

   1. z:=(1+cos2*a)/(1+sqrt(sin2*b)+exp(3*(ln(cosc))));

   2. z:=(1+cos(2*a))/(1+sqr(sin(2*b))+(3*(ln(cos(c)))));

   3. z:=(1+cos(2*a))/(1+sqrt(sin(2*b))+exp(3(ln(cosc)));

   4. z:=(1+cos(2*a))/(1+sqrt(sin(2*b))+exp(3*(ln(cos(c)))));

4. Записати вираз на мові Паскаль :

   1. z:=expx*(cosa)/(1+sqrt(sin2*b/cos2*b)+(sinc*sinc));

   2. z:=exp(x)*(cos(a))/(1+sqr(sin(2*b)/cos(2*b))+(sin(c*c)));

   3. z:=exp(x)*(cos(a))/(1+sqrt(sin(2*b)/cos(2*b))+(sin(c)*sin(c)));

   4. z:=e(x)*(cos(a))/(1+sqrt(sin(2b)/cos(2*b))+(sin(c)*sin(c)));

5. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum :=0;

5 for i := 1 downto 50 do

6 begin sum :=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ , sum);

8 end.

1. 2;

2. 5;

3. 7;

4. 8;

1. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum :=0;

5 for i := 1 to 50 do

6 begin sum :=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ sum);

8 end.

1. 2;

2. 5;

3. 7;

4. 8;

1. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum :=0;

5 for i := 1 to 50 do

6 begin sum :=sum+j; end;

7 writeln (‘Сума чисел рівна: ‘ , sum);

8 end.

1. 4;

2. 5;

3. 7;

4. 6;

1. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum =0;

5 for i := 1 to 50 do

6 begin sum :=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ , sum);

8 end.

1. 4;

2. 5;

3. 7;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 3;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=sum+i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: , sum');

7 end.

1. 3;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: real;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=sum+i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=sum+i;

5 Until i := 50;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i sum: integer;

3 Begin sum :=0; i :=0;

4 While i <50 do

5 Begin i := i +1; sum :=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Do sum :=0; i :=0;

4 While i <50 do

5 Begin i := i +1; sum :=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 3;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 While i >50 do

5 Begin i := i +1; sum :=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

1. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 While i <50 do

5 Begin i := i +1; sum :=sum*i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

1. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..i] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

1. 3;

2. 4;

3. 5;

4. 6;

1. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..100] of integer;

4 begin m:=0;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

1. 3;

2. 4;

3. 5;

4. 6;

1. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..100] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA(i)); end; end;

1. 3;

2. 4;

3. 6;

4. 7;

1. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j:real;

3 MA:array[1..100] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

1. 2;

2. 3;

3. 5;

4. 6;

1. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=5; for i:=1 to 5 do k:=k*2;

   1. 200

   2. 160

   3. 80

   4. 20

2. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=1; m:= -5; for i:=1 downto m do k:=k+1:

   1. 7

   2. 8

   3. 6

   4. 9

3. Чому дорівнює значення змінної k після виконання фрагменту програми:

k:=10; for i:=1 to 5 do k:=k*2;

1. 200

2. 160

3. 80

4. 320

1. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=2; m:= -5; for i:=1 downto m do k:=k+1:

   1. 7

   2. 8

   3. 6

   4. 9