1986. - 127 с. p align="justify">) Горбатов В.А. Основи дискретної математики: Учеб. посібник для студентів вузів - М.: Вища школа, 1986. - 311 с.
) Корячко В.П. та ін Теоретичні основи САПР: Підручник для вузів/В.П.Корячко, В.М.Курейчік, І.П.Норенков.-М.: Вища школа, 1987. - 400 с.
) Delphi 7 [Текст]/В.Е. Гофман, А. Д. Хомоненко. - СПб.: БХВ-Петербург, 2002. - 1152 с. br/>
Додаток А
Лістинг програми
program Project1;
uses, in 'Unit1.pas' {Form1}, in 'Unit2.pas' {Form2}, in 'Unit3.pas' {Form3}, in 'Unit4.pas' {Form4}, in 'Unit5.pas' {Form5};
{$ R *. res}. Initialize;. CreateForm (TForm1, Form1);. CreateForm (TForm2, Form2);. CreateForm (TForm3, Form3);. CreateForm (TForm4, Form4); . CreateForm (TForm5, Form5);. Run;. Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, ShellAPI; = class (TForm): TMemo;: TMainMenu;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TOpenDialog;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; N5Click (Sender: TObject); N4Click (Sender: TObject); N6Click (Sender: TObject) ; N7Click (Sender: TObject); N8Click (Sender: TObject); N9Click (Sender: TObject); N10Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;: string;: textfile; Unit2, Unit3, Unit4, Unit5;
{$ R *. dfm} mystrtofloat (s: string): extended;: integer;: string;: = s; i: = 1 to length (s) dos [i] = ', 'then s1 [i]: =', ';: = StrToFloat (s1);; GetWord (var s: string): extended;: integer;: string;: boolean; isCifr (c: char): boolean; =' -0123456789 '; pos (c, cifr)> 0 then result: = trueresult: = false;;: = 1; not isCifr (s [i]) do (i);: =''; isCifr (s [i ]) or (s [i] = '.') do: = s1 + s [i]; (i);;: = copy (s, i, length (s)-i +1);: = mystrtofloat ( s1);: = false; i: = 1 to length (s) doisCifr (s [i]) then est: = true; not est then s: ='';; TForm1.N5Click (Sender: TObject);. Terminate ;; TForm1.N4Click (Sender: TObject);: string;, j: integer; OpenDialog1.Execute then: = OpenDialog1.FileName; fn <>'' then.Clear;. Lines.LoadFromFile (fn); (fl, fn); (fl); i: = 1 to 5 do (fl, s);: = 0; s <>'' do (j);. Series1.AddXY (j, getword (s));; ( fl, s);: = 0; s <>'' do (j);. Series2.AddXY (j, getword (s));; (fl, s);: = 0; s <>'' do (j);. Series3.AddXY (j, getword (s));; (fl, s);: = 0; s <>'' do (j);. Series4.AddXY (j, getword (s ));; (fl, s);: = 0; s <>'' do (j);. Series5.AddXY (j, getword (s));; i: = 1 to 7 do (fl, s );: = 0; s <>'' do (j);. Series1.AddXY (j, getword (s));; (fl, s);: = 0; s <>'' do
begin (j);. Series2.Add...
