|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
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. Дана строка символов. Распечатать все слова нечетной длины, отличные от второго слова. (В этой задаче «словом» называется группа символов, разделенная с одной или обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов.)
Пример строки Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.) |