[Fortran] ricerca sequenziale

Messaggioda galles90 » 03/01/2019, 20:09

Buonasera,

Vi riporto il code dell'algoritmo il quale, data una matrice $X$ di $n$ righe e $m$ colonne, e sia $p$ un numero intero, mi da come valore $s=0$ se non esitono $p$ elementi consecutivi uguali a $0$, invece $s=1$ altrimenti.

Ovviamente la parte finale dell'algoritmo non è definita, è solo per provare se andava, in particolare sulla funzione stampa valore $s$.

Per essere più chiari vi posto il link della traccia:

http://wpage.unina.it/lapegna/educational/esempio%20compito%20del%20240717.pdf

Algoritmo:

Codice:
program provaesame

! Il presente algoritmo sviluppa una procedura data una matrice A di N righe e M colonne di numeri interi, e P un numeri intero, restituisca il valore s=0 se esitono P elementi consecutivi uguale a zero, invece restituisce il valore s=1 se non esistono P elementi consecutivi uguali a zero.

integer :: i,j,n,m,p,f,a,b
real:: x(100,100)
print*, 'inserire nella sequenza ordine matrice n-righe, m-colonne, valore numerico di p-elementi uguale a zero'
read*, n,m,p
if(p>m) then
s=0
else
print*, 'inserire elementi della matrice'
do i=1,n
   do j=1,m
   read*, x(i,j)
   end do
end do
a=0
b=0
do i=1,n
read*, b
   do j=1,m
      if (x(i,j)/=0) then
      s=0
      else
         do
         f=j
         do f=j,j+p
               if ((x,j) == 0) then
               a=a+1
                 end do
         end do
         if (f == j+p) exit
         end do
      end if
   b=a
   end do
b=b+1
end do
b=s
end if
print*, s
end


Nell'attesa, cordiali saluti.
Avatar utente
galles90
Average Member
Average Member
 
Messaggio: 613 di 786
Iscritto il: 17/10/2016, 18:56
Località: Casal Velino - Salerno

Re: [Fortran] ricerca sequenziale

Messaggioda galles90 » 05/01/2019, 16:22

Ciao, non voglio insistere ma noto che sul forum, il linguaggio fortran non è tanto accettato.

E' un mio punto vista oppure è la realta dei fatti :=) ?

Ciao
Avatar utente
galles90
Average Member
Average Member
 
Messaggio: 617 di 786
Iscritto il: 17/10/2016, 18:56
Località: Casal Velino - Salerno

Re: [Fortran] ricerca sequenziale

Messaggioda axpgn » 05/01/2019, 17:31

Semplicemente è un linguaggio vecchio anzi preistorico; ciò non significa che non sia più usato ma non è "mainstream", è più di nicchia anche se nicchia grossa ... :-D
axpgn
Cannot live without
Cannot live without
 
Messaggio: 12665 di 13352
Iscritto il: 20/11/2013, 23:03

Re: [Fortran] ricerca sequenziale

Messaggioda apatriarca » 06/01/2019, 02:59

Tra i frequentatori del forum la conoscenza del linguaggio fortran non è particolarmente diffusa. Ottenere risposte per tale linguaggio può quindi essere difficile . In questo caso particolare credo ci sia anche un problema di poca chiarezza nella richiesta. Vuoi un parere sull'algoritmo? Sulla correttezza del codice? Altro?
apatriarca
Moderatore
Moderatore
 
Messaggio: 5178 di 5214
Iscritto il: 08/12/2008, 21:37
Località: Londra

Re: [Fortran] ricerca sequenziale

Messaggioda galles90 » 06/01/2019, 11:59

Buongiorno,

il linguaggio fortran lo so è poco usato, ma il prof. in generale fa usare due tipi di linguaggi di programmazione questo, e il pascal-like.
Ritornando al problema principale ho poca pratica su questa materia :( :( ma mi piacerebbe sapere come strutturare tale algoritmo.

Nel topic principale è presente un link, il quale fa riferimento alla traccia, dove è presente la richiesta di cosa deve fare nello specifico l'algoritmo. In particolare nella traccia si richiede che, l'algoritmo venga scritto in pascal-like, ma presumo che sia ancora meno usato.
Avatar utente
galles90
Average Member
Average Member
 
Messaggio: 618 di 786
Iscritto il: 17/10/2016, 18:56
Località: Casal Velino - Salerno


Torna a Informatica

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti