kirill47
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите пожалуйста,буду очень благодарен!
есть программа:
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 слов он начинает записывать остальные слова в новый документ,как сделать,чтобы он все слова писал в один файл?? |
