Нахождение суммы чисел, предшествующих последнему отрицательному, в строке матрицы

@Sofiya666 · Регистрация: 05.06.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Дана целочисленная квадратная матрица порядка N. Получить b1, …., bn, где bi (это сумма элементов) предшествующих последнему отрицательному элементу i-ой строки (если все элементы строки неотрицательны, то принять bi=100)
Написала программу,но выполняются не те действия,что нужно:считает сумму всей строки,если в ней находит отрицательное число.
Помогите найти ошибку,буду очень благодарна за помощь.

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
  Program laba_5
        Integer N, i, j, index
           Real A(100,100), B(100)
                 Print*, 'Vvedite razmernost kvadratnoi matritsi'
        Read*,N
       Print *
      Print*, 'Vvedite kvadratnuy matritsu'
        Do i=1,N
    Read *,(A(i,j), j=1, N)
      End do
      Print*
      Do i=1,N
    Print *,(A(i,j), j=1, N)
      End do
      Print *
      Do i = 1, n
       b(i) = 0
       index = 0
    Do j =N,1,-1
        if (a(i,j) .lt. 0.) then
        index = j
      End if
    End do
      If (index .ne. 1) then
      If (index .ne. 0) then
        Do j = N,1,-1
            b(i) = b(i) + a(i,j)
      End do
      else
      b(i) = 100.
      End if
      else
      End if
      End do
      Print *, 'Summa chisel, predshestvuyushaya poslednemu otric:'
      Print *, (b(i), i = 1, n)
      Pause
      End

@Catstail · 05.06.2017, 18:47

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
        Program laba_5
        Integer N, i, j, index
        Real A(100,100), B(100)
        Print*, 'Vvedite razmernost kvadratnoi matritsi'
        Read*,N
        Print *
        Print*, 'Vvedite kvadratnuy matritsu'
        Do i=1,N
            Read *,(A(i,j), j=1, N)
        End do
        Print*
        Do i=1,N
            Print *,(A(i,j), j=1, N)
        End do
        Print *
        Do i = 1, n
            b(i) = 0
            Do j=N,1,-1
                if (a(i,j) .lt. 0) GoTo 100
                b(i)=b(i)+a(i,j)
            End Do  
  100     Continue
            if (b(i) .EQ. 0) b(i)=100
        End do
        Print *, 'Summa chisel, predshestvuyushaya poslednemu otric:'
        Print *, (b(i), i = 1, n)
        Pause
        End

@Sofiya666 · 05.06.2017, 21:41 **[ТС]**

Спасибо за ответ,но теперь он вот такие вот вещи выдаёт...
Т.е. считает сумму строки без отрицательного числа,а остальные строки рассматривает справа на лево и считает правую сторону началом строки.

@Catstail · 06.06.2017, 07:21

Sofiya666, считает то, что вы и просили. Сумму положительных элементов с конца строки.

@Sofiya666 · 15.06.2017, 12:22 **[ТС]**

Нет,там нужно было наоборот)
Спасибо вам за подсказку,у меня получилось исправить всё так,как надо,дело было всего лишь в 2 строчках)))

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Program laba_5
Integer N, i, j, l,index
Real A(100,100), B(100)
  Print*, 'Vvedite razmernost kvadratnoi matritsi'
  Read*,N
Print *
  Print*, 'Vvedite kvadratnuy matritsu'
    Do i=1,N
      Read *,(A(i,j), j=1, N)
    End do
Print*
  Do i=1,N
    Print *,(A(i,j), j=1, N)
  End do
Print *
  Do i = 1,N
  B(i) = 0
  l = 0
  index=0
    Do j = 1,N
      if (A(i,j) .lt. 0.) then
        l = j
        index=index+1
      End if
    End do
      If (l .ne. 1) then
      If (l.ne. 0) then
        Do j = 1,l-1
          B(i) = B(i) + A(i,j)
        End do
      else
        B(i) = 100.
      End if
      else
      End if
  End do
Print *, 'Summa chisel, predshestvuyushaya poslednemu otric:'
Print *, (B(i), i = 1, N)
End

@Catstail · 15.06.2017, 12:53

Sofiya666, да, ваша правда.

Новые блоги и статьи Все статьи Все блоги /
Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .

@Sofiya666 0 / 0 / 0 Регистрация: 05.06.2017 Сообщений: 3
	05.06.2017, 21:41 [ТС]
	Спасибо за ответ,но теперь он вот такие вот вещи выдаёт... Т.е. считает сумму строки без отрицательного числа,а остальные строки рассматривает справа на лево и считает правую сторону началом строки. Миниатюры 0

@Catstail Супер-модератор 38148 / 21084 / 4305 Регистрация: 12.02.2012 Сообщений: 34,660 Записей в блоге: 14
	06.06.2017, 07:21
	Sofiya666, считает то, что вы и просили. Сумму положительных элементов с конца строки. 1

@Catstail Супер-модератор 38148 / 21084 / 4305 Регистрация: 12.02.2012 Сообщений: 34,660 Записей в блоге: 14
	15.06.2017, 12:53
	Sofiya666, да, ваша правда. 0

Опции темы