Skorpion4iggg
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору нужно посчитать кол-во слов превышающих заданное кол-во букв, слова разделены пробелом, в чём проблема, результат всегда 0 program god implicit none integer(4) lenWord,j,k,i,n character(200) b n=0 open(11,file='qqq.txt') read(11,100) b 100 format(a200) print *,b write(*,*) 'zadaite kol-vo simvolov' read(*,*) lenWord do i=1,200-lenWord,lenWord k=0 do j=0,lenWord-1 if ((b(i+j:i+j)/=' ')) then k=k+1 end if !j end do if ((k>=lenWord).and.(b(i+lenWord:i+lenWord)==' ')) then n=n+1 end if !k end do print *,n end program god ,enWord синеньким не выделяет, и в описании операторов в самом Фортране его нет, есть Len_Trim, но не получается перевести для чего он, мб он нужен дял подсчёта общего кол-ва символов? |