АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Data «»

 

Здесь пустое слово «» означает конец исходного текста.

Для вывода исходных данных и результатов их обработки можно принять следующий сценарий:

исходный текст:

<строка1>

… …

<строкаn>

слова нечетной длины:

<слово1>

… …

<словоm>

 

Решение поставленной задачи на ЭВМ можно получить с помо­щью следующих алгоритма и программы на Бейсике, в которых в виде вспомогательного алгоритма и подпрограммы выделена обра­ботка каждой отдельной строки текста:

 

' выделение слов нечетной длины ' алг «слова нечетной длины»

print «исходный текст:» ' вывод «исходный текст;»

n = 0: s2$ = «» ' n = 0: s2$ = «»

print «исходный текст:» ' вывод «исходный текст:»

do ' цикл

read str$ ' чтение_строки

if str$ = «» then exit do ' при str$ = «» выход

print str$ ' вывод_строки

gosub stroka ' обработка_строки

loop ' кцикл

end ' кон

 

stroka: ' обработка строки ' алг «обработка строки»

dl = len(sfr$) ' dl = длuнa(str$)

print «слова нечетной длины:» ' вывод «слова нечетной длины:»

sl = 0 ' sl=0

for k=l to dl ' от k = 1 до dl цикл

if str$(k) 0 «» then ' если str$(k) ¹ «» то

sl = sl + 1 ' sl = sl + 1

elseif sl > 0 then ' инеc sl > 0 то

p = k - sl + 1 ' p = k - sl + 1

slv$ = mid$(str$,p,sl) ' slv$ = cpeдн.(str$,p,sl)

n = n + 1 ' n = n + 1

if n = 2 then ' если n = 2 то

sl2$ = slv$ ' sl2$ = slv$

elseif slv$ 0 sl2$ then ' инеc slv$ ^ sl2$ то

if (sl/2)*2= si then ' если (sl/2) *2 = sl то

print slv$ ' вывод slv$

end if ' кесли

end if ' кесли

sl = 0 ' sl = 0

end if ' кесли

next k ' кцикл

return ' кон

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)