Èíôîðìàòèêà


              

ñóììà ñòðîê


Àëãîðèòì                                                                  Ïðîãðàììà
àëã « ñóììà ñòðîê ìàòðèöû»                                ' ñóììà ñòðîê ìàòðèöû
íà÷                                                                              cls
÷òåíèå (ï, ò) .                                                        read n, m
åñëè ï > 0 è ò > 0 òî                                             if N > 0 and Ì > 0 then
ìàññèâ À[1:ï,1:ò]                                                   dim A (N,M)
ìàññèâ S[1:n]                                                           dim S(n)
ââîä-âûâîä_ìàòðèöû                                             gosub vvod 'ââîä-ìàòðèöû
ñóììèðîâàíèå_ñòðîê                                             gosub sum 'ñóììèðîâàíèå
îò k = 1 äî ï öèêë                                                   for k= 1 to n
âûâ (s[k])                                                                   ? s[k]
êöèêë                                                                         next k
âñå                                                                             end if
êîí                                                                              end
àëã «ñóììèðîâàíèå ñòðîê»                                                sum: 'ñóììèðîâàíèå ñòðîê
íà÷                                                                              ' íà÷
îò k = 1 äî N öèêë                                                   for k = 1 to n
s[k] := 0                                                                      s[k] = 0
îò l = 1 äî Ì öèêë                                                   for I = 1 to m
s[k] := s[k] + A[k,l]                                                    s[k] = s[k] + a[k,l]
êöèêë                                                                         next I
êöèêë                                                                         next k
êîí                                                                              return

Ñîäåðæàíèå  Íàçàä  Âïåðåä