ND2
public text v1 · immutable program nd2
character*12 pav
character*6 fak
integer grupe
real paz
k=0
kl=0
sg=0.0
sk=0.0
open (1,file='db1.dat',status='old')
open (2,file='db2.dat',status='old')
open (3,file='db3.dat',status='old')
open (4,file='vienas.dat',status='unknown')
open (5,file='kitas.dat',status='unknown')
do i=1,3
read (1,10),pav,fak,grupe,paz
if(paz.LE.8) then
k=k+1
write(4,10)pav,fak,grupe,paz
sg=sg+paz
else
kl=kl+1
write(5,10)pav,fak,grupe,paz
sk=sk+paz
end if
10 format (A12,2X,A6,3X,I1,1X,F3.1)
enddo
do i=1,3
read (2,10),pav,fak,grupe,paz
print *, pav,'_', fak,'_', grupe,'_', paz
if(paz.LE.8) then
k=k+1
write(4,10)pav,fak,grupe,paz
sg=sg+paz
else
kl=kl+1
write(5,10)pav,fak,grupe,paz
sk=sk+paz
end if
enddo
do i=1,2
read (3,10),pav,fak,grupe,paz
if(paz.LE.8) then
k=k+1
write(4,10)pav,fak,grupe,paz
sg=sg+paz
else
kl=kl+1
write(5,10)pav,fak,grupe,paz
sk=sk+paz
end if
enddo
rewind(4)
rewind(5)
end