База ответов ИНТУИТ

Решение олимпиадных задач по информатике

<<- Назад к вопросам

Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата.

…for i:=1 to n dobegin a[i,1]:=i; a[1,i]:=i;end;for i:=2 to n do for j:=2 to n do a[i,j]:=a[i-1,j]+a[i,j-1];…

Найдите в нем ошибку:

(Отметьте один правильный вариант ответа.)

Варианты ответа
в программе нет ошибок
в одном теле цикла нельзя обращаться к элементам первой строки и первого столбца одновременно
заполнение массива должно идти с конца (элемента последней строки последнего столбца)
первая строка и первый столбец должны быть заполнены единицами, а не числами натурального ряда(Верный ответ)
Похожие вопросы

Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата.

…for i:=1 to n dobegin a[i,1]:=1; a[1,i]:=1;end;for i:=1 to n do for j:=1 to n do a[i,j]:=a[i-1,j]+a[i,j-1];…

Найдите в нем ошибку:

Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата.

…for i:=1 to n do for j:=1 to n do begin a[i,j]:=1; a[i,j]:=1; end;for i:=2 to n do for j:=2 to n do a[i,j]:=a[i-1,j]+a[i,j-1];…

Что в нем стоит изменить?

Типовой алгоритм поиска максимального и минимльного элемента двумерного массива на Паскале, фрагмент которого приведен ниже, содержит ошибку. Найдите ее:

…m1:=x[1,1]; m2:=x[1,1];for i:=1 to n dofor j:=1 to m doif x[i,j]<m1 then m1:=x[i,j]else m2:=x[i,j];…

Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. Для вывода на экран "Треугольника Паскаля" в программу дописали фрагмент:

…for i:=1 to n do begin for j:=1 to ? do write (a[i,j]); writeln; end;…

Какое значение необходимо написать в заголовке внутреннего цикла вместо знака вопроса?

Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. В какой части этого массива находится "Треугольник Паскаля"?

Результат работы программы на Паскале, фрагмент которой приведен ниже:

…a:=100; n:=5; i:=0;while (a<>0) dobegini:=i+1;write (a mod n);a:=a div n;end; …

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено:

…d:=0;for j:=1 to n dobeginm[j]:=x[1,j];for i:=1 to n dobeginif x[i,j]>m[j] then m[j]:=x[i,j];end;d:=d+m[j]; end…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено:

…s:=0;for i:=1 to n dofor j:=1 to n doif (i<=n-j+1) then s:=s+x[i,j];…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдет:

…max:=x[1,1]; min:=x[1,1];for i:=1 to n dofor j:=1 to m doif x[i,j]>max then max:=x[i,j]else min:=x[i,j];…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено:

…d:=0;for j:=1 to n dobeginm[j]:=x[1,j];for i:=1 to n dobeginif x[i,j]<m[j] then m[j]:=x[i,j];end;d:=d+m[j];	end…