|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
07.02.2011, 20:39 | #1 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
Помогите, пожалуйста, написать программку на Паскале
если можно с пояснениями заранее благодарна... |
07.02.2011, 20:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Однородные проблемы уже обсуждались, пожалуйста, обратите на них внимание Пожалуйста, помогите написать программку. Pascal Free Помогите пожалуйста написать проги в паскале |
07.02.2011, 20:56 | #3 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
нууу...вот в строке несколько слов(символов) через пробел...надо по видимому посчитать количество символов(букв) в каждом слове, и сравнивая расположить по возрастанию(увеличению символов)...
|
07.02.2011, 21:26 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вот:
Код:
VAR S,S1:String; S2:Array[1..130] of String; i,i1,i2,j,k:Byte; BEGIN WriteLn('Enter the string:'); ReadLn(S); WriteLn; i:=0; k:=0; Repeat Repeat Inc(i); Until S[i]<>' '; i1:=i; Repeat Inc(i); Until (S[i]=' ') or (i=Length(S)); If S[i]=' ' then i2:=i else i2:=i+1; Inc(k); S2[k]:=Copy(S,i1,(i2-i1)); Until i=Length(S); WriteLn; WriteLn; For i:=1 to k do For j:=1 to k-i do If Length(S2[j])>Length(S2[j+1]) then begin S1:=S2[j+1]; S2[j+1]:=S2[j]; S2[j]:=S1; end; For i:=1 to k do Write(S2[i]+' '); WriteLn; ReadLn; END. 1. Вводится строка (которая даже может начинаться с пробелов). 2. Организуется цикл последовательного перебора символов строки. 3. Последовательно вычленяются слова. Сперва ищется номер символа, не являющегося пробелом (i1), затем перебор продолжается до первого пробела или конца строки. Номер такого символа есть i2. Таким образом, определяются номера символов-границ очередного слова. 4. Очередное найденное слово вычленяется командой Copy и заносится в массив S2. 5. Методом "пузырька" массив упорядочивается по длинам слов. Устроит? |
07.02.2011, 22:17 | #5 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
оо...да да да....конечно...спасибочки огромное вам
а не могли бы вы описать все переменные использующиеся в этой программе |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
07.02.2011, 22:22 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так а там их всего ничего. S - исходная строка, S1 - вспомогательная строковая переменная, используемая в цикле упорядочения массива, S2, i1, i2 описаны выше в комментариях к программе, остальные (i, j, k) - счетчики да переменные циклов.
|
07.02.2011, 22:43 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Остальные использованные операторы - самые ходовые, о них можно прочитать в абсолютно любом руководстве по Паскалю. |
|
07.02.2011, 23:03 | #9 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
спасибочьки большое...безмерно благодарна вам за всё....вы мне очень помогли....СПАСИБО
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|