Форум: [OFF] Оффтопики не про КПК
Тема: Помогите срочно пожалуйста...
Страницы: 1 [2]
[Ответить]
LoginOFF [30.06.2006 13:38] :
respect2all
и большое спасибо... выручили миня..... сессия закрыта....
Батька [30.06.2006 13:41] :
!!!!
fenec [30.06.2006 16:26] :
- Михаил-iver писал(а):
Да... на фортране сложновато(плохо я его знаю). На Паскале(Дельфи) вроде можно.
Aregus
либо я чето не совсем понимаю, либо это не вортран...
вот простейший исходник из фортрана:
!задание: Дана текстовая строка длинной 40 символов, состоящая из цифр, букв лат. алфавита
!и спец. символов. Осоществить сортировку символов в строке: в начале разместить цифры, затем
!буквы лат. алфавита, а затем спецсимволы.
program zad3
character str1*(40),str2*(40),buf*(1)
integer k
print *,'enter the text'
read 100,str1
do i=1,40
if ((str1(i:i).ge.'0').and.(str1(i:i).le.'9')) then
k=k+1
str2(k:k)=str1(i:i)
endif
enddo
do i=1,40
if ((str1(i:i).ge.'A').and.(str1(i:i).le.'Z')) then
k=k+1
str2(k:k)=str1(i:i)
endif
if ((str1(i:i).ge.'a').and.(str1(i:i).le.'z')) then
k=k+1
str2(k:k)=str1(i:i)
endif
enddo
do i=1,40
if ((str1(i:i).lt.'0').or.(str1(i:i).gt.'9')) then
if ((str1(i:i).lt.'A').or.(str1(i:i).gt.'Z')) then
if ((str1(i:i).gt.'z').or.(str1(i:i).lt.'a')) then
k=k+1
str2(k:k)=str1(i:i)
endif
endif
endif
enddo
print *,str2
100 format (a)
end program zad3
Aregus [30.06.2006 17:59] :
флип, это си.
А фортран до твоего поста не видел. Вобщето уровень этих прог- ниже плинтуса. Так что давайте закроем тему. ЗЫ: очень рад за афтара, мне вот ещё матан сдавать.
Darkcat [30.06.2006 18:03] :
Дурдом для математиков. Один бегает с воплями:
- Я вас щас проинтегрирую, я вас щас продифференцирую!
Все от него шарахаются, кроме одного. Первый к нему подбегает:
- А ты чего меня не боишься?
- А я Е в степени Х...
[Ответить]
[< Назад]