6. Данные для тестирования программных модулей и программного комплекса в целом

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

Информация о продукции хранится в текстовом файле.

Для ряда переменных выводятся таблицы, графики, круговая и столбиковая диаграммы.

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

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

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

Список используемых источников

1. Огнёва М.В. Кудрина Е.В. Turbo Pascal: первые шаги. Примеры и упражнения. - Саратов: Научная книга, 2008.

2. Культин Н.Б. Turbo Pascal в задачах и примерах. - Спб.: БХВ-Петербург, 2006.

3. Павловская Т.А. Паскаль. Программирование на языке высокого уровня: Учебник для вузов. - СПб.:Питер, 2007.

4. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс. - СПб: Питер, 2001.

5. http://www.pascal.helpov.net/

6. http://bpascal.ru/res/index.php

7. http://delphid.dax.ru/

8. http://fmi.asf.ru/Library/Book/LabInf1/Index.html

9. www.informika.ru

10. www.citforum.ru

Приложение

Program Info_books;

Uses CRT, Un_file, Un_Graph;

Const MaxMenuItem = 7;

{Var Ret: Byte;}

Type TMenu = record

X, Y: Byte;

S: String[55];

End;

Type MasMenu = Array [0..MaxMenuItem] Of TMenu;

Var Menu1, Menu2: MasMenu;

Run: Boolean; {ўлЎа ­ Їг­Єв ¬Ґ­о}

Sel, Ret, fl: Byte;

TC, TB: Byte; {color}

Procedure DrawMenu (Menu: MasMenu; MenuItem: Byte);

Var I: Byte;

Begin

For I:= 0 To MenuItem Do

Begin

GotoXY (Menu[I].X, Menu[I].Y);

Write (Menu[I].S);

End;

End;

Procedure Select (Menu: MasMenu; I: Byte);

Begin

TextBackground(TC); TextColor(TB);

GotoXY (Menu[I].X, Menu[I].Y);

Write (Menu[I].S);

TextBackground(TB); TextColor(TC);

End;

Procedure DeSelect (Menu: MasMenu; I: Byte);

Begin

TextBackground(TB); TextColor(TC);

GotoXY (Menu[I].X, Menu[I].Y);

Write (Menu[I].S);

TextBackground(TB); TextColor(TC);

End;

Function MainMenu (Menu_F: MasMenu; Items, R_Select: Byte):Byte;

Begin

TextBackground(Blue);

TextColor(LightGreen);

ClrScr;

TC:= TextAttr mod 16;

TB:= TextAttr div 16;

DrawMenu (Menu_F, Items);

Sel:= R_Select;

Select (Menu_F, Sel);

Run:= False;

While Not Run Do

Begin

Case ReadKey Of

#13: Run:= True;

#27: Begin

Run:= True;

Sel:= Items;

End;

#0: Case ReadKey Of

#72: Begin

DeSelect (Menu_F, Sel);

If Sel = 0 Then

Sel:= Items

Else Sel:= Sel - 1;

Select (Menu_F, Sel);

End;

#80: Begin

DeSelect (Menu_F, Sel);

If Sel = Items Then

Sel:= 0

Else Sel:= Sel + 1;

Select (Menu_F, Sel);

End;

End;

End;

End;

MainMenu:= Sel;

TextBackground(TB);

TextColor(TC);

ClrScr;

End;

Procedure SecondMenu;

Begin

clrscr;

Menu2 [0].S:= '1. `ЇЁб®Є Є­ЁЈ Ї® ЈагЇЇ ¬'; Menu2 [0].X:= 20; Menu2 [0].Y:=5;

Menu2 [1].S:= '2. `в®Ё¬®бвм вЁа ¦Ґ©'; Menu2 [1].X:= 20; Menu2 [1].Y:=6;

Menu2 [2].S:= '3. ЋЎкҐ¬л вЁа ¦Ґ© Ї® ЈагЇЇ ¬'; Menu2 [2].X:= 20; Menu2 [2].Y:=7;

Menu2 [3].S:= '4. ѓа дЁЄ Ё§¬Ґ­Ґ­Ёп ®ЎйҐЈ® вЁа ¦ '; Menu2 [3].X:= 20; Menu2 [3].Y:=8;

Menu2 [4].S:= '5. ЉагЈ®ў п ¤Ё Ја ¬¬ (ᮮ⭮襭ЁҐ Є­ЁЈ, Ї® ⥬ вЁЄҐ)'; Menu2 [4].X:= 20; Menu2 [4].Y:=9;

Menu2 [5].S:= '6. `в®«ЎЁЄ®ў п ¤Ё Ја ¬¬ (ўлЇгбЄ Є­ЁЈ, Ї® ⥬ вЁЄҐ)'; Menu2 [5].X:= 20; Menu2 [5].Y:=10;

Menu2 [6].S:= '‚л室 '; Menu2 [6].X:= 20; Menu2 [6].Y:=11;

Ret:= 0;

Repeat

Ret:=MainMenu (Menu2,6, Ret);

Case Ret Of

0: Begin

FindAgeTheme;

End;

1: Begin

PriceEditions;

End;

2: Begin

AgeEditions;

End;

3: Begin

GraphArtEditions;

End;

4: Begin

CircleDiagram;

End;

5: Begin

StolbDiagram;

End;

Else Begin

End;

End; {case Ret}

Until Ret = 6;

TextBackground(Black);

TextColor(LightGray);

ClrScr;

End;

Procedure FirstMenu;

Begin

clrscr;

TextBackground(Blue);

TextColor(LightGreen);

Menu1 [0].S:= '1. `®§¤ ­ЁҐ д ©» '; Menu1 [0].X:= 20; Menu1 [0].Y:= 5;

Menu1 [1].S:= '2. «®Ў ў «Ґ­ЁҐ ¤ ­­ле'; Menu1 [1].X:= 20; Menu1 [1].Y:= 6;

Menu1 [2].S:= '3. ђҐ¤ ЄвЁа®ў ­ЁҐ ¤ ­­ле'; Menu1 [2].X:= 20; Menu1 [2].Y:= 7;

Menu1 [3].S:= '4. ‡ Їа®бл'; Menu1 [3].X:= 20; Menu1 [3].Y:= 8;

Menu1 [4].S:= ' ‚л室 '; Menu1 [4].X:= 20; Menu1 [4].Y:= 9;

Ret:= 0;

Repeat

Ret:=MainMenu (Menu1,4, Ret);

Case Ret Of

0: Begin

NewFile;

End;

1: Begin

AddFile;

End;

2: Begin

EditFile;

End;

3: Begin

SecondMenu;

End;

Else Begin

Ret:=4;

End;

End; {case Ret}

Until Ret = 4;

End;

Begin

Presentation;

FirstMenu;

End.

Unit Un_File;

Interface

uses Crt, Graph;

type

TBook=Record

Author:string[20];

Name:string[25];

Age:char;

Theme:char;

Price:real;

Edition:integer;

Month: Byte;

End;

Symbol=set of char;

PrArr=Array [1..5] of real;

EdArr=Array [1..5] of integer;

MonArr=Array [1..12] of integer;

ThArr=Array [1..5] of string[20];

Procedure NewFile;

Procedure AddFile;

Procedure EditFile;

Procedure InputBook (var InpBook:TBook);

Procedure Presentation;

Implementation

Var

Book:TBook; {Переменная пользовательского типа}

f, f2:file of TBook;

k, n: Byte;

s1: Boolean;

FileName:string[10];

ch:char;

S_Age, S_Theme: Symbol;

ThMas: ThArr;

Procedure Presentation;

Begin

clrScr;

TextBackground(Blue);

TextColor(LightGreen);

GotoXY (35,5);

Writeln('Программа');

GotoXY (20,6);

Writeln ('Информационная система анализа выпуска продукции ');

GotoXY (30,7);

Writeln ('книжного издательства');

{Writeln;}

GotoXY (20,9);

Writeln ('Для продолжения работы нажмите любую клавишу');

Readln;

End;

{Процедура ввода записи}

Procedure InputBook (var InpBook:TBook);

var

i, fl, m, n:integer;

ch:char;

Begin

with InpBook do

Begin

Writeln ('Введите данные');

Write ('Автор: ');

Readln(Author);

Write ('Название: ');

Readln(Name);

Writeln ('Возрастная группа (Д-детская, Ю-юношеская, В-взрослая): ');

Readln(ch);

While not (ch in S_Age) do

Begin

write ('Ошибка при вводе группы. Повторите ввод. ');

Readln(ch);

End;

Age:=ch;

Write ('Тематическая группа: ');

Write ('У-учебная, Х-художественная, П-публицистика, И-искусство, Н-научная ');

Readln(ch);

While not (ch in S_Theme) do

Begin

write ('Ошибка при вводе группы. Повторите ввод. ');

Readln(ch);

End;

Theme:=ch;

Write ('Отпускная цена: ');

Readln(Price);

Write ('Тираж: ');

Readln(Edition);

Write ('Месяц выпуска (цифрами): ');

Readln(m);

While (m<0) or (m>13) do

Begin

writeln ('Неправильно введен месяц. Повторите ввод.');

Readln(m);

End;

Month:=m;

End;

End;

{Процедура создания нового файла}

Procedure NewFile;

var

i, fl, m, n:integer;

ch:char;

Begin

Clrscr;

Writeln ('Создание файла');

Writeln ('Введите имя создаваемого файла');

Readln(FileName);

Assign (f, FileName);

{$I-}

Rewrite(f);

{$I+}

if IOResult=0 then

Begin

fl:=1;

while fl=1 do

Begin

InputBook(Book);

Write (f, book);

Writeln ('Продолжить ввод? 1-Да, 0-Нет');

Readln(fl);

clrscr;

End;

close(f);

End

Else

Begin

writeln ('Ошибка при работе с файлом');

readln;

End;

End;

{Процедура дополнения файла}

Procedure AddFile;

var

i, fl, m:integer;

ch:char;

Begin

Clrscr;

Writeln ('Дополнение файла');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

Seek (f, FileSize(f));

fl:=1;

while fl=1 do

Begin

InputBook(Book);

Write (f, book);

Writeln ('Продолжить ввод? 1-Да, 0-Нет');

Readln(fl);

clrscr;

End;

close(f);

End

else

Begin

writeln ('Файл не найден');

readln;

end;

End;

Procedure EditFile;

var

i, fl, num, k, m:integer;

ch:char;

Begin

Clrscr;

Writeln ('Вывод файла');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

fl:=1;

while fl=1 do

Begin

seek (f, 0);

i:=1;

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

writeln ('| № | Автор | Название |Возр.|Тем.| Отп. |Тираж|Месяц|');

writeln ('| | | |гр. |гр. | цена | |вып. |');

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

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

if ((i mod 20)<>1) or (i<20) then

begin

write ('|', i:3,'|', author:15,'|', name:20,'| ', Age, ' | ');

writeln (Theme, ' |', Price:8:2,'|', Edition:5,'| ', Month:2,' |');

end

else readln;

end;

i:=i+1;

end;

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

writeln;

k:=0;

while k=0 do

begin

write ('Введите номер записи, которую надо исправить: ');

readln(num);

while num>i do

begin

writeln ('Записи с таким номером нет. Общее число записей n=', i);

write ('Повторите ввод. ');

Readln(num);

end;

seek (f, num-1); {Поиск записи с указ номером (нумерация записей с 0)}

read (f, book);

write ('Исправляемая запись: ');

with Book do

Begin

writeln ('№ ', num:3,' Автор: ', author, ' Название ', name);

end;

write ('Исправить - 1, выбрать другую запись - 0 ');

readln(k);

end;

seek (f, filepos(f) - 1); {возвращение к изменяемой записи}

clrscr;

InputBook(book);

Write (f, book);

Writeln ('Изменить еще одну запись 1-Да, 0-Нет');

Readln(fl);

End;

close(f);

End

else

begin

writeln ('Файл не найден');

readln;

end;

End;

Begin

S_Age:=['Д', 'Ю', 'В'];

S_Theme:=['У', 'Х', 'П', 'И', 'Н'];

End.

Unit Un_Graph;

Interface

uses Crt, Graph;

type

TBook=Record

Author:string[20];

Name:string[25];

Age:char;

Theme:char;

Price:real;

Edition:integer;

Month: Byte;

End;

Symbol=set of char;

PrArr=Array [1..5] of real;

EdArr=Array [1..5] of integer;

MonArr=Array [1..12] of integer;

ThArr=Array [1..5] of string[20];

Procedure PriceEditions;

Procedure AgeEditions;

Procedure GraphArtEditions;

Procedure CircleDiagram;

Function RealToStr (r:real; n, m:integer):string;

Procedure StolbDiagram;

Procedure FindAgeTheme;

Implementation

Var

Book:TBook; {Переменная пользовательского типа}

f:file of TBook;

k, n: Byte;

s1: Boolean;

FileName:string[10];

ch:char;

S_Age, S_Theme: Symbol;

ThMas: ThArr;

{Процедура вывода стоимости тиражей по группам}

Procedure PriceEditions;

var

PrEd: PrArr;

i, j:integer;

MaxPr:real;

Str:string[20];

Begin

Clrscr;

Writeln ('Стоимость тиражей по группам');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

i:=1;

writeln;

Writeln ('Стоимость тиражей по группам');

writeln;

writeln ('|-|-|');

writeln ('| Тематическая | Стоимость,|');

writeln ('| группа | тыс. руб. |');

writeln ('|-|-|');

For i:=1 to 5 do

PrEd[i]:=0;

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

if Theme='У' then

PrEd[1]:=PrEd[1]+Price*Edition/1000;

if Theme='Х' then

PrEd[2]:=PrEd[2]+Price*Edition/1000;

if Theme='П' then

PrEd[3]:=PrEd[3]+Price*Edition/1000;

if Theme='И' then

PrEd[4]:=PrEd[4]+Price*Edition/1000;

if Theme='Н' then

PrEd[5]:=PrEd[5]+Price*Edition/1000;

end;

end;

close(f);

For i:=1 to 5 do

Begin

For j:=4 downto 1 do

if PrEd[j]>PrEd [j+1] then

Begin

MaxPr:=PrEd[j];

PrEd[j]:=PrEd [j+1];

PrEd [j+1]:=MaxPr;

Str:=ThMas[j];

ThMas[j]:=ThMas [j+1];

ThMas [j+1]:=Str;

End;

End;

For i:=1 to 5 do

writeln ('|', ThMas[i]:20,'| ', PrEd[i]:7:2,' |');

writeln ('|-|-|');

readln;

End

else writeln ('Файл не найден');

End;

{Процедура определения объема тиражей по возрастным группам}

Procedure AgeEditions;

var

AgEd: EdArr;

AgMas: ThArr;

i, j:integer;

Begin

Clrscr;

Writeln ('Общие объемы тиражей по возрастным группам');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

i:=1;

writeln;

Writeln ('Общие объемы тиражей');

writeln;

writeln ('|-|-|');

writeln ('| Возрастная | Общий объем |');

writeln ('| группа | тиражей |');

writeln ('|-|-|');

AgMas[1]:='Детская';

AgMas[2]:='Юношеская';

AgMas[3]:='Взрослая';

For i:=1 to 3 do

AgEd[i]:=0;

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

if Age='Д' then

AgEd[1]:=AgEd[1]+Edition;

if Age='Ю' then

AgEd[2]:=AgEd[2]+Edition;

if Age='В' then

AgEd[3]:=AgEd[3]+Edition;

end;

end;

close(f);

For i:=1 to 3 do

writeln ('|', AgMas[i]:15,'| ', AgEd[i]:7,' |');

writeln ('|-|-|');

readln;

End

else writeln ('Файл не найден');

End;

{Процедуры построения графика изменения

тиражей книг по искусству по месяцам}

Procedure GraphArtEditions;

var

MonEd: MonArr;

i, j, x0, y0, px, py:integer;

grDriver:integer;

grMode:integer;

grPath:string;

StX, StY: String[10];

ErrCode:integer;

Step, Max, Min, GradX, GradY, mx, x, y, x1, y1:real;

Flag: Boolean;

Begin

Clrscr;

Writeln ('График изменения общего тиража книг по искусству по месяцам');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

i:=1;

For i:=1 to 12 do

MonEd[i]:=0;

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

for i:=1 to 12 do

if Month=i then

MonEd[i]:=MonEd[i]+Edition;

end;

end;

close(f);

For i:=1 to 12 do

write ('|', i:5);

writeln ('|');

For i:=1 to 12 do

write ('|', MonEd[i]:5);

writeln ('|');

readln;

clrscr;

grDriver:=VGA;

grMode:=VGAHi;

grPath:='tp\bgi';

InitGraph (grDriver, grMode, grPath);

ErrCode:=GraphResult;

if ErrCode <> grOK then

begin

writeln ('Ошибка инициализации графического режима.');

writeln ('Для завершения нажмите <enter>');

readln;

Halt(1);

end;

x0:=50;

y0:=400;

{координатные оси}

line (10, y0,600, y0);

line (x0,10, x0,470);

{Построение графика}

Step:=550/(GetMaxY-40);

Max:=MonEd[1];

Min:=MonEd[1];

For i:=2 to 12 do

Begin

If Max<MonEd[i] then Max:=MonEd[i];

If Min>MonEd[i] then Min:=MonEd[i];

End;

Min:=-5;

Max:=Max+5;

GradX:=GetMaxX/20;

GradY:=GetMaxY/(Max-Min);

{Coord (-2,15, Min, Max);}

Flag:=True;

mx:=60;

For i:=1 to 12 do

Begin

px:=Round (GradX*(mx-60));

py:=Round (GradY*(Max-MonEd[i]));

Str((MonEd[i]), StY);

OuttextXY (30, py, StY);

Str (i, StX);

OuttextXY (px+60,410, StX);

mx:=mx+Step;

End;

mx:=60;

For i:=1 to 12 do

Begin

px:=Round (GradX*(mx-60));

py:=Round (GradY*(Max-MonEd[i]));

If Flag Then

MoveTo((px+60), py);

LineTo((px+60), py);

Flag:=false;

mx:=mx+step;

End;

readln;

CloseGraph;

End

else

Begin

writeln ('Файл не найден');

readln;

End;

End;

{Процедура построения круговой диаграммы}

Procedure CircleDiagram;

var

Ed: EdArr;

Part: PrArr;

{ThMas: ThArr;}

i, j, mon:integer;

sum:real;

a1, a2:integer;

x, y:integer;

St:string;

grDriver:integer;

grMode:integer;

grPath:string;

ErrCode:integer;

Begin

Clrscr;

Writeln ('Построение круговой диаграммы: ');

Writeln (' «Процентное соотношение книг по тематическим группам за месяц» ');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Writeln ('Введите месяц (цифрами)');

Readln(Mon);

for i:=1 to 5 do

Ed[i]:=0;

i:=1;

sum:=0;

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

if Month=Mon then

Begin

if Theme='У' then

Ed[1]:=Ed[1]+Edition;

if Theme='Х' then

Ed[2]:=Ed[2]+Edition;

if Theme='П' then

Ed[3]:=Ed[3]+Edition;

if Theme='И' then

Ed[4]:=Ed[4]+Edition;

if Theme='Н' then

Ed[5]:=Ed[5]+Edition;

sum:=sum+Edition;

end;

end;

end;

close(f);

readln;

clrscr;

grDriver:=VGA;

grMode:=VGAHi;

grPath:='tp\bgi';

InitGraph (grDriver, grMode, grPath);

ErrCode:=GraphResult;

if ErrCode <> grOK then

begin

writeln ('Ошибка инициализации графического режима.');

writeln ('Для завершения нажмите <enter>');

readln;

Halt(1);

end;

{Вычислим долю каждой категории в общей сумме}

for i:=1 to 5 do

Part[i]:=Ed[i]/sum*100;

{Строим диаграмму}

a1:=0;

x:=350;

y:=100;

for i:=1 to 5 do

Begin

{Сектор}

a2:=a1+Round (3.6*Part[i]);

if a2>360 then

a2:=360;

SetFillstyle (SolidFill, i);

PieSlice (200,200, a1, a2,100);

a1:=a2; {Следующий сектор}

Bar (x, y, x+30, y+10);

Rectangle (x, y, x+30, y+10);

Str (Part[i]:7:2, st);

OutTextXY (x+50, y, ThMas[i]+' - '+st+' % ');

y:=y+20;

end;

readln;

CloseGraph;

End

else

Begin

writeln ('Файл не найден');

readln;

End;

End;

{Столбиковая диаграмма}

Function RealToStr (r:real; n, m:integer):string;

var st:string;

Begin

Str (r:n:m, st);

RealToStr:=st;

end;

Procedure StolbDiagram;

var

Ed, Hth: EdArr;

Part: PrArr;

i, j, m:integer;

sum:real;

a1, a2:integer;

x, y:integer;

St:string;

grDriver:integer;

grMode:integer;

grPath:string;

ErrCode:integer;

Begin

Clrscr;

Writeln ('Построение столбиковой диаграммы: ');

Writeln (' «Количество выпущенных книг по тематическим группам за год» ');

Writeln ('Введите имя файла с данными');

Readln(FileName);

for i:=1 to 5 do

Ed[i]:=0;

i:=1;

sum:=0;

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

if Theme='У' then

Ed[1]:=Ed[1]+Edition;

if Theme='Х' then

Ed[2]:=Ed[2]+Edition;

if Theme='П' then

Ed[3]:=Ed[3]+Edition;

if Theme='И' then

Ed[4]:=Ed[4]+Edition;

if Theme='Н' then

Ed[5]:=Ed[5]+Edition;

sum:=sum+Edition;

end;

end;

close(f);

readln;

clrscr;

grDriver:=VGA;

grMode:=VGAHi;

grPath:='tp\bgi';

InitGraph (grDriver, grMode, grPath);

ErrCode:=GraphResult;

if ErrCode <> grOK then

begin

writeln ('Ошибка инициализации графического режима.');

writeln ('Для завершения нажмите <enter>');

readln;

Halt(1);

end;

{Вычислим долю каждой категории в общей сумме}

for i:=1 to 5 do

Part[i]:=Ed[i]/sum*100;

{Определим индекс максимального тиража}

{и вычислим высоту столбиков диаграммы}

M:=1;

For i:=2 to 5 do

if Ed[i]>Ed[m] then m:=i;

{Максимальному тиражу соответствует

столбик высотой 200 пикселей

Вычислим высоту остальных столбиков}

for i:=5 downto 1 do

Hth[i]:=Round((200/Ed[m])*Ed[i]);

{Строим диаграмму}

OutTextXY (40,50,'Выпуск книг по тематическим группам за год');

Rectangle (40,80,170,310);

x:=50;

y:=300;

for i:=1 to 5 do

Begin

SetFillstyle (SolidFill, i);

Bar (x, y, x+10, y-Hth[i]);

x:=x+20;

end;

x:=50;

for i:=1 to 5 do

Begin

SetFillstyle (SolidFill, i);

OutTextXY (x, y-Hth[i] - 10, RealToStr (Part[i], 5,2)+' % ');

x:=x+20;

end;

x:=200;

y:=100;

for i:=1 to 5 do

Begin

SetFillstyle (SolidFill, i);

Bar (x, y, x+20, y+10);

OutTextXY (x+25, y, ThMas[i]);

y:=y+20;

end;

readln;

CloseGraph;

End

else

Begin

writeln ('Файл не найден');

readln;

End;

End;

{Список книг по возрастной и тематической группам}

Procedure FindAgeTheme;

var a, t:char;

i, fl:integer;

ch:char;

Begin

Clrscr;

Writeln ('Список книг по возрастной и тематической группам');

Writeln ('Введите имя файла с данными');

Readln(FileName);

Assign (f, FileName);

{$I-}

Reset(f);

{$I+}

if IOResult=0 then

Begin

Writeln ('Выберите возрастную группу (Д-детская, Ю-юношеская, В-взрослая): ');

Readln(a);

While not (a in S_Age) do

Begin

writeln ('Ошибка при вводе группы. Повторите ввод.');

Readln(a);

End;

Writeln ('Выберите тематическую группу: ');

Write ('У-учебная, Х-художественная, П-публицистика, И-искусство, Н-научная ');

Readln(t);

While not (t in S_Theme) do

Begin

writeln ('Ошибка при вводе группы. Повторите ввод.');

Readln(t);

End;

i:=0;

writeln;

writeln ('Список книг по возрастной группе «', a, '»; тематической группе: «', t, '» ');

writeln;

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

writeln ('| № | Автор | Название |Возр.|Тем.|');

writeln ('| | | |гр. |гр. |');

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

while not eof(f) do

Begin

read (f, book);

with Book do

Begin

if (a=Age) and (t=Theme) then

begin

writeln ('|', i:3,'|', author:15,'|', name:20,'| ', Age, ' | ', Theme, ' |');

i:=i+1;

end;

end;

end;

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

if i=0 then

writeln ('По запросу записей не найдено');

readln;

close(f);

end

else

Begin

writeln ('Файл не найден');

readln;

End;

End;

Begin

S_Age:=['Д', 'Ю', 'В'];

S_Theme:=['У', 'Х', 'П', 'И', 'Н'];

ThMas[1]:='Учебная';

ThMas[2]:='Художественная';

ThMas[3]:='Публицистика';

ThMas[4]:='Искусство';

ThMas[5]:='Научно-популярная';

End.

Размещено на Allbest.ru