В каждой нечетной строке матрицы найти среднее арифметическое элементов, не принадлежащих отрезку от 0 до 10

@atoos · Регистрация: 05.12.2014

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

Дана матрица А размером n x m(n,m<=15). В каждой нечетной строке найти среднее арифметическое элементов ,не принадлежащих отрезку от 0 до 10 , и сформировать из них одномерный массив.Для расчета значения в одной строке использовать функцию.

Собственно проблема такая , после ввода массива выдает сообщение : NaN NaN. Помогите пожалуйста

Fortran

real function sred(x,n,m,p)
implicit none
integer,intent(in) :: n,m
real,intent(in) :: x(n,m)
real s
integer:: j,k,p
s=0
k=0
do j=1,m
if ( x(p,j)<0.and.x(p,j)>10) then
s=s+x(p,j)
k=k+1
endif 
enddo
sred=s/k
end
 
program f1
implicit none
real a(15,15)
real,allocatable :: u (:)
real::sred
integer n,m,i,j,k
read*,n,m,( (a(i,j),j=1,m),i=1,n)
allocate (u(n))
k=0
do i=1,n,2
k=k+1
u(k)=sred(a,n,m,i)
enddo
print*,(u(i),i=1,k)
 
end

@Krasme · 21.12.2014, 14:41

число не может быть одновременно и меньше 0, и больше 10... или-или...

Кликните здесь для просмотра всего текста

Fortran

       real function sred(x,n,m,p)
       implicit none
       integer,intent(in) :: n,m
       real,intent(in) :: x(n,m)
       real s
       integer:: j,k,p,i
       s=0
       k=0
       print *,(x(p,j),j=1,m)
       do j=1,m
       if ( x(p,j)<0.or.x(p,j)>10) then
       s=s+x(p,j)
       k=k+1
       endif
       enddo
       if (k/=0) then
         sred=s/k
         else
         sred=0
       end if
       end
 
       program f1
       implicit none
       real a(3,3)
       real,allocatable :: u (:)
       real::sred
       integer n,m,i,j,k
       read*,n,m,( (a(i,j),j=1,m),i=1,n)
       allocate (u(n))
       k=0
       do i=1,n,2
       k=k+1
       u(k)=sred(a,n,m,i)
       enddo
       print *,(u(i),i=1,k)
 
       end

@buggydancer · 21.12.2014, 14:54

Krasme: А "BLOCK DATA//" у ФОРТРАНА ещё работает? Или перенаправлять из скрипта какого,
чтобы вручную

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

real a(15,15)

не набивать, половина из которых ещё и не нужна?

@Krasme · 21.12.2014, 15:03

buggydancer, data /.../ существует и используется...
человек сам написал программу, задача форума лишь исправить ЕГО неточности.. если он будет дальше изучать фортран, познает и другие возможности...
но даже использование data /... / непрактично для массива до 15х15, т.к. пользователь может менять размерность массива... тут уж лучше использовать рандомное задание чисел массива.

@buggydancer · 21.12.2014, 15:23

Krasme: понятно, что ТС ещё на младших курсах, но если ему "читают ФОРТРАН" значит на старших
курсах "это ружье выстрелит", а там уже, видимо, понадобится и

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

data /.../

и DIMENSION для стыковки с древними библиотеками
(по кр. мере у нас было именно так), а на младших курсах нас за DIMENSION "ругали"

@Krasme · 21.12.2014, 15:29

Не по теме:

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

что ТС ещё на младших курсах, но если ему "читают ФОРТРАН" значит на старших курсах "это ружье выстрелит",

необязательно... у меня фортран был всего один семестр, и больше о нем не вспоминали.. был упор на с/с++

@buggydancer · 21.12.2014, 20:06

Не по теме:

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

...у меня фортран был всего один семестр, и больше о нем не вспоминали...

Даже незнаю: может это "перегибы на местах", поскольку нам его читали 2 семестра: один на ЕС-ках
(было 3 класса по ~20 терминалов) и еще один семестр - на персоналках, - только лабораторные (~15 шт)
а экзамен был только после первого (ЕС-ного) семестра, после персоналок - зачет/незачет.

Да потом еще ЧМ на нем 2, наверное, семестра и многие на нем курсовые дальше делали, остальные
(я в том числе) "разбрелись" по всяким MathCAD, MATLAB, Maple, Derive...

Хотя нас (первоначально) и учили "структурному" ФОРТРАНу-77/90, и сдавали мы именно его, но вдальнейшем,
уже на численных методах вдоволь насмотрелись на "классический" ФОРТРАН-IV
(как в этой библиотеке: https://www.cyberforum.ru/post1006362.html)
и именно его "эстетика" и "неструктурный" (почти ассемблерный) стиль программирования и запомнились

@buggydancer 251 / 239 / 16 Регистрация: 31.12.2009 Сообщений: 324
	21.12.2014, 14:54	3
	Krasme: А "BLOCK DATA//" у ФОРТРАНА ещё работает? Или перенаправлять из скрипта какого, чтобы вручную Сообщение от atoos real a(15,15) не набивать, половина из которых ещё и не нужна? 0

@Krasme 6832 / 4892 / 2066 Регистрация: 02.02.2014 Сообщений: 13,052
	21.12.2014, 15:03	4
	buggydancer, data /.../ существует и используется... человек сам написал программу, задача форума лишь исправить ЕГО неточности.. если он будет дальше изучать фортран, познает и другие возможности... но даже использование data /... / непрактично для массива до 15х15, т.к. пользователь может менять размерность массива... тут уж лучше использовать рандомное задание чисел массива. 1

@buggydancer 251 / 239 / 16 Регистрация: 31.12.2009 Сообщений: 324
	21.12.2014, 15:23	5
	Krasme: понятно, что ТС ещё на младших курсах, но если ему "читают ФОРТРАН" значит на старших курсах "это ружье выстрелит", а там уже, видимо, понадобится и Сообщение от Krasme data /.../ и DIMENSION для стыковки с древними библиотеками (по кр. мере у нас было именно так), а на младших курсах нас за DIMENSION "ругали" 0

@Krasme
	21.12.2014, 15:29 #6
	Не по теме: Сообщение от buggydancer что ТС ещё на младших курсах, но если ему "читают ФОРТРАН" значит на старших курсах "это ружье выстрелит", необязательно... у меня фортран был всего один семестр, и больше о нем не вспоминали.. был упор на с/с++ 0

@buggydancer
	21.12.2014, 20:06 В каждой нечетной строке матрицы найти среднее арифметическое элементов, не принадлежащих отрезку от 0 до 10 #7
	Не по теме: Сообщение от Krasme ...у меня фортран был всего один семестр, и больше о нем не вспоминали... Даже незнаю: может это "перегибы на местах", поскольку нам его читали 2 семестра: один на ЕС-ках (было 3 класса по ~20 терминалов) и еще один семестр - на персоналках, - только лабораторные (~15 шт) а экзамен был только после первого (ЕС-ного) семестра, после персоналок - зачет/незачет. Да потом еще ЧМ на нем 2, наверное, семестра и многие на нем курсовые дальше делали, остальные (я в том числе) "разбрелись" по всяким MathCAD, MATLAB, Maple, Derive... Хотя нас (первоначально) и учили "структурному" ФОРТРАНу-77/90, и сдавали мы именно его, но вдальнейшем, уже на численных методах вдоволь насмотрелись на "классический" ФОРТРАН-IV (как в этой библиотеке: https://www.cyberforum.ru/post1006362.html) и именно его "эстетика" и "неструктурный" (почти ассемблерный) стиль программирования и запомнились 0

В каждой нечетной строке матрицы найти среднее арифметическое элементов, не принадлежащих отрезку от 0 до 10

Решение