Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите исправить код 
:(
    Опции темы
GreforyBx
Дата 4.4.2016, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 4.4.2016

Репутация: нет
Всего: нет



Текст задачи: Изменить текст, чтобы слова разделялись ровно пробелом


Character str*30
integer l,i,k
write(*,*)'vvedite ishod str'
read(*,'(A30)') str                                                                                                                           
!str=Adjustl(str)
l=len_trim(str)
Do i=1,l
if(str(i:i)==' '.and.str(i+1:i+1)==' ') then
do k=i+1,l-1
str(k:k)=str(k+1:k+1)
str(l:l)=''
end do
end if
end do
write(*,*)'izmen str'
write(*,'(A30)')str
end



PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Fortran | Следующая тема »


 




[ Время генерации скрипта: 0.0924 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.