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

Data 0, 0, 0, 0, 0

 

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

Матрица А<n><n>:

11>... <a1n>

… … …

<anl> … <ann>

Число нулей в столбцах:

<d1>... <dn>

 

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

 

' подсчет нулевых столбцов ' алг «подсчет нулевых столбцов»

' в квадратной матрице 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. Дана строка символов. Распечатать все слова нечетной длины, отличные от второго слова.

(В этой задаче «словом» называется группа символов, разделен­ная с одной или обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов.)

 

Пример строки


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.004 сек.)