Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:инфа / проги инфа вар 1,2(родионова) / новичихин
.txt character str*70, sl*15, nl*15
integer ns, ks, l, dl, ch
logical p
write(*,*) 'vvedite str'
read (*,'(A70)') str
str=adjustl(str)
l=len_trim(str)
ns=1
ks=index(str,' ')
do while (ks<=l+1)
sl=str(ns:ks)
dl=ks-ns
p=.true.
do j=1, dl, 1
if (sl(j:j)<'0' .or. sl(j:j)>'9') then
p=.false.
end if
end do
if (p) then
read (sl,'(I6)') ch
if (ch==ch/2*2) then
sl='++++++++++'
else
sl='----------'
end if
nl=sl(:dl)
!write (*,11) nl
11 format (1x,A)
str(ns:ks)=nl
end if
ns=ks+1
ks=ks+index(str(ks+1:),' ')
end do
write (*,11) str
end
integer ns, ks, l, dl, ch
logical p
write(*,*) 'vvedite str'
read (*,'(A70)') str
str=adjustl(str)
l=len_trim(str)
ns=1
ks=index(str,' ')
do while (ks<=l+1)
sl=str(ns:ks)
dl=ks-ns
p=.true.
do j=1, dl, 1
if (sl(j:j)<'0' .or. sl(j:j)>'9') then
p=.false.
end if
end do
if (p) then
read (sl,'(I6)') ch
if (ch==ch/2*2) then
sl='++++++++++'
else
sl='----------'
end if
nl=sl(:dl)
!write (*,11) nl
11 format (1x,A)
str(ns:ks)=nl
end if
ns=ks+1
ks=ks+index(str(ks+1:),' ')
end do
write (*,11) str
end
Соседние файлы в папке проги инфа вар 1,2(родионова)