Bonjour,

Comment implémente une file aver Fortran powerstation 4.0

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 	program file
   integer    x ,tete,queue
  tete=0
  queue=0
 
write (*,*)' Entrer l element'
read (*,*)x
call enfiler(x)
stop
 
Subroutine   enfiler(x) 
if (queue.GT.100) goto 10
 
  A(queue)=x
  queue =queue+1
 
   goto 40
 
10  write (*,*)'erreur'
 
40 return
 
 
 
end