Поправить программу, чтобы при выводе информация о каждом слове встречалась всего один раз

@Кирилл92 · Регистрация: 16.05.2011

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

помогите пожалуйста,буду очень благодарен!

есть программа:

Fortran

program main 
implicit none 
character(100) :: fname="c:\text.txt", fout="c:\out.txt" 
call MathTrimFile (fname, fout) 
end  
 
!Процедура подсчитывает сколько раз каждое слово встречается в исходном тексте 
subroutine MathTrimFile (fname,fout) 
implicit none 
integer i,j,k,num 
character(*) :: fname, fout 
character (100) words(100) 
logical start 
open (11, file=fname, status="OLD", err=99) 
open (22, file=fout) 
do while (.not. EOF(11)) 
start = .true. 
read (11,"(a)", err=999, end=10) (words(i),i=1,100) 
10 num=i-1 
k=0 
do i=1, num 
do j=1, num 
if (words(i)==words(j)) then  
k=k+1 
endif 
enddo 
write (22,*) trim(words(i)), k 
k=0 
enddo 
return 
end do 
99 print *, "file not found" 
stop 1 
999 print *,"format uncorrected" 
stop 2 
end

1)нужно сделать,чтобы при выводе информация о каждом слове встречалась всего один раз
2)при написании в файл исходный больше чем 100 слов он начинает записывать остальные слова в новый документ,как сделать,чтобы он все слова писал в один файл??

	07.06.2011, 12:52