Разработка программы для подсчета количества отрицательных, положительных и нулевых элементов в матрице
Описание алгоритма решения задания по подсчету количества отрицательных, положительных и нулевых чисел и выводу номеров этих чисел на экран. Описание переменных и подпрограмм, используемых в программе. Ввод пользователем количества строк и столбцов.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | контрольная работа |
Язык | русский |
Дата добавления | 16.10.2017 |
Размер файла | 75,8 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Задание
В матрице А размером NxM подсчитать количество отрицательных, положительных и нулевых элементов и вывести на печать их порядковые номера в виде:
Отрицательные элементы: номер1, номер2,…
Положительные элементы: номер1, номер2,…
Нулевые элементы: номер1, номер2,…
Описание алгоритма решения задания
Ввод пользователем количества строк и столбцов
Заполнение матрицы (массива) рандомными значениями
Вывод на экран получившейся матрицы
Подсчет количества отрицательных чисел и вывод номеров этих чисел на экран
Подсчет количества положительных чисел и вывод номеров этих чисел на экран
Подсчет количества нулевых чисел и вывод номеров этих чисел на экран
Описание переменных и подпрограмм
программа алгоритм экран пользователь
В программе используются следующие переменные:
i,j -вспомогательные переменные типа Byte
N,M -переменные типа Byte хранящие количество строк и столбцов соответственно
a,b,c -переменные типа Integer хранящие количество положительных, отрицательных и нулевых элементов соответственно
х -переменная типа Array. х в нашей программе - это двумерный массив, каждая ячейка которого хранит элементы матрицы
Текст программы
Program KW;
Uses
Crt;
Var
i,j,N,M:byte;
a,b,c:integer;
x:array[1..10,1..10] of integer;
Begin
ClrScr;
Randomize;
Writeln('Введите размеронсть матрицы: ');
Write('Количество строк: ');
Readln(N);
Write('Количетсво столбцов: ');
Readln(M);
for i:=1 to N do
for j:=1 to M do
x[i,j]:=20-Random(40);
Writeln('Исходная матрица:');
for i:=1 to N do
for j:=1 to M do
Begin
if j<>M then Write(x[i,j]:3,' ')
else Writeln(x[i,j]:3);
End;
Writeln;
Writeln('Отрицательные элементы:');
for i:=1 to N do
for j:=1 to M do
if x[i,j]<0 then
Begin
inc(c);
Write('[',i,';',j,'] ');
if c mod 6 =0 then Writeln;
End;
Writeln;
Writeln('Всего: ',c);
Writeln;
Writeln('Положительные элементы:');
for i:=1 to N do
for j:=1 to M do
if x[i,j]>0 then
Begin
inc(a);
Write('[',i,';',j,'] ');
if a mod 6 =0 then Writeln;
End;
Writeln;
Writeln('Всего: ',a);
Writeln;
Writeln('Нулевые элементы:');
for i:=1 to N do
for j:=1 to M do
if x[i,j]=0 then
Begin
inc(b);
Write('[',i,';',j,'] ');
if b mod 6 =0 then Writeln;
End;
Writeln;
Writeln('Всего: ',b);
Readln;
End.
Результат работы программы
При анализе работы программы, можно убедиться, что она работает правильно.
Размещено на Allbest.ru
Подобные документы
Подсчет количества отрицательных элементов массива. Изменение исходного массива перемещением всех его положительных элементов в начало с исходным порядком их следования. Вывод на дисплей количества перемещенных элементов. Алгоритм и код программы.
лабораторная работа [946,5 K], добавлен 23.11.2014Общая характеристика основ дисциплины "Теория чисел". Интерфейс, листинг и оценка положительных и отрицательных качеств программы-калькулятора CalcKurs, а также описание ее основных процедур – DelOstatok, Factor, NodNok, SuperGorner, Express и AntiExp.
курсовая работа [1,9 M], добавлен 28.05.2010Решения задачи графическим и программным способами. Описание алгоритма решения графическим способом, укрупненная схема алгоритма. Ввод элементов двумерного массива, вывод преобразованного массива, разработка программы на языке pascal, листинг программы.
курсовая работа [115,5 K], добавлен 22.05.2010Результат нахождения количества отрицательных чисел. Листинг программы, задача которой - удаление всех знаков препинания в символьной строке. Приложение вывода списка очередности предоставления мест в общежитии. Форма для расчета валютных операций.
отчет по практике [3,8 M], добавлен 15.06.2015Расчет необходимого объема памяти для записи книги, количества символов в тексте. Создание шестнадцатеричного кода фамилии с помощью таблицы кодировки. Описание алгоритма получения электронного письма. Расположение чисел в порядке их возрастания.
контрольная работа [16,1 K], добавлен 05.07.2014Алгоритм и код программы для создания исходного двоичного файла чисел с произвольным количеством элементов, чтения из файла действительных восьмибайтных элементов и подсчёта общего количества элементов файла. Вывод результата работы программы на экран.
контрольная работа [1,0 M], добавлен 23.11.2014Разработка программы на языке Pascal. Описание переменных. Действия, которые должна выполнить программа согласно выбранного алгоритма. Детализация графической части программы. Листинг и тестирование программы. Вывод массива данных на экран монитора.
контрольная работа [360,4 K], добавлен 13.06.2012Разработка программы обработки числовых последовательностей с кодом на языке Pascal, которая должна выполнять функции ввода количества чисел с клавиатуры, перебора всех возможных сочетаний элементов, определения их сумм и вывода информации на экран.
практическая работа [432,0 K], добавлен 09.04.2010Разработка ввода с клавиатуры и вывода на экран монитора данных с помощью стандартных функций printf и scanf. Ввод количества материальных точек. Работа с линейным списком. Хранение содержимого списка в блоке ячеек памяти с последовательными адресами.
курсовая работа [176,8 K], добавлен 18.01.2016Описание алгоритма решения задачи по вычислению суммы элементов строк матрицы с использованием графического способа. Детализация укрупненной схемы алгоритма и разработка программы для решения задачи в среде Turbo Pascal. Листинг и тестирование программы.
курсовая работа [446,0 K], добавлен 19.06.2014