Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство науки и образования
Алматинский Колледж Экономики и Права
Отчет
По учебной практике по предмету
«Основы Алгоритмизации и Программирования»
«Руководитель _________________ Н.К.Каздаева«___»____________20__г.
«Выполнил ___________________ М.А.Устьянцев«___»____________20__г.
Алматы 2013г.
№ документа
Подпись
Изм.
Лист
Утв.
Н. Контр.
Рецензент
Руковод.
Студент
.
Каздаева Н.К..
Устьянцев М.А.
У
Литера
2Руковод.
Лист
Л
ст
в
АКЭП 207-П
СОДЕРЖАНИЕ
1 Общая часть
1.1 Данные регулярного типа
1.2 Данные строкового типа
1.3 Данные множественного типа
2 Специальная часть
2.1 Задача №1
2.1.1 Постановка задачи
2.1.2 Входные и выходные данные
2.1.3 Алгоритм решения задачи
2.1.4 Блок схема
2.1.5 Таблица идентификаторов
2.1.6 Контрольные примеры
2.1.7 Листинг программы
2.2 Задача №2
2.2.1 Постановка задачи
2.2.2 Входные и выходные данные
2.2.3 Алгоритм решения задачи
2.2.4 Блок схема
2.2.5 Таблица идентификаторов
2.2.6 Контрольные примеры
2.2.7 Листинг программы
2.3 Задача №3
2.3.1 Постановка задачи
2.3.2 Входные и выходные данные
2.3.3 Алгоритм решения задачи
2.3.4 Блок схема
2.3.5 Таблица идентификаторов
2.3.6 Контрольные примеры
2.3.7 Листинг программы
3 Заключение
4 Список литературы
Лист
№ Документа
Подпись
Изм.
Лист
2 Специальная часть
2.1 Задача №1
2.1.1 Постановка задачи
Дана вещественная матрица nxn. Ввести элементы матрицы. Распечатать в виде таблице. Вычислить сумму элементов, расположенных над главной диагональю.
2.1.2 Входные и выходные данные
Входные данные
А- матрицы(nxn)
Выходные данные
S- сумма элементов матрицы, расположенных на главной диагональю
2.1.3 А. решения
С начало я заполняю матрицу(nxn) с клавиатуры в процедуре zap_m, затем вывожу матрицу А на экран в процедуре vevod_m. В конце вычисляю сумму элементов матрицы А, расположенных над главной диагональю.
2.1.4 Блок-схема подпрограмм
Я использовал 2 процедуры, первая процедура заполнения матрицы (ввод матрицы с клавиатуры) zap_m у этой процедуры нет параметров, т.к. используется одна переменная- это матрица А, вторая процедура эта вывод матрицы на экран(vevod_m) у этой процедуры так же нет параметров, т.к. используется одна переменная- это матрица А.
Лист
№ Документа
Подпись
Изм.
Лист
Основная программа Процедура заполнения матрицы А
Zap_m
Начало
I=1,m
Zap_m
J=1,n
Vevod_m
S=0
I=1,m
Zap_m
J=1,n
S=S+A[I,j]
S
Конец
Лист
№ Документа
Подпись
Изм.
Лист
Процедура вывода матрицы на экран
Vevod_m
I=1,m
J=1,n
Vevod_m
2.1.5 Таблица идентификаторов
Идентификатор |
Смысловое значение |
Тип |
|
А |
Элемент матрицы(nхn) |
Вещественный |
|
I,j |
Счётчик |
Целочисленный |
|
S |
Сумма элементов матрицы, расположенных над главной диагональю |
Вещественный |
Лист
№ Документа
Подпись
Изм.
Лист
2.1.6 Контрольные примеры
С начало заполняемзначения матрицы А с клавиатуры вещественным типом и выводим матрицу А на экран. Я заполнил матрицу 3х3 вещественными значениями.
1,5 |
0,2 |
0,5 |
1,1 |
2,1 |
2,2 |
3,1 |
3,2 |
3,3 |
Потом вычисляю сумму элементов матрицы А, расположенных над главной диагональю. В конце вывожу сумму элементов матрицы А, расположенных над главной диагональю.
Program matrix_1;
uses crt;
const
m=5;
n=5;
type
vektor=array[1..m] of real;
matrix=array[1..n] of vektor;
var
A,G:matrix;
i,j:byte;
k:real;
procedure z_m;
var
i,j:byte;
begin
for i:= 1 to m do
for j:= 1 to n do
read(A[i,j]);
end;
procedure v_m;
var
i,j:byte;
begin
Лист
№ Документа
Подпись
Изм.
Лист
for i:= 1 to m do
begin
for j:= 1 to n do
write(A[i,j]:4:2);
writeln;
end;
end;
begin
clrscr;
z_m;
v_m;
readkey;
k:=0;
k:=k+A[i,j];
for i:= 1 to m do
begin
for j:= 1 to m do
begin
if A[i,j]>0 then G[i,j]:=A[i,j]*k
else
if A[i,j]<0 then G[i,j]:=A[i,j]+k;
write(G[i,j]:5:2);
end;
writeln;
end;
readkey;
end.
Лист
№ Документа
Подпись
Изм.
Лист
3 Заключение
Лист
№ Документа
Подпись
Изм.
Лист
4 Список литературы