 |
 |
 |
 |
|
 |
 |
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) = 0
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. Дана строка символов. Распечатать все слова нечетной длины, отличные от вто-
рого слова.
(В этой задаче «словом» называется группа символов, разделенная с одной или обеих сто-
рон одним или несколькими пробелами и не содержащую внутри себя пробелов.)
Пример строки
Я волком бы выгрыз бюрократизм.
К мандатам почтения нет.