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 слов он начинает записывать остальные слова в новый документ,как сделать,чтобы он все слова писал в один файл?? |