Skorpion4iggg
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Не надо по всяким - надо по конкретным, относящимся к фортрану. Постить здесь целиком хелпы? - не для это топик. LEN_TRIM [?] | так это в самом фортране я могу прочитать, мне пример использования в задаче нужен, т.е похожая задача с этой встроенной функцией попробовал написать прогу с этой функцией, получился бред и в результате 0 program god implicit none integer(4) j,k,i,n,g,l character(len=200) b n=0 open(11,file='qqq.txt') read(11,100) b 100 format(a200) print *,b write(*,*) 'zadaite kol-vo simvolov' read(*,*) g l=len_trim(b) print *,l do i=1,l k=0 do j=0,g if ((b(i+j:i+j)/=' ')) then k=k+1 end if !j end do if ((k>g).and.(b(i+g:i+g)==' ')) then n=n+1 end if !k end do print *,n end program god я хоть там эту функцию ввёл?(судя по тому что значение l в принте совпадает с кол-вом символов правильно) не подскажите где у меня в цикле косяки? Добавлено: всем спасибо кто помогал, пытался помочь, но рано или поздно момент осинения/прозрения наступает у всех даже у таких тугих как я)) извините если кому-то мозолили глаза мои посты, просто до этого момента с лабами расправлялся быстро, а щас вот сел, потому-что теории по ней почти не было | Всего записей: 9 | Зарегистр. 18-05-2010 | Отправлено: 00:21 27-05-2010 | Исправлено: Skorpion4iggg, 00:29 27-05-2010 |
|