Vladimir_S

Знаете, в силу моего практически полного незнания Фортрана, точно не скажу, но разглядывание Вашего кода всё время наводит на мысль, что что-то не то с выделением слов-подстрок. Попробуйте вывести промежуточный результат, чтобы на экране появлялись отдельные слова из введенной Вами строки.

Over77over

Вот такой вот результат

Миниатюры

 

Over77over

Извините, в той картинке ввел меньше 20-ти символов.
Вот правильная

Миниатюры

 

Over77over

Ввел в строку "красную строку"(3 пробела в начале),разделил слова и числа пробелами и вот что получилось... Проблема в том что, числа в данной строке фортран не перевел в 10 систему счисления.

Миниатюры

 

Vladimir_S

Черт, хоть садись Фортран учи на старости лет...
Вообще проблема не только в этом. Мне, например, непонятно, какого лешего программа выдает 7 сообщений о том, что "слово не является числом"? Она что, по каждому символу это делает? Зачем?
Вообще казалось бы естественным, чтобы шло выделение подстрок-слов от начала введенной строки до первого пробела, между пробелами, от последнего пробела до конца строки. Собственно, у меня так и сделано. Советую для начала при вводе исключить множественные пробелы, а также пробелы в начале и в конце строки. Тогда на первом этапе желательно увидеть что-нибудь в таком роде:
А вот как у Вас делается преобразование систем счисления - совсем не понимаю. В Фортране что - есть специальные операторы? Просто я не в курсе. Опишите, пожалуйста, алгоритм словами - попробую разобраться.

Over77over

Вот полностью решённая задача. Спасибо всем за помощь.


character str*70, st*70, sl*15
integer dl,ns,ks,j
real ch
logical p
write(*,*) 'vvod stroki'
read(*,'(a70)') str
st=adjustl(str)
L=len_trim(st)
ns=1
ks=index(st,' ')
do while(ks<=L+1)
sl=st(ns:ks)
dl=ks-ns
p=.true.
do j=1,dl,1
if(sl(j:j)<'0'.or. sl(j:j)>'5') then
p=.false.
end if
end do
if(p) then
ch=0
do j=1,dl,1
!perevod iz 6-noi systemi v 10-nyu
d=ichar(st(ns+j-1:ns+j-1))-48
ch=ch+d*(6**(dl-j))
end do
write(*,16) ch
16 format(1x, F10.0)
else
write(*,*) 'net chisel ili ne podhodit po usloviyu'
end if
ns=ks+1
ks=ks+index(st(ks+1,' ')
end do
end