Обработка структурированных данных(процедуры и функции)

@viktory_nvrn · Регистрация: 11.12.2010

Author24 — интернет-сервис помощи студентам

Привет! Ребят, нужно создать заглушки. Буду благодарна за любую помощь.

Разработать программу, которая должна включать:
1) процедуры без параметров для:
а) вывода шапки таблицы;
б) вывода данных одной строки таблицы;
в) ввода и вывода данных массива записей и определения суммы значений элементов
одного столбца массива записей;
г) поиска и вывода требуемых элементов массива записей (строк таблицы) по
заданному варианту поиска; возможные варианты поиска:
д) поиск по одному заданному поисковому признаку;
е) универсальный поиск: по любому сочетанию нескольких заданных поисковых
признаков.
По результатам поиска вывести найденные записи или сообщение о неуспешном поиске;
2) фильтрацию строковых данных с помощью процедуры или функции, удаляющих пробелы в начале и конце строки;
3) смену местами двух элементов массива записей, например первой и последней строк таблицы;
4) объявление и использование нестандартных текстовых файлов для исходных данных тестирования программы и результатов ее выполнения.
В задании определен состав (шапка) таблицы; исходные данные для заполнения таблицы разработать самостоятельно.

Пример программы
Даны сведения о студентах в составе: номера зачетной книжки, наименования группы, фамилии и инициалов, размера стипендии.

88150 ЭВМ 1-2 Петров П.П. 50000
88104 ЭВМ1-1 Ивнов И.И. 30000
88103 ЭВМ1-1 Иванов И.И. 40000
88151 ЭВМ 1-2 Литров П.П. 20000
88200 ЭВМ 1-3 Сидоров С.С. 70550

Исходные данные примера для поиска по фамилии — содержимое файла POI.DAT:

нет данных для поиска

ИВАНОВ 0
ПЕТРОВ 0
СИДОРОВ 0
0 -нет данных для поиска
ИВУНОВ 0

Исходные данные для поиска сведений по любому сочетанию поисковых признаков:
наименования группы и размера стипендии— содержимое файла
ЭВМ1- 40000
ЭВМ1- 60000
ЭВМ1- 0
ЭВМ1- 0
- отсутствии данных для поиска
0

Pascal

PROGRAM LR3_4; {$R+} 
USES CRT;
CONST N = 5;   {  - количество студентов и записей  }
 
TYPE ST = ARRAY   [1..7]   OF STRING   [80]; 
ST1 = STRING[14]; 
STR = RECORD                       { Состав записи:   }
NZ:STRING[6];                      {номер зачетки }
GR:STRING[7];                      {наименование группы}
FIO:ST1;                           {фамилия и инициалы }
R:REAL                             {размер стипендии }
END;
 
CONST С :  ST =  ( { шапка таблицы}
‘              СВЕДЕНИЯ О СОТРУДНИКАХ                                     ‘,
‘ _______________________________________________________‘,
‘|  Номер              |   Гуппа      |   Фамилия   |    Размер           |‘,
‘|зачетной книжки|                  |   Инициалы  |         стипендии |‘,
‘|_______________|___________|___________|_______________|‘,
‘|-----------------|-------------|-------------|-----------------|‘,
‘|_______________|___________|_____________|_____________|‘);
 
VAR Z:ARRAY [1..N] TO STR; {Массив записей}
I,J:BYTE;       { суммарная стипендия }
S:REAL;         { для пропуска символа при вводе }
B:CHAR;         { для перестановки строк таблицы }
STR1:STR;       
FI,             { файлы:  - для исходных данных,}
FR:TEXT;        {           для результатов.}
 
FUNCTION FILTR(STR :ST1):ST1;   FORWARD;
 
PROCEDURE SH;
BEGIN
{ Вывод шапки таблицы }
END;
 
PROCEDURE P;
BEGIN
{Вывод данных одной строки}
END;
 
PROCEDE VIVOD; 
BEGIN
{Вывод массива записей}
END;
 
PROCEDURE VVOD;
BEGIN {Ввод и вывод массива записей
END;
{Поиск данных по фамилии}
PROCEDURE POISK; VAR TFM :  ST1;
LABEL MK;
BEGIN
WRITELN (FR,#10#13,'     ПОИСК СВЕДЕНИЙ ПО ФАМИЛИИ ' );
ASSIGN (FI, 'POI.txt'); 
RESET (FI);
REPEAT
READLN (FI, TFM);          { ВВОД ТРЕБУЕМОЙ ИНФОРМАЦИИ  } TFM := FILTR(TFM);
WRITELN ( FR,'  Найти фамилию: ', ‘ " " ’,  TFM, ‘ " " ’ );
IF TFM = ’ ’  THEN BEGIN    {  - анализ наличия требуемой Ф.И.О.} WRITELN(FR,'  Нет фамилии для поиска! ');
CONTINUE;
END;
FOR I:= 1 TO N DO
IF TFM = FILTR(Z[I].FIO) THEN BEGIN  {  - начало цикла поиска}
P; GOTO MK;                      { - фамилия найдена }
END;                                     { - конец цикла поиска } 
WRITELN  ( FR,‘Фамилия ошибочна'); 
MK: UNTIL EOF ( FI );      { - анализ конца данных для поиска } CLOSE  ( FI );  { - закрыть файл с исходными данными } 
WRITELN  ( FR, 'Поис закончен');
END;
 
PROCEDURE POISKU; BEGIN
{— Поиск по любому сочетанию двух поисковых признаков —} 
END;
 
FUNCTION FILTR; BEGIN
{    Удаление пробелов в начале и в конце строки     }
END;
 
{    ОСНОВНАЯ ПРОГРАММА      }
BEGIN       CLRSCR;
ASSIGN(FR,'REZ.txt'); 
REWRITE(FR) ;
{ Вызов процедур:   }
SH;                           { - вывода шапки }
WOD;                          { - ввода данных }
POISK;                                   { - поиска по фамилии }
POISKU;                      { - поиска по любому сочетанию двух поисковых признаков.}
{ Смена местами двух строк таблицы: } 
STR1:=Z[1]; 
Z[l]:= Z[N]; 
Z[N]:= STR1;
WRITELN  (FR,  #10#13, 'Массив после перестановки строк:'); 
SH; VIVOD;                      { - вывод шапки и результатов } 
CLOSE(FR);                { - закрыть файл с результатами } 
END.

	01.04.2011, 20:13