Контрольная работа по предмету "Информатика"


Программная обработка структурных данных

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


Российской Федерации


Московский государственный университет


Экономики,
статистики и информатики


(МЭСИ)


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


По теме


« Программная обработка


Структурных данных »


Проверил: Смирнов А.А


Оглавление


1. Организация данных в виде массива.


-Описание организации обработки массивов.


-Распечатка текстов программ и результатов выполнения.


2. Обработка экономической информации, организованной в виде массива записей.


-Описание организации обработки массивов записей.


-Распечатка текстов программ и результатов выполнения.


3. Постановка задачи на обработку экономической информации с использованием массива записей


-Описание условия задачи.


-Распечатка текстов программ и результатов выполнения.


Работа состоит из частей
:


Первая часть .
«
Организация данных в виде массива».


Первая часть предусматривает создание программного проекта , обеспечивающего обработку одномерного числового массива. Программный код , должен обеспечить выполнение следующих действий :


Во-первых ,ввод элементов массива;


Во-вторых ,определение местоположение (координаты) максимального элемента в массиве. Если несколько элементов имеют одинаковое максимальное значение ,то выдать координаты всех максимальных элементов.


Вторая часть
.
«
Обработка экономической» информации, организованной в виде массива записей
”.


Вторая часть предусматривает обработку массива, содержащего информацию, выбранную из документа «товарно-транспорная накладная ». Документ содержит следующие реквизиты:


-Во-первых , поставщик . Реквизит представлен в виде символьной строки длиной в 20 символов ;


-Во-вторых , пункт назначение .Реквизит представлен в виде символьной строки длиной в 20 символов ;


-В-третьих, название товара. .Реквизит представлен в виде символьной строки длиной в 20 символов ;


-В-четвертных ,количество . Реквизит представлен в виде числа ,не имеющего дробной в 20 символов


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


При выполнение второй части требуется разработать, программный код ,обеспечивающий расчет общей суммы по всем товарам ,имеющимся в накладной .Сумма по каждому из товара на цену товара.


Третья часть «Постанова задачи на обработку экономической информации с использованием массива записей».


При выполнение третьей части требуется самостоятельно сформулировать условие задачи по обработки экономической информации с использованием массива записей ,а также разработать программный проект для решение поставленной задачи.


Первая часть.


«Организация данных в виде массива».


Описание конструкций языка, обеспечивающих обработку массивов


Под массивом понимается упорядоченная совокупность однотипных данных. Все элементы массива имеют имя .Каждый элемент массива имеет один или несколько номеров-индексов. Каждый индекс может изменяться от одного до некоторого заданного числа N .причем величина N неизменна и определяет размеры массива .Если для обращения к элементу используется 1 индекс ,то это одномерный массив.


Для создания массива необходимо предварительно задать его диапазон значений и тип элементов .Это делает в разделе Type программного кода , причем оператор выглядит следующим образом :[<1> =Array [1..N1, 1 .. N2 ...] of <2>,где <1> -название типа массива , N1,2…-размеры массива по данному измерению , <2> - тип элементов массива.


Для выделения оперативной памяти для элементов массива требуется задать описание массива в разделе Var.


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


Программный
код


Program max ;


{$APPTYPE CONSOLE}


Uses


SysUtils;


var


A: array[1..30] of integer;


m ,n ,i : integer;


begin


writeln (‘vvedite kol-vo elementov ‘);


readln (n);


writeln (‘vvedite massiv’);


for i:=1 to n do


readln (A[i]);


m :=-maxint;


for I : =1 to n do


if A[i] >m then


m:=A[i];


writeln(‘koordinati’);


for I :=1 to n do


if A[i] =m then


writeln (I);


readln;


end.



Вторая часть .


«Обработка экономической информации, организованной в виде массива записей ».


Особенности обработки информации, организованной в виде массива записей .


Представление информации в виде массива записей используется для организации экономической информации в оперативной памяти.


Совокупность реквизитов, составляющих 1 документ. Представляется в виде отдельного элемента массива. При определении массива записей в разделе Typeразмерность массива записей определяется максимально возможным количеством обрабатываемых документов .Количество элементов массива будет соответствовать числу выделенных документов или введенных строк в многострочных документах.


Программный
код


program Project2;


{$APPTYPE CONSOLE}


uses


SysUtils;


type


TStpost=record


prod :string[10];


post :string[20];


potr :string[20];


sum :real;


end;


T_Array_TStPost=Array[1..40]of TStPost;


var


StPost: T_Array_TStPost;


N,I:integer;


Max:real;


MaxPost :string[20];


begin


{ TODO -oUser -cConsole Main : Insert code here }


writeln ('Vvedite kolichestvo zapicei ');


readln (N);


writeln ('Vvedite document');


For I:=1 to N do


begin


writeln ('Vvediteln kod prodykcii');


readln (StPost[I].Prod);


writeln ('kod postavshika prodykcii');


readln (StPost[I].Post);


writeln ('kod potrebileta prodykcii ');


readln (StPost[I].Potr);


writeln ('symma postavlennoi prodykcii ');


readln ( StPost[I].Sum );


end;


Max:=-MaxInt;


For I:=1 to N do


if StPost[I].Sum > Max then


begin


Max:= StPost[I].Sum ;


MaxPost := StPost[I].Post;


end;


writeln ('pstavshik ',MaxPost);


readln;


end.




Третья часть


«Постановка задачи на обработку экономической информации с использованием массива записей»


Условие:


Имеется отчет о поступлении денег с разных городов на приобретение билетов в форме массива записей со следующими реквизитами:


Во –первых ,город ,откуда поступили деньги .Реквизит представлен в виде символьной строки длиной в 20 символов ;


Во-вторых ,ответственный ,принявший деньги . Реквизит представлен в виде символьной строки длиной в 20 символов ;


В-третьих ,имя сдавшего деньги . Реквизит представлен в виде символьной строки длиной в 20 символов ;


В-четвертых, количество билетов . Реквизит представлен в виде числа, не имеющего дробную часть.


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


Программный
код


Program econom;


{$APPTYPE CONSOLE}


Uses


SysUtils;


Type


M_class=record


Imya : String [20];


Otvestv : String [20];


Gorod : String [20];


Kolichestvo :integer ;


Cena :real;


End;


M_Array_class=Array [1..40] of M_class;


Var


M :M_Array_class;


N,I,KolVo:integer ;


Sum ,Sum0,SrCena :real;


C_Imya : string[20];


Begin


Writeln (‘Vvdite kolichestvo zapicei’);


Readln (N);


Writeln (‘Vvdite document ‘);


For I:=1 to N do


Begin


Writeln (‘Imya’);


Readln (M[I].Imya);


Writeln (‘gorod’);


Readln (M [I].Gorod);


Writeln (‘Otvetstvennij’);


Readln ( [I].Otvetstv);


Writeln (‘Kolichestvo’);


Readln (M [I].Kolichestvo);


Writeln (‘Cena bileta’);


Readln (M [I].Cena);


End;


Writeln (‘Zdaite imya’);


Readln (C_Imya);


Sum :=0;


KolVo :=0;


SrCena :=0;


For I :=1 to N do


Begin


KolVo :=KolVo +M[I].Kolichestvo;


SrCena := SrCena +M[I].Cena;


If M[I].Imya=C_Imya then


Sum := Sum +M[I].Kolichestvo*M[I].Cena;


End;


Sum0 :=KolVo *SrCena;


Writeln (‘summa ‘,Sum:8:2);


Readln;


End.




Не сдавайте скачаную работу преподавателю!
Данную контрольную работу Вы можете использовать для выполнения своих заданий.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :