Программа эквивалентная программе на Basic - PascalABC.NET

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

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

На какой оператор можно заменить DATA?

Решение задачи: «Программа эквивалентная программе на Basic»

textual
Листинг программы
var
  a:array [0..2,0..2] of integer:=((1,2,3),(4,5,6),(7,8,9));
  i,j:integer;
  tr:real;
begin
  tr:=0;
  for i:=0 to 2 do tr:=tr+a[i,i];
  writeln(tr);
end.

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

  1. Объявляется двумерный массив a размером 3x3, инициализируется значениями 1,2,3; 4,5,6; 7,8,9 соответственно.
  2. В переменной i инициализируется значение 0.
  3. В переменной j инициализируется значение 0.
  4. В переменной tr инициализируется значение 0.
  5. Цикл for запускается три раза (0,1,2) с переменной i, каждый раз значение tr увеличивается на сумму элементов массива a по диагонали (1+2+3, 4+5+6, 7+8+9).
  6. Значение переменной tr выводится на экран.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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