Федеральное агентство по образованию
Московский государственный открытый университет
Рязанский институт (филиал)
Кафедра информационных технологий
Информатика
отчет
по
лабораторной работе №5
Выполнил студент группы 285
Ерёмин С.Н.
Проверил доцент
Засорин С.В.
Рязань, 2009
Задание №1: Подготовить программу, в которой ввод и вывод элементов одномерного вещественного массива размерностью n, выполняется с помощью процедур
Схема алгоритма:
Начало
Конец
Начало
Ввод элементов массива
Начало
Ввод массива Вывод массива Основная программа
Ввод количества элементов массива
u=1, 1, n u=1, 1, n
Ввод элементов массива
Ввод массива
Вывод массива
Конец
Конец цикла Конец цикла
Конец
Текст программы:
Program Lab5_1;
Type
mass=array[1..9999] of real;
Var
i,n:integer;
f:mass;
Procedure vvod(var b:mass; n:integer);
Var
u:integer;
Begin
Writeln('Vvod massiva');
For u:=1 to n do
Read(b[u])
end;
Procedure vivod(var c:mass; n:integer);
Var
u:integer;
Begin
Writeln('Vivod massiva');
For u:=1 to n do
Write(c[u]:6:2,' ')
end;
Begin
Writeln('Vvedite kolichestvo elementov massiva');
Read(n);
vvod(f,n);
vivod(f,n);
End.
Результаты выполнения:
Vvedite kolichestvo elementov massiva
5
Vvod massiva
43
2
1
0
7
Vivod massiva
43.00 2.00 1.00 0.00 7.00
Vvedite kolichestvo elementov massiva
8
Vvod massiva
1
3
4
3
54
65
43
2
Vivod massiva
1.00 3.00 4.00 3.00 54.00 65.00 43.00 2.00
Задание №2: Дана целочисленная матрица размерности NxN. Используя процедуры, составить программу, в которой выполняется ввод элементов матрицы, и определяются номера ее строк, все элементы которых делятся на 3 без остатка
Схема алгоритма:
Начало
Начало
Начало
Ввод элементов Нахождение кратного Основная программа
Ввод размера матрицы
p=0
i=1, 1, s
Ввод элементов
j=1, 1, s i=1, 1, s