Сформировать матрицу по правилу - Pascal ABC (13383)

Узнай цену своей работы

Формулировка задачи:

подскажите пожалуйста, почему у меня не получается доделать ее

Решение задачи: «Сформировать матрицу по правилу»

textual
Листинг программы
var a:array [1..50, 1..50] of byte;
    n,i,j: byte;
begin
write('ââåäèòå n: ');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=i
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end
end.

Объяснение кода листинга программы

  1. Создается переменная a типа array [1..50, 1..50] of byte. Это означает, что a представляет собой матрицу размером 50x50, где каждый элемент является байтом.
  2. Затем определяются три переменные: n, i и j. Их типы также являются байтами.
  3. Выводится сообщение ââåäèòå n:, где n - это значение переменной n.
  4. Далее идет цикл for, который выполняется n раз.
  5. Внутри цикла for также идет другой цикл for, который также выполняется n раз.
  6. Внутренний цикл проверяет, если значение переменной j меньше или равно n-i+1. Если это условие выполняется, то значение элемента матрицы a[i,j] устанавливается равным i. Если условие не выполняется, то значение элемента устанавливается равным нулю.
  7. После завершения внутреннего цикла выводится значение элемента матрицы a[i,j] с помощью оператора write. Значение выводится в формате 3, что означает, что оно будет записано в шестнадцатеричной системе с тремя знаками после запятой.
  8. После завершения внешнего цикла выводится символ новой строки с помощью оператора writeln.
  9. Код завершается.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы