У вас вопросы?
У нас ответы:) SamZan.net

Основы Алгоритмизации и Программирования Руководитель

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 5.4.2025

Министерство науки и образования

Алматинский Колледж Экономики и Права

Отчет

По учебной практике по предмету

«Основы Алгоритмизации и Программирования»

«Руководитель _________________ Н.К.Каздаева«___»____________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

 

 

Потом вычисляю сумму элементов матрицы А, расположенных над главной диагональю. В конце вывожу сумму элементов матрицы А, расположенных над главной диагональю.

  1.  Листинг программы

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 Список литературы

 

 






1. Методы психологической защиты
2. Возникновение мировой социалистической системы выход социализма за пределы одной страны образовани
3. 33 ~медична реабілітація фізіотерапія та курортологія А В Т О Р Е Ф Е Р А Т дисертації на здобуття н.html
4. Китай в III - VI веках
5. Оформление долговых отношений и погашение государственного долга РФ
6. Билеты на группу допуска
7. Реферат- Исследование условий синтеза германатов-висмута (III) в неводных растворителях
8. Божественная канцелярия инсценировка А
9. Реферат- Физиологическая основа ощущений
10. тема антимонопольного регулирования экономики