Автор: Пользователь скрыл имя, 22 Ноября 2011 в 22:17, лабораторная работа
С понятием «массив» приходится встречаться при решении научно-технических экономических задач обработки большого количества однотипных значений. Таким образом, массив – это упорядоченная последовательность данных, состоящая из фиксированного числа элементов, имеющих один и тот же тип, и обозначаемая одним числом.
Название «регулярный тип» массивы получили за то, что в них объединены однородные элементы, упорядоченные (урегулированные) по индексам, определяющим положение каждого элемента в массиве.
1.Организация данных в виде массива
1.1. Описание конструкций языка, обеспечивающих организацию данных в виде массива
1.2. Условие задачи на организацию данных в виде массива
1.3. Распечатка программного кода
1.4. Распечатка результатов выполнения
2.Обработка экономической информации, организованной в виде массива записи
2.1 Описание конструкций языка, обеспечивающих обработку экономической информации, организованной в виде массива записи
2.2. Условие задачи на обработку экономической информации, организованной в виде массива записи
2.3. Распечатка программного кода
2.4. Распечатка результатов выполнения
3.Постановка задачи на обработку экономической информации с использованием массива записей
3.1 Описание условия задачи
3.2. Распечатка программного кода
3.3. Распечатка результатов выполнения
4. Использованная литература
uses
SysUtils;
type
T_TTN=record
Post: string[20];
PunktN: string[20];
NazTov: string[20];
Kolich:Integer;
Cena:Real;
end;
T_array_TTN = array [1..40]
of T_TTN;
Var
TTN: T_array_TTN;
N, I: integer;
Sum: Real;
C_PunktN: string[20];
begin
Writeln ('Vveditekolichestvozapisey');
Readln (N);
Writeln ('Vvedite document');
For I:=1 to N do
begin
Writeln ('Vveditekodpostavschika');
Readln (TTN[I].Post);
Writeln ('Vveditepunktnaznacheniya');
Readln (TTN[I].PunktN);
Writeln ('Vveditenazvanietovara');
Readln (TTN[I].NazTov);
Writeln ('Vveditekolichestvo');
Readln (TTN[I].Kolich);
Writeln ('Vveditecenu');
Readln (TTN[I].Cena);
end;
Sum:=0;
For I:=1 to N do
Sum:=Sum+TTN[I].Kolich*TTN[I].
Writeln ('Summa', Sum:1:2);
Readln;
end.
2.4.
Распечатка результатов
3.Постановка
задачи на обработку
экономической информации
с использованием
массива записей.
3.1 Условие
задачи.
В
массиве хранятся данные о должниках
за коммунальные услуги: имя, фамилия,
размер долга. Вывести список граждан,
чей долг превышает двадцать тысяч.
3.2. Распечатка программного кода.
program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
T_TTN=record
KPr: real;
Pr: string[15];
Kol: integer;
Zar:Integer;
sum:integer;
end;
T_array_TTN = array [1..40]
of T_TTN;
Var
TTN: T_array_TTN;
N, I: integer;
max, sum: integer;
begin
Writeln ('Vveditekolichestvozapisey');
Readln (N);
For I:=1 to N do
begin
Writeln ('Vveditekodprofessii');
Readln (TTN[I].KPr);
Writeln ('Vveditenazvaniyeprofessii');
Readln (TTN[I].Pr);
Writeln ('
Readln (TTN[I].Kol);
Writeln ('Vveditesrednyyuzarplatu');
Readln (TTN[I].Zar);
end;
For I:=1 to N do
begin
TTN[I].sum:= TTN[I].Kol*TTN[I].Zar;
Writeln ('zarabotnyi fond ', TTN[i].Pr,'=', TTN[I].sum);
end;
max:=0;
for i:=1 to n do
if TTN[i+1].sum>TTN[i].sum then max:=TTN[i+1].sum;
writeln ('maksimalnyizarabotnyi fond=',max);
Sum:=0;
For I:=1 to N do
Sum:=Sum+TTN[I].Kol*TTN[I].
Writeln ('summa vsehzarplat=', Sum);
Readln;
end.
3.3.
Распечатка результатов
Информация о работе Программная обработка структурных данных