Контрольная работа: Разработка программного комплекса
Название: Разработка программного комплекса Раздел: Рефераты по информатике, программированию Тип: контрольная работа | ||||||||||||||||||||||||||||||||||
Содержание Задание на разработку программного комплекса Функциональная структура приложения Спецификация программного комплекса Структурная диаграмма программного комплекса Данные для тестирования Приложение Задание на разработку программного комплексаРазработать информационную подсистему отдела кадров. Информация, обрабатываемая в подсистеме, должна храниться в текстовом или типизированном файлах. Данные, которые должны быть отражены в подсистеме: фамилия, месяц и год приема на работу, образование, специальность, пол, отношение к воинской службе, год рождения. Сведения о сотрудниках пополняются по мере приема на работу. В системе должны решаться следующие задачи: 1. Создание файла. 2. Дополнение файла. 3. Корректировка данных в файле. 4. Формирование ответов на запросы пользователя: 4.1. Вывести в виде таблицы фамилии, образование, отношение к воинской службе сотрудников младше 30 лет; 4.2. Определить средний возраст работающих мужчин и женщин; 4.3. Вывести на экран фамилии сотрудников, принятых в текущем году, в порядке убывания их возраста; 4.4. Построить графики изменения уровня образования от возраста; 4.5. Построить круговую диаграмму, отражающую возрастное соотношение работающих: выделить группы до 30 лет, от 31 до 50 лет, старше 51 года; 4.6. Построить столбиковую диаграмму, отражающую долю сотрудников с высшим, средним специальным, средним, неполным средним, начальным образованием. Столбики диаграммы расположить в порядке возрастания. Функциональная структура приложения Программный комплекс предназначен для работы с базой данных в виде типизированного файла с расширением txt. Комплекс осуществляет чтение, запись и создание базы. Помимо этого программный комплекс предоставляет возможность создавать, удалять и редактировать записи в БД. А также осуществляет выборку данных на основе фиксированных правил отбора и построение графиков и диаграмм. Спецификация программного комплексаОсновной задачей является разработка информационной подсистемы отдела кадров. Поскольку для реализации требуется дружественный интерфейс то было принято решение вести разработку в среде программирования Delphi 7. Это улучшает потребительские качества программного продукта, а также позволит создать графический интерфейс для операционной системы Windows. Единственное требование для данного программного пакета это наличие ОС семейства Windows. Интерфейс программы состоит из основной формы и вспомогательных форм, таких как форма редактирования записи, форма отображения результатов запроса, форма построения графиков, форма выбора базы данных. Попасть на эти формы пользователь может при помощи использования кнопок на основной форме. В качестве входных данных программа использует типизированный файл базы данных, а также сведения о работнике такие как: · Фамилия – текстовое поле с максимальной длинной 100 символов; · Дата приема на работу – поле типа TDate; · Образование – текстовое поле длинной 100 символов; · Специальность - текстовое поле длинной 100 символов; · Пол – поле типа byte; · Отношение к воинской службе - текстовое поле длинной 100 символов; · Год рождения – поле типа TDate. В качестве выходных данных программы выступает файл базы данных. А также графическое отображение результатов запросов пользователя. Из графической информации пользователь может получить следующие типы объектов: · Таблица с данными; · График; · Текстовая информация. Поскольку вся информация проверяется при вводе и пользователь выбирает только то, что может использоваться в данном поле, то ловится всего одна ошибка связанная с попыткой редактирования пустой строки таблицы данных. Структурная диаграмма программного комплексаСхема построения программного средства и основных классов: Данные для тестирования
Инструкция пользователяПри запуске программы пользователь попадает но основное окно программы: Если необходимо использовать уже созданную базу то необходимо использовать кнопку «Выбрать базу». После этого пользователь попадет на окно выбора создания или открытия существующей базы. Для того что бы выбрать базу необходимо нажать на кнопку «…» и в открывшемся окне задать имя или выбрать уже существующий файл базы. Внимание: Если выбран режим создания БД и указывается существующий файл, то он будет перезаписан. При этом даже если не загружать базу есть возможность создавать новые записи. По завершению работы и закрытию программы пользователю будет предложено сохранить внесенные изменения. Управлять записями можно используя три кнопки внизу экрана. При помощи этих кнопок можно создавать. Удалять или редактировать записи. Существует возможность выполнения определенных запросов. Для выбора нужного запроса необходимо воспользоваться выпадающим списком в верхней части экрана, после чего нажать на кнопку «Выполнить запрос». Как только программа осуществит выборку на экран будет выведена форма с результатами запроса. график диаграмма типизированный файл Приложение. Исходные тексты программных модулейunitUnit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, Grids, DBGrids, DB, DBTables; type TWorker=record FIO: string[100]; StartWork : TDate; Edication : String[100]; Spec : String[100]; sex: byte; Armi: String[100]; BirthDay: TDate; end; type TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; Button1: TButton; Button2: TButton; Button3: TButton; StringGrid1: TStringGrid; Button4: TButton; Button5: TButton; ComboBox1: TComboBox; procedure Exit1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure ReadData(fileName:string; new:bool); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure TableRowToWorker(index:integer; table:TStringGrid); procedure AddRowToTable(row:TWorker; table:TStringGrid); procedure EditTableRow(row:TWorker; table:TStringGrid); procedure Button5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure SetBase(); procedure WriteData(fileName:string; table:TStringGrid); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } Worker:TWorker; Base:String; tableDS:TDataSet; public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit3, DateUtils, Unit4, Unit5, Unit6, Unit7; {$R *.dfm} procedure TForm1.Exit1Click(Sender: TObject); begin Close; end; procedure TForm1.Button1Click(Sender: TObject); begin SetBase(); end; //выводит форму выбора файла с базой данных procedure TForm1.SetBase(); var i:integer; begin if Form2.ShowModal = mrOk then begin if Form2.RadioButton1.Checked then begin Base :=Form2.Edit1.Text; ReadData(Base, true); end else begin Base :=Form2.Edit3.Text; ReadData(Base, false); end; end; end; //переводит объект типа TWorker в строку таблицы //row - новая строка типа TWorker //table - таблица, в которую добавляется строка procedure TForm1.AddRowToTable(row:TWorker; table:TStringGrid); begin table.Cells[0, table.RowCount - 1] := row.FIO; table.Cells[1, table.RowCount - 1] := DateToStr(row.StartWork); table.Cells[2, table.RowCount - 1] := row.Edication; table.Cells[3, table.RowCount - 1] := row.Spec; if row.sex = 0 then table.Cells[4, table.RowCount - 1] := 'муж' else table.Cells[4, table.RowCount - 1] := 'жен'; table.Cells[5, table.RowCount - 1] := row.Armi; table.Cells[6, table.RowCount - 1] := DateToStr(row.BirthDay); table.RowCount := table.RowCount + 1; end; //Вносит изменения в отредактированную строку //row - отредактированные данные типа TWorker //table - таблица, в которую вносятся изменения procedure TForm1.EditTableRow(row:TWorker; table:TStringGrid); var i:integer; begin i := table.Selection.Top; table.Cells[0, i] := row.FIO; table.Cells[1, i] := DateToStr(row.StartWork); table.Cells[2, i] := row.Edication; table.Cells[3, i] := row.Spec; if row.sex = 0 then table.Cells[4, i] := 'муж' else table.Cells[4, i] := 'жен'; table.Cells[5, i] := row.Armi; table.Cells[6, i] := DateToStr(row.BirthDay); end; //Преобразует строку таблицы в TWorker //index - номер строки //table - таблица, в которой находятся данные procedure TForm1.TableRowToWorker(index:integer; table:TStringGrid ); var i:integer; begin i := index; Worker.FIO := table.Cells[0, i]; Worker.StartWork := StrToDate(table.Cells[1, i]); Worker.Edication := table.Cells[2, i]; Worker.Spec := table.Cells[3, i]; if table.Cells[4, i] = 'муж' then Worker.sex := 0 else Worker.sex := 1; Worker.Armi := table.Cells[5, i]; Worker.BirthDay := StrToDate(table.Cells[6, i]); end; //читает данные из файла в таблицу // fileName - имя файла и путь к нему //new - показывает отрывается существующая база или создается новая procedure TForm1.ReadData(fileName:string; new:bool); var F:File of TWorker; size:integer; begin AssignFile(F,fileName); if new then begin Rewrite(F); end else begin Reset(F); Seek(F,0); while (not EOF(F)) do begin Read(F,Worker); AddRowToTable(Worker,StringGrid1); end; end; CloseFile(F); end; //событие при нажатии кнопки создания новой записи procedure TForm1.Button2Click(Sender: TObject); begin Form3.editRecord := false; if Form3.ShowModal = mrOk then begin Worker := Form3.Worker; AddRowToTable(Worker,StringGrid1); //Worker.StartWork := Form3.Edit1; end; end; //событиепринажатииредактирования procedure TForm1.Button4Click(Sender: TObject); begin try Form3.editRecord := true; TableRowToWorker(StringGrid1.Selection.Top,StringGrid1); Form3.Worker := Worker; if Form3.ShowModal = mrOk then begin Worker := Form3.Worker; EditTableRow(Worker, StringGrid1); end; except MessageDlg('При попытки редактирования произошла ошибка',mtError,[mbOK],0); end; end; //Функция удаления строки из TStringGrid //RowNumber - номер строки //Grid - таблица из которой происходит удаление procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid); var i: Integer; begin Grid.Row := RowNumber; if (Grid.Row = Grid.RowCount - 1) then { On the last row} Grid.RowCount := Grid.RowCount - 1 else begin { Not the last row} for i := RowNumber to Grid.RowCount - 1 do Grid.Rows[i] := Grid.Rows[i + 1]; Grid.RowCount := Grid.RowCount - 1; end; end; //Удалениестрок procedure TForm1.Button5Click(Sender: TObject); var i,n,start:integer; begin n := StringGrid1.Selection.Bottom - StringGrid1.Selection.Top + 1; start:= StringGrid1.Selection.Top; ifStringGrid1.Selection.Bottom < StringGrid1.Selection.Top then start:= StringGrid1.Selection.Bottom; for i := 1 to n do begin GridDeleteRow(start + i - 1, StringGrid1); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var res:integer; begin if Base = '' then begin res := MessageDlg('Сохранитьзаписи?',mtInformation,[mbYes, mbNo],0); if res = mrYes then SetBase() else exit; end; WriteData(Base, StringGrid1); end; //записьданныхвфайлбазы //fileName - имя и путь к файлу базы //table - Таблицасданными procedure TForm1.WriteData(fileName:string; table:TStringGrid); var F:File of TWorker; i:integer; begin AssignFile(F,fileName); Reset(F); Seek(F,0); for i := 1 to table.RowCount-2 do begin TableRowToWorker(i,StringGrid1); Write(F,Worker); end; CloseFile(F); end; //Функция быстрой сортировки //А - массив для сортировки //iLo - начало массива //iHi - конецмассива procedure QuickSort(var A: array of TWorker; iLo, iHi: Integer); var Lo, Hi: Integer; Pivot :TDate; T: TWorker; begin Lo := iLo; Hi := iHi; Pivot := A[(Lo + Hi) div 2].BirthDay; repeat while A[Lo].BirthDay < Pivot do Inc(Lo) ; while A[Hi].BirthDay > Pivot do Dec(Hi) ; if Lo <= Hi then begin T := A[Lo]; A[Lo] := A[Hi]; A[Hi] := T; Inc(Lo) ; Dec(Hi) ; end; until Lo > Hi; if Hi > iLo then QuickSort(A, iLo, Hi) ; if Lo < iHi then QuickSort(A, Lo, iHi) ; end; //Выполняетзапросы procedure TForm1.Button3Click(Sender: TObject); var i:integer; Workers:array of TWorker; y1,m1,d1,y2,m2,d2:Word; MAge, WAge : real; MStch, WStch : integer; begin if ComboBox1.ItemIndex = 0 then begin SetLength(Workers, StringGrid1.RowCount - 2); DecodeDate(Now,y2,m2,d2); for i := 1 to StringGrid1.RowCount - 2 do begin TableRowToWorker(i,StringGrid1); DecodeDate(Worker.BirthDay,y1,m1,d1); if (abs(y2 - y1) <= 30) and (Worker.sex = 0) then Workers[i-1] :=Worker; end; Form4.FillTable(Workers); Form4.ShowModal; end else if ComboBox1.ItemIndex = 1 then begin DecodeDate(Now,y2,m2,d2); MStch := 0; WStch := 0; for i := 1 to StringGrid1.RowCount - 2 do begin TableRowToWorker(i,StringGrid1); DecodeDate(Worker.BirthDay,y1,m1,d1); if (Worker.sex = 0) then begin MAge := MAge + y2 - y1; MStch := MStch +1; end else begin WAge := WAge + y2 - y1; WStch := WStch +1; end; end; MAge := MAge / MStch; WAge := WAge / WStch; Form5.Label3.Caption := FloatToStrF(MAge,ffGeneral, 8, 2); Form5.Label4.Caption := FloatToStrF(WAge,ffGeneral, 8, 2); Form5.ShowModal; end else if ComboBox1.ItemIndex = 2 then begin SetLength(Workers, StringGrid1.RowCount - 1); DecodeDate(Now,y2,m2,d2); for i := 1 to StringGrid1.RowCount - 2 do begin TableRowToWorker(i,StringGrid1); DecodeDate(Worker.StartWork,y1,m1,d1); if y2 = y1 then Workers[i] :=Worker; end; if (Length(Workers) > 3) then QuickSort(Workers,1, Length(Workers)) else if Workers[1].BirthDay < Workers[1].BirthDay then begin worker :=Workers[1]; Workers[1] := Workers[2]; Workers[2] := worker; end; Form6.FillTable(Workers); Form6.ShowModal; end else if ComboBox1.ItemIndex = 3 then begin SetLength(Workers, StringGrid1.RowCount - 2); for i := 1 to StringGrid1.RowCount - 2 do begin TableRowToWorker(i,StringGrid1); Workers[i-1] :=Worker; end; Form7.FillTable(Workers); Form7.ShowModal; end else if ComboBox1.ItemIndex = 4 then begin SetLength(Workers, StringGrid1.RowCount - 2); for i := 1 to StringGrid1.RowCount - 2 do begin TableRowToWorker(i,StringGrid1); Workers[i-1] :=Worker; end; Form7.FillKrug(Workers); Form7.ShowModal; end else if ComboBox1.ItemIndex = 5 then begin SetLength(Workers, StringGrid1.RowCount - 2); for i := 1 to StringGrid1.RowCount - 2 do begin TableRowToWorker(i,StringGrid1); Workers[i-1] :=Worker; end; Form7.FillStolb(Workers); Form7.ShowModal; end; end; procedure TForm1.FormShow(Sender: TObject); begin StringGrid1.Cells[0,0] := 'Фамилия'; StringGrid1.Cells[1,0] := 'Принят'; StringGrid1.Cells[2,0] := 'Образование'; StringGrid1.Cells[3,0] := 'Специализация'; StringGrid1.Cells[4,0] := 'Пол'; StringGrid1.Cells[5,0] := 'Отн. кслужбе'; StringGrid1.Cells[6,0] := 'Датарождения'; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit1: TEdit; Label1: TLabel; Label3: TLabel; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.RadioButton1Click(Sender: TObject); begin Label1.Enabled := true; Edit1.Enabled := true; Edit3.Enabled := false; Label3.Enabled := false; Button2.Enabled := true; Button3.Enabled := false; end; procedure TForm2.RadioButton2Click(Sender: TObject); begin Label1.Enabled := false; Edit1.Enabled := false; Button2.Enabled := false; Edit3.Enabled := true; Label3.Enabled := true; Button3.Enabled := true; end; procedure TForm2.Button2Click(Sender: TObject); begin if SaveDialog1.Execute then begin Edit1.Text := SaveDialog1.FileName+'.txt'; end end; procedure TForm2.Button3Click(Sender: TObject); begin if OpenDialog1.Execute then begin Edit3.Text := OpenDialog1.FileName; end; end; procedure TForm2.Button1Click(Sender: TObject); begin ModalResult := mrOk; //Close; end; end. unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Unit1; type TForm3 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; ComboBox1: TComboBox; Edit2: TEdit; ComboBox2: TComboBox; Edit3: TEdit; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ClearFields(); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } Worker:TWorker; editRecord:bool; end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.ClearFields(); begin Edit1.Text := ''; DateTimePicker2.Date := Now; ComboBox1.ItemIndex := 0; Edit2.Text := ''; ComboBox2.ItemIndex := 0; Edit3.Text := ''; DateTimePicker1.Date := Now; end; procedure TForm3.Button1Click(Sender: TObject); begin Worker.FIO := Edit1.Text; Worker.StartWork := DateTimePicker2.Date; Worker.Edication := ComboBox1.Text; Worker.Spec := Edit2.Text; Worker.sex := ComboBox2.ItemIndex; Worker.Armi := Edit3.Text; Worker.BirthDay := DateTimePicker1.Date; ModalResult := mrOK; end; procedure TForm3.Button2Click(Sender: TObject); begin ModalResult := mrCancel; end; procedure TForm3.FormShow(Sender: TObject); begin if not editRecord then ClearFields else begin Edit1.Text := Worker.FIO; DateTimePicker2.Date := Worker.StartWork; ComboBox1.Text := Worker.Edication; Edit2.Text := Worker.Spec; ComboBox2.ItemIndex := Worker.sex; Edit3.Text := Worker.Armi; DateTimePicker1.Date := Worker.BirthDay; end; end; end. unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, Unit1; type TForm4 = class(TForm) StringGrid1: TStringGrid; private { Private declarations } public { Public declarations } procedure FillTable(Workers:array of TWorker); end; var Form4: TForm4; implementation {$R *.dfm} procedure TForm4.FillTable(Workers:array of TWorker); var i,n:integer; begin n:= Length(Workers); StringGrid1.Cells[0,0] := 'Фамилия'; StringGrid1.Cells[1,0] := 'Образование'; StringGrid1.Cells[2,0] := 'Отношение к службе'; StringGrid1.RowCount := n+1; for i:=1 to n do begin StringGrid1.Cells[0,i] := Workers[i-1].FIO; StringGrid1.Cells[1,i] := Workers[i-1].Edication; StringGrid1.Cells[2,i] := Workers[i-1].Armi; end; end; end. unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, Unit1; type TForm6 = class(TForm) StringGrid1: TStringGrid; private { Private declarations } public procedure FillTable(Workers:array of TWorker); { Public declarations } end; var Form6: TForm6; implementation {$R *.dfm} procedure TForm6.FillTable(Workers:array of TWorker); var i,n:integer; begin n:= Length(Workers); StringGrid1.Cells[0,0] := 'Фамилия'; StringGrid1.Cells[1,0] := 'Датарожд.'; StringGrid1.RowCount := n; for i:=1 to n-1 do begin StringGrid1.Cells[0,i] := Workers[i].FIO; StringGrid1.Cells[1,i] := DateToStr(Workers[i].BirthDay); end; end; end. unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, TeeFunci, Series, ExtCtrls, TeeProcs, Chart, Unit1; type TForm7 = class(TForm) Chart1: TChart; Series1: TLineSeries; TeeFunction1: TMultiplyTeeFunction; Chart2: TChart; Series3: TPieSeries; Chart3: TChart; Series2: TBarSeries; private { Private declarations } public { Public declarations } procedure FillTable(Workers:array of TWorker); procedure FillKrug(Workers:array of TWorker); procedure FillStolb(Workers:array of TWorker); end; var Form7: TForm7; implementation {$R *.dfm} procedure TForm7.FillTable(Workers:array of TWorker); var i,n:integer; y1,m1,d1,y2,m2,d2:Word; yars:array[0..60] of integer; begin //Chart1.SeriesList.Clear; //Chart1.SeriesList.Add(Series1); Chart1.Visible := true; Chart2.Visible := false; Chart3.Visible := false; Caption := 'Образование'; Series1.Clear; n:= Length(Workers); DecodeDate(Now,y2,m2,d2); for i:=1 to 60 do yars[i-1] := 0; for i:=1 to n do begin DecodeDate(Workers[i-1].BirthDay,y1,m1,d1); if (Workers[i-1].Edication = 'Высшее') then yars[y2-y1] := yars[y2-y1] + 5 else if (Workers[i-1].Edication = 'Cреднеспециальное') then yars[y2-y1] := yars[y2-y1] + 4 else if (Workers[i-1].Edication = 'Cреднее') then yars[y2-y1] := yars[y2-y1] + 3 else if (Workers[i-1].Edication = 'Неполноесреднее') then yars[y2-y1] := yars[y2-y1] + 2 else yars[y2-y1] := yars[y2-y1] + 1; end; for i:=1 to 60 do Series1.AddXY(i,yars[i-1]); end; procedure TForm7.FillKrug(Workers:array of TWorker); var i,n : integer; y1,m1,d1,y2,m2,d2 : Word; stch1,stch2,stch3 : integer; begin //Chart1.SeriesList.Clear; //Chart1.SeriesList.Clear; //Chart1.SeriesList.Add(Series2); Chart1.Visible := false; Chart2.Visible := true; Chart3.Visible := false; Caption := 'Возрастноесоотношение'; Series3.Clear; stch1 := 0; stch2 := 0; stch3 := 0; n:= Length(Workers); DecodeDate(Now,y2,m2,d2); for i:=1 to n do begin DecodeDate(Workers[i-1].BirthDay,y1,m1,d1); if (y2-y1 <= 30) then Inc(stch1) else if (y2-y1 <= 50) then Inc(stch2) else Inc(stch3); end; //Series2.Add(50); Series3.Add(stch1); Series3.Add(stch2); Series3.Add(stch3); end; procedure TForm7.FillStolb(Workers:array of TWorker); var i,n : integer; stch1,stch2,stch3,stch4,stch5 : integer; begin Chart1.Visible := false; Chart2.Visible := false; Chart3.Visible := true; Caption := 'Образованиесотрудников'; Series2.Clear; stch1 := 0; stch2 := 0; stch3 := 0; stch4 := 0; stch5 := 0; n:= Length(Workers); for i:=1 to n do begin if (Workers[i-1].Edication = 'Высшее') then Inc(stch1) else if (Workers[i-1].Edication = 'Cреднеспециальное') then Inc(stch2) else if (Workers[i-1].Edication = 'Cреднее') then Inc(stch3) else if (Workers[i-1].Edication = 'Неполноесреднее') then Inc(stch4) else Inc(stch5); end; Series2.Add(stch1); Series2.Add(stch2); Series2.Add(stch3); Series2.Add(stch4); Series2.Add(stch5); end; end. |