Navigation bar
  Print document Start Previous page
 110 of 144 
Next page End  

110
Для представления матрицы в программе на языке Бейсик можно использовать операторы
data, в первой строке которых указывается размерность матрицы:
data 5
data 1, 0, 1, 0, 0 
data 0, 1, 0, 0, 0 
data 0, 0, 1, 0, 0 
data 0, 1, 0, 0, 0 
data 0, 0, 0, 0, 0
Для вывода исходных данных и результатов их обработки можно воспользоваться следую-
щим сценарием:
     Матрица А<n><n>:
11
> ... <a
1n
>
   … … …
<a
nl
> … <a
nn
Число нулей в столбцах:
<d1> ... <d
n
>
Решением поставленной задачи на ЭВМ можно получить с помощью следующего алгорит-
ма и программа на языке Бейсик. Обратите внимание в программе используются массивы пере-
менной длины, которая определяется при вводе размеров матрицы А:
' подсчет нулевых столбцов     
алг «подсчет нулевых столбцов»
'
в квадратной матрице Ann      
' нач
read n                          
' чтение(п)
dim A(n,n), D(n)                 
'
массивы А(1:п,1:п), D(1:n) 
print «Матрица A»;n;n;«:»        
' вывод («Матрица А»;п;п; «:») 
for k = 1 to n                   
'
от k = 1 до п цикл 
for 1 =1 to n                   
'    от l =1 до п цикл 
read A(k,l)                    
'       чтение A(k,l) 
print A(k,l) 
'
      вывод A(k,l)
next 1                        
'    кцикл 
next k 
' кцикл 
for k = 1 to n                   
' om k= 1 до п цикл
D(k) = 0                      
'   
D(k) =
for 1 = 1 to n                  
'    от l=1 до п цикл
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. Дана строка символов. Распечатать все слова нечетной длины, отличные от вто-
рого слова.
(В этой задаче «словом» называется группа символов, разделенная с одной или обеих сто-
рон одним или несколькими пробелами и не содержащую внутри себя пробелов.)
Пример строки
Я волком бы выгрыз бюрократизм. 
К мандатам почтения нет.
Сайт создан в системе uCoz