Паскаль, подпрограммы

hamchuk250894 · 13.12.2012, 12:25

В коде есть ошибка, помогите пожалуйста найти её и исправить. Задание такое: 1.Создать функцию, определяющую в квадратном целочисленном массиве matrixnn сумму элементов, находящихся выше и ниже главной и побочной диагоналей (“песочные часы”). Элементы диагоналей в сумму не включать.
3. Код программы:

Program Variant_8;
uses crt;
type mas=array[1..20, 1..20] of integer;

var n, i, j : integer;
a:mas;

function sum(a:mas): integer;
var s: integer;
begin
s := 0;
for i := 1 to n do
for j := 1 to n do
if (i <> j) and (j <> n - i + 1) then
s := s + a[i, j];
sum := s;
end;

begin
write('n=');
readln(n);
writeln(‘Enter ',n*n,' of elements of a matrix:');
for i := 1 to n do
for j := 1 to n do
begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
writeLn('Initial matrix’);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeLn;
end;

writeln(' The sum ', sum(a));
end.

Vladimir_S · 13.12.2012, 13:08

Цитата:

Сообщение от hamchuk250894

В коде есть ошибка, помогите пожалуйста найти её и исправить.

Отладил:

Код:

type
 mas=array[1..20, 1..20] of integer;

var
 n,i,j:integer;
 a:mas;

function sum(a:mas):integer;
var s,i,j,i1: integer;
begin
 s:=0;
 for i:=1 to (n div 2) do
  for j:=i+1 to n-i do
   s:=s+a[i,j];
 if (n mod 2)=1 then
  i1:=(n div 2)+2
 else
  i1:=(n div 2)+1;
 for i:=i1 to n do
  for j:=n-i+2 to i-1 do
   s:=s+a[i,j];
 sum:=s;
end;

Begin
 write('n=');
 readln(n);
 for i:=1 to n do
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 writeln;
 writeln('Initial matrix:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  end;
 writeln;
 writeln(' The sum= ', sum(a));
 readln;
End.

hamchuk250894 · 13.12.2012, 14:00

Спасибо большое Владимир)

13.12.2012, 12:25	#1 (permalink)
hamchuk250894 Member Регистрация: 09.12.2012 Сообщений: 45 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль, подпрограммы В коде есть ошибка, помогите пожалуйста найти её и исправить. Задание такое: 1.Создать функцию, определяющую в квадратном целочисленном массиве matrixnn сумму элементов, находящихся выше и ниже главной и побочной диагоналей (“песочные часы”). Элементы диагоналей в сумму не включать. 3. Код программы: Program Variant_8; uses crt; type mas=array[1..20, 1..20] of integer; var n, i, j : integer; a:mas; function sum(a:mas): integer; var s: integer; begin s := 0; for i := 1 to n do for j := 1 to n do if (i <> j) and (j <> n - i + 1) then s := s + a[i, j]; sum := s; end; begin write('n='); readln(n); writeln(‘Enter ',n*n,' of elements of a matrix:'); for i := 1 to n do for j := 1 to n do begin write('a[',i,',',j,']='); read(a[i,j]); end; writeLn('Initial matrix’); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeLn; end; writeln(' The sum ', sum(a)); end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

13.12.2012, 12:25
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Наверняка вы сможете найти решение своей проблемы в похожих обсуждениях Подпрограммы Turbo Pascal Подпрограммы

13.12.2012, 14:00	#3 (permalink)
hamchuk250894 Member Регистрация: 09.12.2012 Сообщений: 45 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое Владимир)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070