|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
13.12.2012, 12:25 | #1 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, подпрограммы
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, 13:08 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Отладил:
Код:
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. |
13.12.2012, 14:00 | #3 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое Владимир)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|