Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата.
…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]:=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;…
Какое значение необходимо написать в заголовке внутреннего цикла вместо знака вопроса?
Результат работы программы на Паскале, фрагмент которой приведен ниже:
…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];…