Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Задача.
Задан двумерный массив целых чисел. Определить количество четных чисел в массиве.
Составим процедуру ввода элементов массива;
функцию подсчета количества четных чисел;
процедуру вывода двумерного массива в виде матрицы.
№ | Наименование переменной | Обозначения в программе |
Имя массива | a | |
Количество строк | n | |
Количество столбцов | m | |
Индексы массива | I,j |
program pp_1;
type
mas=array[1..10,1..10] of integer;
var
a:mas; n,m,i,j:integer;
{ Процедура ввода массива }
procedure input_mas(n,m:integer; var a:mas);
begin
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
end;
{Функция подсчета количества нечетных чисел}
function kol(n,m:integer; a:mas):integer;
var
k:integer;
begin
kol:=0;
for i:=1 to n do
for j:=1 to n do
if not odd(a[ i,j ]) then k:=k+1;
kol:=k;
end;
{Процедура вывода матрицы}
procedure print_mas(n,m:integer; a:mas);
begin
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j],‘ ‘);
writeln;
end;
end;
{Исполнительная часть основной программы}
begin
writeln(‘Введите n<=10, m<=10’);
readln (n,m);
writeln(‘Введите элементы массива по строкам’);
input_mas(n,m,a);
writeln(‘Исходная матрица’);
print_mas(n,m,a);
writeln(‘Количество нечетных чисел =’,kol(n,m,a));
readln;
end.
Вопросы для самоконтроля
Методические указания для выполнения практического задания №9. «Подпрограммы»
Цель работы: Ознакомиться со структурой программы, содержащей процедуру или функцию, использовать глобальные и локальные переменные, применять формальные и фактические параметры.
Задание:
1. В приложении 10 выбрать свой вариант задания.
2. Выполнить практическое задание №9, используя пример программы с использованием подпрограмм
3. Составить блок-схему алгоритма.
4. Написать программу и отладить ее по заранее подготовленному тесту.
5. Оформить задание в тетради для практических работ.
6. Результат выполнения программы предъявить преподавателю.
7. Ответить на вопросы самоконтроля.
8. Защитить выполненную работу у преподавателя.
Приложение 10. Таблица вариантов заданий
Дата публикования: 2014-11-02; Прочитано: 589 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!