10207

Использование модулей при написании программного кода

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 8 Тема: Модули Цель работы: отработать навыки использования модулей при написании программного кода. Образец решения задачи. Задача № 1. Вставьте в двумерный массив строку из нулей после строки с номером t. Анализ постановки задачи В задаче ...

Русский

2013-03-21

69.5 KB

1 чел.

Лабораторная работа № 8

Тема: Модули

Цель работы: отработать навыки использования модулей при написании программного кода.

Образец решения задачи.

Задача № 1. Вставьте в двумерный массив строку из нулей после строки с номером t.

Анализ постановки задачи

В задаче опишем два модуля. В первом модуле опишем объекты программы, которые будут использоваться не только в основной программе, но и в других модулях. Во втором модуле будут находиться процедуры обработки данных.

Функциональная структура алгоритма

Текст программы

{Модуль 1, содержащий описания используемые, как в основной программе, так и в другом модуле}

unit op;

interface

const   MaxN=100; MaxM=80;

type     TMyArray=Array[1..MaxN, 1..MaxM] of Integer;

implementation

end.

{Модуль 2, содержащий процедуры ввода, вывода, сдвига строк и заполнение  строки t - нулями}

unit sdvig;

interface

 uses op;

 procedure Zapolnenie(v, w: integer; var X :TMyArray);

 procedure Vivod (v, w: integer; X :TMyArray);

 procedure SdvigStr (v, w, r: integer; var X :TMyArray);

 procedure InsertStr (w, r: integer; var X :TMyArray);

implementation

  var i, j : integer;

procedure Zapolnenie;

begin

For i:=1 to v do

 For j:=1 to w do

  X[i, j]:=random(20)-10;

end;

procedure Vivod;

begin

For i:=1 to v do

begin

 For j:=1 to w do  write(X[i, j], ‘ ‘);

 Writeln;

 end;

end;

procedure SdvigStr;

begin

For i:=v downto r+1 do

            For j:=1 to w do  X[i+1, j]:= X[i, j];

end;

procedure InsertStr;

begin

For j:=1 to w do  X[r+1, j]:=0;

end;

end.

{Основная программа}

uses op, sdvig;

var       A           : TMyArray;

           n, m, t     : Integer;

begin

Writeln(‘введите количество строк <100 и столбцов <=80’);

Readln(n, m);

If (n>=100) or (m>80) then Writeln(‘Неправильный ввод данных’)

    Else begin

Writeln(‘введите номер строки после которой будет вставляться

строка из нулей’);

Readln(t);

If  t>n then Writeln(‘Неправильный ввод данных’)

        Else begin

   Zapolnenie(n, m, A);

  {вывод элементов заполненного массива}

   Vivod(n, m, A);

   SdvigStr(n, m, t, A);

   InsertStr(m, t, A);

  {вывод элементов измененного массива}

   Vivod(n, m, A);

   end;

end;

end.

Задача № 2. Известна таблица футбольного чемпионата и список команд-участниц. В каждой строке таблицы записано количество побед, ничьих и поражений соответствующей команды. Подсчитать количество сыгранных каждой командой матчей, а также в итоговой таблице команды расположить в порядке убывания завоеванных ими очков.

Анализ постановки задачи.

В данной задаче опишем три модуля. В первом модуле опишем объекты программы, которые будут использоваться не только в основной программе, но и в других модулях. Во втором модуле будут  процедуры ввода-вывода данных. В третьем модуле будут находиться процедуры обработки данных.

Функциональная структура алгоритма

Текст программы

{Модуль 1, содержащий описание данных}

unit op;

interface

const   MaxN = 10; {число команд}

type     TMyArray= array[1..MaxN, 1..5] of integer;

            TArray= array[1.. MaxN] of string[30];     

implementation

end.

{Модуль 2, содержащий процедуры ввода-вывода данных обработки}

unit vv_viv;

interface

 uses op;

 procedure Zapolnenie_Game(v: integer; var X :TMyArray);

 procedure Zapolnenie_Team(v: integer; var X : TArray);

 procedure vivod (v: integer; var X : TMyArray; var Y: TArray );

implementation

  var i, j : integer;

procedure Zapolnenie_Game;

begin

For i :=1 to v do

 For j :=1 to 3 do

                Readln(X[i, j]);

end;

procedure Zapolnenie_Team;

begin

For i :=1 to v do

 Readln(X[i]);

end;

procedure vivod;

begin

    writeln;

    writeln('** Итоговая таблица**');

    writeln('------------------------------------------------------');

    writeln('    Команда    Матчей   Побед   Ничьих   Поражений   Очков');

    writeln('------------------------------------------------------');

    for i := 1 to v do

        begin

           write(i:2,'. ',y[i]);

           for j:=1 to 5 do

                 write(x[i, j]:7);

           writeln;

        end;

    writeln('------------------------------------------------------');

end;

end.

{Модуль 3, содержащий процедуры обработки данных}

unit obrabotka;

interface

 uses op;

 procedure Sum_st4 (v : integer; var X :TMyArray);

 procedure Sum_st5 (v : integer; var X :TMyArray);

 procedure SortStr (v: integer; var X : TMyArray; var Y: TArray );

implementation

  var i, j : integer;

procedure Sum_st4;

begin

For i:=1 to v do

 begin  

        X[i, 4]:=0;

               For j :=1 to 3 do  X[i, 4]:= X[i, 4]+X[i, j];

 end;

end;

procedure Sum_st5;

begin

For i:=1 to v do

       X[i, 5]:= X[i, 1]*3+X[i, 2];

end;

procedure SortStr;

var  n_max, temp1     : integer;

       temp                    : string[30];

begin

  for i:=1 to N-1 do

           begin

             n_max:=i;

             for j:=i+1 to N do

                     if x[j, 5]>x[n_max, 5] then n_max:=j;

            temp:=y[i];

            y[i]:=y[n_max];

            y[n_max]:=temp;

            for j:=1 to 5 do

                    begin

                         temp1:=x[i, j];

                         x[i, j]:=x[n_max, j];

                         x[n_max, j]:=temp1

                    end

          end;  

end;

end.

{Основная программа}

uses op, vv_viv, obrabotka;

var

    Team        : TArray;

    Game       : TMyArray;

     n              : integer;

begin

 Writeln(‘Введите количество команд’);

 Readln(n);

          Zapolnenie_Game (n, Game);

Zapolnenie_Team(n, Team);

 {Подсчет количества матчей 

Sum_st4(n, Game);

{Подсчет количества очков}

Sum_st5(n, Game);

{Сортировка таблицы по столбцу с количеством очков}

     SortStr (n, Game, Team);

    {Вывод итоговой таблицы}

vivod(n, Game, Team);

end.

Задания для самостоятельного решения.

Для задач своего варианта лабораторной работы № 7 написать программы с использованием модулей.

Контрольные вопросы:

1. Модуль начинается заголовком, состоящим из зарезервированного слова ________ и имени модуля.

2. Часть программы, рассматриваемая как самостоятельная синтаксическая единица это _____________________________

3. Зависимость результата работы модуля от исходных данных, но не от работы других модулей называется

ВАРИАНТЫ ОТВЕТОВ:

  1.  функциональной завершенностью
  2.  логической независимостью
  3.  прочностью модуля
  4.  структурированностью данных

4. В модульном программировании борьба со сложность программы осуществляется через

ВАРИАНТЫ ОТВЕТОВ:

  1.  обеспечение небольшого размера модуля
  2.  использование небольшого числа команд
  3.  разбиение на максимальное число модулей
  4.  обеспечение независимости компонент системы, использование иерархических структур

5. Модуль должен иметь:

ВАРИАНТЫ ОТВЕТОВ:

  1.  один вход и несколько выходов
  2.  несколько входов и множество выходов
  3.  множество входов и множество выходов
  4.  один вход и один выход

6. Мера внутренних связей модуля характеризует его

ВАРИАНТЫ ОТВЕТОВ:

  1.  прочность
  2.  сцепление
  3.  сложность
  4.  рутинность

7. Мера зависимости по данным от других модулей характеризует его

ВАРИАНТЫ ОТВЕТОВ:

  1.  прочность
  2.  сцепление
  3.  сложность
  4.  рутинность

8. Если результат обращения к модулю зависит только от значений его параметров, то это  характеризует его

ВАРИАНТЫ ОТВЕТОВ:

  1.  прочность
  2.  сцепление
  3.  сложность
  4.  рутинность

9. Модуль состоит из

ВАРИАНТЫ ОТВЕТОВ:

  1.  декларативной части, исполнительной части
  2.  интерфейсной части, секции реализации, секции инициализации
  3.  интерфейсной части, секции реализации
  4.  декларативной части, исполнительной части, секции инициализации

10. Должно ли имя модуля совпадать с именем файла, в который помещается исходный текст модуля? Если да, то почему?  

11. Является ли модуль выполняемой программой?

12. Какие объекты программы содержит интерфейсная часть модуля?

13. Какие объекты программы содержит секция связи модуля?

14. Является ли обязательной инициализирующая часть модуля?

15. Какие объекты программы может  содержать  инициализирующая часть модуля?


заполнение массива

сдвиг строк

аполнение  строки t - нулями

вывод результата 

задача

Модуль 1

Описание данных

Модуль 2

Обработки данных

заполнение одномерного массива

заполнение двумерного массива

вывод результата в виде таблице 

количество матчей и очков для каждой команды

количество матчей для каждой команды

количество очков для каждой команды

сортировка по столбцу с количеством очков

задача

Модуль 1

Описание данных

Модуль 2

Ввода-вывода данных

Модуль 3

Обработки данных


 

А также другие работы, которые могут Вас заинтересовать

34179. Банковская система: функции и структура 30.8 KB
  В банковскую систему входят специализированные организации обеспечивающие деятельность банков и кредитных учреждений расчетнокассовые и клиринговые центры фирмы по аудиту банков дилерские фирмы по работе с ценными бумагами банков организаций обеспечивающие банки оборудованием информацией кадрами. Сложившаяся банковская система имеет двухуровневую структуру: 1 верхний уровень Центральный банк ЦБ; 2 нижний уровень коммерческие банки и кредитнофинан совые организации . По функциональному назначению и характеру осуществляемых...
34180. Денежно-кредитная система и производство 14.2 KB
  Денежнокредитная система и производство В современной кредитной системе выделяются три основных звена: центральный банк; коммерческие банки; специализированные кредитнофинансовые институты. Коммерческие банки представляют собой главные нервные центры кредитной системы. Кроме того банки могут заниматься посредническими операциями управление имуществом ценными бумагами. Особое место в современной рыночной экономике занимают специализированные кредитнофинансовые институты такие как пенсионный фонд страховые компании инвестиционные и...
34181. Рынок ценных бумаг: содержание, структура, участники 15.25 KB
  Рынок ценных бумаг: содержание структура участники. Рынок ценных бумаг как и любой другой рынок представляет собой сложную организационноправовую систему с определенной технологией проведения операций. Структуру рынка ценных бумаг представляют собой три основных составляющих: предмет торговли т. ценные бумаги и их производные; профессиональные участники; система регулирования рынка.
34182. ГОСУДАРСТВЕННЫЕ ЦЕННЫЕ БУМАГИ ВИДЫ И КЛАССИФИКАЦИЯ ГОСУДАРСТВЕННЫХ ЦЕННЫХ БУМАГ 19.51 KB
  На мировых фондовых рынках обращаются самые различные виды государственных долговых обязательств: облигации векселя ноты сертификаты и др. Существенную долю в структуре внутреннего государственного долга занимают государственные краткосрочные облигации и облигации федерального займа которые непосредственно используются для покрытия дефицита федерального бюджета. В Японии 3 и 6месячные краткосрочные облигации и финансирующие векселя которые выпускаются для покрытия краткосрочных разрывов на срок 60 дней. В Великобритании выпускаются...
34183. Долговые ценные бумаги. Облигации 27.45 KB
  Облигации. оБЛИГАЦИИ Облигация родственна векселю. Поэтому у облигации есть номинальная курсовая и выкупная цены стоимости. Кроме того доход по облигации не зависит от результатов финансовохозяйственной деятельности предприятияэмитента.
34184. Долевые ценные бумаги. Акции 15.86 KB
  Акции. Акции и есть долевые ценные бумаги. Акции могут давать право на получение прибыли в виде дивидендов и участие в управлении компанией. Следует сказать что покупая акции инвестор подвергает свой капитал некоторому риску так как если вдруг у компании дела пойдут плохо то и стоимость акций снизится что может привести к потере всех вложенных денег полностью или частично.
34185. Фондовая биржа: организация, механизм, сделки 18.92 KB
  Организация фондовой биржи представляет собой частные корпорации различные формы акционерных обществ Великобритания и Соединенные Штаты Америки либо в форме ППИ публичноправовых институтов Федеративная Республика Германия и Франция. Если фондовая биржа создана в форме акционерного общества и организована биржевыми дельцами то такие фондовые биржи называются акционерами биржи. Прием в участники биржи является ограниченным; самостоятельная деятельность на фондовой биржи является монополизация членов. Главной в структуре организации...
34186. Макроэкономический анализ 16.61 KB
  НАЦИОНАЛЬНОЕ СЧЕТОВОДСТВО комплексная система понятий которые объясняют создание распределение перераспределение и использование валового национального продукта и национального дохода в рамках экономической системы с определенной структурой и закономерностями функционирования. Модель национального счетоводства ООН можно рассматривать как некоторую теоретическую концепцию которая включает в себя: а описание продукта и дохода нации а также их движение с точки зрения равенства инвестиций и сбережений; б модель межотраслевого баланса В....
34187. ВВП и способы его измерения 19.04 KB
  Распределительный по доходам использование потоков доходов средств. Доходы получают владельцы факторов производства. Различают два вида доходов: трудовые и на собственность предпринимательский.