ПОИТ Контрольная работа по основам алгоритмизации.№1-21
.docБЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ
Кафедра программного обеспечения информационных технологий
Факультет ЗВиДО
Специальность ПОИТ
Контрольная работа № 1
по дисциплине «Основы алгоритмизации и программирования»
часть 1
Задача № 21
-
Ввести матрицу А (5,7). Найти и вывести сумму элементов каждой строки и максимальную сумму элементов. Контрольная работа №1
А) Схема алгоритма в соответствии с ГОСТ 19.701-90
Б) Схема алгоритма в соответствии методом Дамке
В) Схема алгоритма в используя диаграмму Насси-Шнейдермана
Д) Текст программы с комментариями:
А) Схема алгоритма в соответствии с ГОСТ 19.701-90
Б) Схема алгоритма в соответствии методом Дамке
В) Схема алгоритма в используя диаграмму Насси-Шнейдермана
Д) Текст программы с комментариями:
program Kontrolnaya_1;
{901022-20 ПОИТ 1-й курс Пархейчук Э.А.
Задача 21. Ввести матрицу А (5,7). Найти и вывести сумму элементов каждой
строки и максимальную сумму элементов.}
uses CRT; {подключаем модуль CRT для использования процедуры ClrScr}
var {}
A:array [1..5,1..7] of real; {матрица A[5,7]}
B:array [1..5] of real; {массив для запоминания сумм элементов в строке}
i,j,c,i_max:integer; {i-номер строки, j-номер столбца,
i_max-номер строки с максимальной суммой}
MAX:real; {запоминает максимальную сумму строк}
begin
ClrScr; {стираем все на пользовательском экране}
{выводим на экран меню выбора способа ввода матрицы}
Writeln('Выберите способ ввода матрицы');
Writeln('1. Вручную');
Writeln('2. Случайно');
Write('Ваш выбор: ');
Readln(c);
MAX:=0;
i_max:=0;
for i:=1 to 5 do
begin
B[i]:=0;
for j:=1 to 7 do
begin
{ввомдим матрицу А в зависимости от выбранного способа}
case c of
1: begin {ручной ввод с клавиатуры}
write('A[',i,',',j,']=');
readln(A[i,j]); {Cчитывание с клавиатуры}
end;
2: begin
A[i,j]:=(Random(1000)-Random(1000))/100;{Заполнение случайными числами}
Write(A[i,j]:10:4,'|'); {Построчный вывод на экран элементов матрицы А}
end;
else Write('Запустите программу сначала и задайте правильно выбор');
end;
B[i]:=B[i]+A[i,j]; {Вычисление суммы элементов строки}
end;
Writeln('Сумма элементов строки №',i, ' =', B[i]:10:4); {}
{Вычисление максимального значения суммы элементов в строках матрицы А}
end;
{Вычисление максимального значения суммы элементов в строках матрицы А}
MAX:=B[1];
for i:=2 to 5 do
if MAX<B[i] then
begin
MAX:=B[i];
i_max:=i; {запоминание номера строки в которой наибольшая сумма элементов}
end;
{Вывод на экран максимального значения суммы элементов в строках матрицы А}
Writeln('Максимальная сумма элементов находится в строке №',i_max,' =', MAX:10:4);
end.