Navigation bar
  Print document Start Previous page
 146 of 179 
Next page End  

146
if A(k, l) = 0 then            
'       если A(k, l) = 0 то
D(k) = D(k) + 1            
'          D(k) = D(k) + 1 
end if                       
'       кесли
next 1                         
'    кцикл
print D(k); 
'    вывод D(k);
next k                          
' кцикл
end                            
' кон
Задача 2. Дана строка символов. Распечатать все слова нечетной длины, отличные от второго слова.
(В этой задаче «словом» называется группа символов, разделенная с одной или обеих сторон одним
или несколькими пробелами и не содержащую внутри себя пробелов.)
Пример строки
Я волком бы выгрыз бюрократизм. 
К мандатам почтения нет.
Результат обработки
бы
выгрыз
бюрократизм.
почтения
нет.
Для представления строк в программе на Бейсик можно воспользоваться операторами data:
data «Я волком бы выгрыз бюрократизм.»
data «К мандатам почтения нет.»
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
' кцикл
Сайт создан в системе uCoz