Тестирование Pascal Тема 9: Массивы (матрицы)

В каждой задаче выберите правильный ответ.
Затем нажмите кнопку "Оценить ответ"

Для ответа сервер не нужен - можно отключиться от Интернета


Варианты ответа

16
10
4
13
17
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

Задача 1. Условия:

Что будет выведено на экран в результате
выполнения программы:
const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,sum:integer;
begin sum:= Ara[N,N-2]; for i:=1 to N do 
inc(sum,Ara[i,i]); write(sum); readln;
end.

Варианты ответа

1,2,3,4,
1,2,4,4,
1,2,3,3
1,2,4,3
1,2,4,3,
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку при компиляции

Задача 2. Условия:

Что будет выведено на экран в результате
выполнения программы:
const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,j:integer;
begin for i:=2 to N-1 do
  if Ara[N,i] >= 2 then
    Ara[N-3,i+1]:= Ara[N,i-1];
    for j:=1 to N do write(Ara[1,j],',');
readln;
end.

Варианты ответа

8, 7
8, 6
7, 6
8,6
7, 7
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

Задача 3. Условия:

Что будет выведено на экран в результате
выполнения программы:
const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,j,m,k:integer;
begin m:= 0; K:=M-2; for i:=1 to N do
for j:=1 to N do if Ara[i,j]>m then
  begin m:= Ara[i,j]; inc(k); end;
  write(m,', ',k); readln;
end.

Варианты ответа

8, 7, 0, 0,
8, 7, 6, 0,
8, 7, 6, 5,
5, 6, 7, 8,
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
5, 6, 0, 0,

Задача 4. Условия:

Что будет выведено на экран в результате
выполнения программы:
const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,j:integer; BB:TAra;
begin BB:=Ara; for i:=3 to N do
for j:=N downto 1 do BB[j,i]:= 0;
for j:=1 to N do write(BB[3,j],', '); 
readln;
end.

Варианты ответа

0abcdefghi
0ghidefabc
0ghiabcdef
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
0defghiabc
0abcghidef

Задача 5. Условия:

Что будет выведено на экран в результате
выполнения программы:
const N=3;
type TSim=array [0..N-1,1..N] of char;
const Sa:TSim = (('a','b','c'),
('d','e','f'),('g','h','i'));
var i,j:integer; BB:TSim; ss: string;
begin ss:='0'; for i:=N downto 1 do
for j:=1 to N do ss:=ss+Sa[i mod 3,j];
write(ss); readln;
end.

Если оценка не вычисляется, вероятно в Вашем браузере отключён JavaScript
Rambler's Top100
Hosted by uCoz