Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ обработка массивов

Автор: иван 23 16.12.2009, 14:26

Для заданной квадратной матрицы С вычислить сумму и число элементов матрицы, находящихся под главной диагональю. Исходную матрицу вывести в общепринятом виде. Результаты вывести в произвольной форме. проблема в том, что прога не запускается

const
n=4;
var
a:array[1..n,1..n]of integer;
i,j,sum:integer;
begin
{заполняем и выыводим массив}
writeln('Исходная матрица V:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(8)-4;
write(a[i,j]:2,' ')
end;
writeln
end;
sum:=0;
for i:=2 to n do
for j:=1 to i-1 do
sum:=sum+a[i,j];
writeln('Количество: ',(n-1)*n/2);
writeln('Сумма:',sum)
end.

Автор: граф Монте-Кристо 16.12.2009, 15:35

Не помешало бы добавить в самое начало program <имя программы> и uses crt.

Автор: Julia 17.12.2009, 4:52

Зачем?

Что пишет при запуске?

Автор: иван 23 17.12.2009, 9:47

вот именно, что ничего не пишет, просто запускается на мгновение и сразу выходит, разве может быть дело в том, что я uses crt не написал?

Автор: Julia 17.12.2009, 9:56

Нажмите Alt - F5, чтобы просмотреть результаты работы программы. Неужели вам этого не показывали?
Или добавьте в конце программы процедуру readln без параметров.

Автор: иван 23 17.12.2009, 10:11

спасибо Юлия, похоже запустилась)

Автор: граф Монте-Кристо 17.12.2009, 15:05

Это ещё полдела. Надо теперь её отладить, чтобы она делала именно то, что Вы от неё ожидаете smile.gif
Заголовок - хотя бы для развития культуры написания программ. Кто-то из лекторов говорил, что любой человек, пишущий программы, довольно быстро их забывает, и, если вдруг ему понадобится снова в ней разобраться, на это уходит немало времени. Заголовок,отступы,комментарии - всё это мелочи, но с ними код становится на порядок читабельнее и понятнее.

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)