Èíôîðìàòèêà

              

Ðåøåíèå çàäà÷ íà ÝÂÌ - ÷àñòü 9


Àëãîðèòì                                                                  Ïðîãðàììà

àëã «ñóììà ñòðîê ìàòðèöû»                                ' ñóììà ñòðîê ìàòðèöû

íà÷                                                                              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




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