diff --git a/CodeCompletion/DomConverter.cs b/CodeCompletion/DomConverter.cs index 3d8cae72a..8df8700a3 100644 --- a/CodeCompletion/DomConverter.cs +++ b/CodeCompletion/DomConverter.cs @@ -38,9 +38,13 @@ namespace CodeCompletion int i = 0; foreach (string s in files) { + string fname = Path.GetFileNameWithoutExtension(s); + if (fname == "__RedirectIOMode" || fname == "__RunMode" || fname == "PABCExtensions") + continue; SymInfo si = new SymInfo(Path.GetFileNameWithoutExtension(s), SymbolKind.Namespace, null); - si.IsUnitNamespace = true; + + si.description = GetUnitDescription(s); standard_units[i++] = si; } } @@ -50,6 +54,23 @@ namespace CodeCompletion } } + private string GetUnitDescription(string fileName) + { + var reader = File.OpenText(fileName); + string line = null; + string doc = ""; + while (!reader.EndOfStream) + { + line = reader.ReadLine(); + if (line.StartsWith("///")) + doc += line.Substring(3) + Environment.NewLine; + else if (line.StartsWith("unit")) + break; + } + reader.Close(); + return doc; + } + bool ICodeCompletionDomConverter.IsCompiled { get diff --git a/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionHelpers.cs b/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionHelpers.cs index 8196e9a49..c37d10a10 100644 --- a/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionHelpers.cs +++ b/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionHelpers.cs @@ -79,7 +79,7 @@ namespace VisualPascalABC { if (!dict.ContainsKey(si)) dict[si] = data; - if (!dict2.ContainsKey(si.description)) + if (!string.IsNullOrEmpty(si.description) && !dict2.ContainsKey(si.description)) dict2[si.description] = data; } diff --git a/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionKeyHandler.cs b/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionKeyHandler.cs index 308f16aee..645dccf90 100644 --- a/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionKeyHandler.cs +++ b/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionKeyHandler.cs @@ -137,7 +137,7 @@ namespace VisualPascalABC if (VisualPABCSingleton.MainForm.UserOptions.CodeCompletionDot) { PascalABCCompiler.Parsers.KeywordKind keyw = KeywordChecker.TestForKeyword(editor.Document.TextContent, editor.ActiveTextAreaControl.TextArea.Caret.Offset - 1); - if (keyw == PascalABCCompiler.Parsers.KeywordKind.New || VisualPABCSingleton.MainForm.UserOptions.EnableSmartIntellisense && keyw == PascalABCCompiler.Parsers.KeywordKind.Uses) + if (keyw == PascalABCCompiler.Parsers.KeywordKind.New || keyw == PascalABCCompiler.Parsers.KeywordKind.Uses) { completionDataProvider = new CodeCompletionProvider(); codeCompletionWindow = PABCNETCodeCompletionWindow.ShowCompletionWindow( diff --git a/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionProvider.cs b/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionProvider.cs index 633866c48..3c686b88a 100644 --- a/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionProvider.cs +++ b/VisualPascalABCNET/IB/CodeCompletion/CodeCompletionProvider.cs @@ -451,7 +451,13 @@ namespace VisualPascalABC if (new_space) mis = dconv.GetTypes(e, line, col, out sel_si); else if (keyw == PascalABCCompiler.Parsers.KeywordKind.Uses && mis == null) - mis = dconv.GetNamespaces(); + { + if (WorkbenchServiceFactory.Workbench.UserOptions.EnableSmartIntellisense) + mis = dconv.GetNamespaces(); + else + mis = CodeCompletion.DomConverter.standard_units; + } + else if (!ctrl_space) { diff --git a/bin/Lib/Graph3D.pas b/bin/Lib/Graph3D.pas index eb4adeb50..01340e6a4 100644 --- a/bin/Lib/Graph3D.pas +++ b/bin/Lib/Graph3D.pas @@ -1,3 +1,5 @@ +// Copyright () Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Graph3D; {$reference 'PresentationFramework.dll'} diff --git a/bin/Lib/GraphWPF.pas b/bin/Lib/GraphWPF.pas index 6b060324b..0079d69c9 100644 --- a/bin/Lib/GraphWPF.pas +++ b/bin/Lib/GraphWPF.pas @@ -1,4 +1,6 @@ -/// +// Copyright (©) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) +///Основной модуль графики unit GraphWPF; interface @@ -28,21 +30,21 @@ var CountVisuals := 0; procedure Invoke(d: System.Delegate; params args: array of object); type - /// + /// Тип клавиши Key = System.Windows.Input.Key; - /// + /// Цветовые константы Colors = System.Windows.Media.Colors; - /// + /// Тип цвета Color = System.Windows.Media.Color; - /// + /// Тип цвета GColor = System.Windows.Media.Color; - /// + /// Тип прямоугольника GRect = System.Windows.Rect; GWindow = Window; GPen = System.Windows.Media.Pen; GPoint = System.Windows.Point; GBrush = System.Windows.Media.Brush; - /// + /// Тип стиля шрифта FontStyle = (Normal,Bold,Italic,BoldItalic); ///!# @@ -51,7 +53,7 @@ type c := Colors.White; function BrushConstruct := new SolidColorBrush(c); public - /// + /// Цвет кисти property Color: GColor read c write c; end; @@ -67,13 +69,13 @@ type Result.LineJoin := PenLineJoin.Round; end; public - /// + /// Цвет пера property Color: GColor read c write c; - /// + /// Ширина пера property Width: real read th write th; - /// X + /// Текущая координата X пера property X: real read fx; - /// Y + /// Текущая координата Y пера property Y: real read fy; end; @@ -101,13 +103,13 @@ type function TypefaceClone := tf; function BrushConstruct := new SolidColorBrush(c); public - /// + /// Цвет шрифта property Color: GColor read c write c; - /// + /// Имя шрифта property Name: string read GetName write SetName; - /// 1/96 + /// Размер шрифта в единицах по 1/96 дюйма property Size: real read sz write sz; - /// + /// Стиль шрифта property Style: FontStyle write SetFS; end; @@ -125,268 +127,268 @@ type procedure SetCaption(c: string); function GetCaption: string; public - /// + /// Отступ графического окна от левого края экрана property Left: real read GetLeft write SetLeft; - /// + /// Отступ графического окна от верхнего края экрана property Top: real read GetTop write SetTop; - /// + /// Ширина клиентской части графического окна property Width: real read GetWidth write SetWidth; - /// + /// Высота клиентской части графического окна property Height: real read GetHeight write SetHeight; - /// + /// Заголовок графического окна property Caption: string read GetCaption write SetCaption; - /// + /// Заголовок графического окна property Title: string read GetCaption write SetCaption; - /// + /// Очищает графическое окно белым цветом procedure Clear; - /// c + /// Очищает графическое окно цветом c procedure Clear(c: Color); - /// + /// Устанавливает размеры клиентской части графического окна procedure SetSize(w, h: real); - /// + /// Устанавливает отступ графического окна от левого верхнего края экрана procedure SetPos(l, t: real); - /// fname + /// Сохраняет содержимое графического окна в файл с именем fname procedure Save(fname: string); - /// fname + /// Восстанавливает содержимое графического окна из файла с именем fname procedure Load(fname: string); - /// fname + /// Заполняет содержимое графического окна обоями из файла с именем fname procedure Fill(fname: string); - /// + /// Закрывает графическое окно и завершает приложение procedure Close; - /// + /// Сворачивает графическое окно procedure Minimize; - /// + /// Максимизирует графическое окно procedure Maximize; - /// + /// Возвращает графическое окно к нормальному размеру procedure Normalize; - /// + /// Центрирует графическое окно по центру экрана procedure CenterOnScreen; - /// + /// Возвращает центр графического окна function Center: Point; - /// + /// Возвращает прямоугольник клиентской области окна function ClientRect: GRect; end; - /// + /// Виды системы координат CoordType = (MathematicalCoords,ScreenCoords); - /// + /// Константы выравнивания текста относительно точки Alignment = (LeftTop,CenterTop,RightTop,LeftCenter,Center,RightCenter,LeftBottom,CenterBottom,RightBottom); -/// (x,y) rx ry +/// Рисует эллипс с центром в точке (x,y) и радиусами rx и ry procedure Ellipse(x,y,rx,ry: real); -/// (x,y) rx ry +/// Рисует контур эллипса с центром в точке (x,y) и радиусами rx и ry procedure DrawEllipse(x,y,rx,ry: real); -/// (x,y) rx ry +/// Рисует внутренность эллипса с центром в точке (x,y) и радиусами rx и ry procedure FillEllipse(x,y,rx,ry: real); -/// (x,y), rx ry c +/// Рисует эллипс с центром в точке (x,y), радиусами rx и ry и цветом внутренности c procedure Ellipse(x,y,rx,ry: real; c: Color); -/// (x,y), rx ry c +/// Рисует контур эллипса с центром в точке (x,y), радиусами rx и ry и цветом c procedure DrawEllipse(x,y,rx,ry: real; c: Color); -/// (x,y), rx ry c +/// Рисует внутренность эллипса с центром в точке (x,y), радиусами rx и ry и цветом c procedure FillEllipse(x,y,rx,ry: real; c: Color); -/// (x,y) r +/// Рисует окружность с центром в точке (x,y) и радиусом r procedure Circle(x,y,r: real); -/// (x,y) r +/// Рисует контур окружности с центром в точке (x,y) и радиусом r procedure DrawCircle(x,y,r: real); -/// (x,y) r +/// Рисует внутренность окружности с центром в точке (x,y) и радиусом r procedure FillCircle(x,y,r: real); -/// (x,y), r c +/// Рисует окружность с центром в точке (x,y), радиусом r и цветом c procedure Circle(x,y,r: real; c: Color); -/// (x,y), r c +/// Рисует контур окружности с центром в точке (x,y), радиусом r и цветом c procedure DrawCircle(x,y,r: real; c: Color); -/// (x,y), r c +/// Рисует внутренность окружности с центром в точке (x,y), радиусом r и цветом c procedure FillCircle(x,y,r: real; c: Color); -/// (x,y) (x+w,y+h) +/// Рисует прямоугольник с координатами вершин (x,y) и (x+w,y+h) procedure Rectangle(x,y,w,h: real); -/// (x,y) (x+w,y+h) +/// Рисует контур прямоугольника с координатами вершин (x,y) и (x+w,y+h) procedure DrawRectangle(x,y,w,h: real); -/// (x,y) (x+w,y+h) +/// Рисует внутренность прямоугольника с координатами вершин (x,y) и (x+w,y+h) procedure FillRectangle(x,y,w,h: real); -/// (x,y) (x+w,y+h) c +/// Рисует прямоугольник с координатами вершин (x,y) и (x+w,y+h) цветом c procedure Rectangle(x,y,w,h: real; c: Color); -/// (x,y) (x+w,y+h) c +/// Рисует контур прямоугольника с координатами вершин (x,y) и (x+w,y+h) цветом c procedure DrawRectangle(x,y,w,h: real; c: Color); -/// (x,y) (x+w,y+h) c +/// Рисует внутренность прямоугольника с координатами вершин (x,y) и (x+w,y+h) цветом c procedure FillRectangle(x,y,w,h: real; c: Color); -/// (x,y) r, , angle1 angle2 OX +/// Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенную между двумя лучами, образующими углы angle1 и angle2 с осью OX procedure Arc(x, y, r, angle1, angle2: real); -/// (x,y) r, , angle1 angle2 OX, c +/// Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенную между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c procedure Arc(x, y, r, angle1, angle2: real; c: Color); -/// (x,y) r, , angle1 angle2 OX +/// Рисует сектор окружности с центром в точке (x,y) и радиусом r, заключенный между двумя лучами, образующими углы angle1 и angle2 с осью OX procedure Sector(x, y, r, angle1, angle2: real); -/// (x,y) r, , angle1 angle2 OX +/// Рисует контур сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX procedure DrawSector(x, y, r, angle1, angle2: real); -/// (x,y) r, , angle1 angle2 OX +/// Рисует внутренность сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX procedure FillSector(x, y, r, angle1, angle2: real); -/// (x,y) r, , angle1 angle2 OX, c +/// Рисует сектор окружности с центром в точке (x,y) и радиусом r, заключенный между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c procedure Sector(x, y, r, angle1, angle2: real; c: Color); -/// (x,y) r, , angle1 angle2 OX, c +/// Рисует контур сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c procedure DrawSector(x, y, r, angle1, angle2: real; c: Color); -/// (x,y) r, , angle1 angle2 OX, c +/// Рисует внутренность сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c procedure FillSector(x, y, r, angle1, angle2: real; c: Color); -/// (x,y) (x1,y1) +/// Рисует отрезок прямой от точки (x,y) до точки (x1,y1) procedure Line(x,y,x1,y1: real); -/// (x,y) (x1,y1) c +/// Рисует отрезок прямой от точки (x,y) до точки (x1,y1) цветом c procedure Line(x,y,x1,y1: real; c: Color); -/// (x,y) +/// Устанавливает текущую позицию рисования в точку (x,y) procedure MoveTo(x,y: real); -/// (x,y). (x,y) +/// Рисует отрезок от текущей позиции до точки (x,y). Текущая позиция переносится в точку (x,y) procedure LineTo(x,y: real); -/// (dx,dy) +/// Перемещает текущую позицию рисования на вектор (dx,dy) procedure MoveRel(dx,dy: real); -/// , (dx,dy). +/// Рисует отрезок от текущей позиции до точки, смещённой на вектор (dx,dy). Текущая позиция переносится в новую точку procedure LineRel(dx,dy: real); -/// (dx,dy) +/// Перемещает текущую позицию рисования на вектор (dx,dy) procedure MoveOn(dx,dy: real); -/// , (dx,dy). +/// Рисует отрезок от текущей позиции до точки, смещённой на вектор (dx,dy). Текущая позиция переносится в новую точку procedure LineOn(dx,dy: real); -/// , +/// Рисует ломаную, заданную массивом точек procedure PolyLine(points: array of Point); -/// +/// Рисует ломаную заданную массивом точек и цветом procedure PolyLine(points: array of Point; c: Color); -/// , +/// Рисует многоугольник, заданный массивом точек procedure Polygon(points: array of Point); -/// , +/// Рисует контур многоугольника, заданного массивом точек procedure DrawPolygon(points: array of Point); -/// , +/// Рисует внутренность многоугольника, заданного массивом точек procedure FillPolygon(points: array of Point); -/// , +/// Рисует многоугольник, заданный массивом точек и цветом procedure Polygon(points: array of Point; c: Color); -/// , +/// Рисует контур многоугольника, заданного массивом точек и цветом procedure DrawPolygon(points: array of Point; c: GColor); -/// , +/// Рисует внутренность многоугольника, заданного массивом точек и цветом procedure FillPolygon(points: array of Point; c: GColor); -/// fname (x,y) +/// Рисует изображение из файла fname в позиции (x,y) procedure DrawImage(x,y: real; fname: string); -/// fname (x,y) w h +/// Рисует изображение из файла fname в позиции (x,y) размера w на h procedure DrawImage(x,y,w,h: real; fname: string); -/// fname (x,y) +/// Рисует немасштабированное изображение из файла fname в позиции (x,y) procedure DrawImageUnscaled(x,y: real; fname: string); -/// fname (x,y) +/// Выводит видеоиз файла fname в позицию (x,y) procedure DrawVideo(x,y: real; fname: string); -/// +/// Ширина изображения в пикселах function ImageWidth(fname: string): integer; -/// +/// Высота изображения в пикселах function ImageHeight(fname: string): integer; -/// +/// Размер изображения в пикселах function ImageSize(fname: string): (integer,integer); -/// +/// Ширина текста при выводе function TextWidth(text: string): real; -/// +/// Высота текста при выводе function TextHeight(text: string): real; -/// +/// Размер текста при выводе function TextSize(text: string): Size; -/// +/// Текущая кисть var Brush: BrushType; -/// +/// Текущее перо var Pen: PenType; -/// +/// Текущий шрифт var Font: FontType; -/// +/// Текущее окно var Window: WindowType; var - /// . (x,y) - , mousebutton = 1, , 2, + /// Событие нажатия на кнопку мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши OnMouseDown: procedure(x, y: real; mousebutton: integer); - /// . (x,y) - , mousebutton = 1, , 2, + /// Событие отжатия кнопки мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если отжата левая кнопка мыши, и 2, если отжата правая кнопка мыши OnMouseUp: procedure(x, y: real; mousebutton: integer); - /// . (x,y) - , mousebutton = 0, , 1, , 2, + /// Событие перемещения мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 0, если кнопка мыши не нажата, 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши OnMouseMove: procedure(x, y: real; mousebutton: integer); - /// + /// Событие нажатия клавиши OnKeyDown: procedure(k: Key); - /// + /// Событие отжатия клавиши OnKeyUp: procedure(k: Key); - /// + /// Событие нажатия символьной клавиши OnKeyPress: procedure(ch: char); -/// , ( 0..255) +/// Возвращает цвет по красной, зеленой и синей составляющей (в диапазоне 0..255) function RGB(r,g,b: byte): Color; -/// , ( 0..255) +/// Возвращает цвет по красной, зеленой и синей составляющей и параметру прозрачности (в диапазоне 0..255) function ARGB(a,r,g,b: byte): Color; -/// +/// Возвращает случайный цвет function RandomColor: Color; -/// +/// Возвращает случайный цвет function clRandom: Color; -/// (x,y) +/// Возвращает точку с координатами (x,y) function Pnt(x,y: real): GPoint; -/// (x,y), w h +/// Возвращает прямоугольник с координатами угла (x,y), шириной w и высотой h function Rect(x,y,w,h: real): GRect; -/// , +/// Возвращает однотонную цветную кисть, заданную цветом function ColorBrush(c: Color): GBrush; -/// , +/// Возвращает однотонное цветное перо, заданное цветом function ColorPen(c: Color): GPen; -/// , +/// Начать анимацию, основанную на кадре procedure BeginFrameBasedAnimation(Draw: procedure; frate: integer := 60); -/// , +/// Начать анимацию, основанную на кадре procedure BeginFrameBasedAnimation(Draw: procedure(frame: integer); frate: integer := 60); -/// , +/// Завершить анимацию, основанную на кадре procedure EndFrameBasedAnimation; -/// (x,y) +/// Выводит строку в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; text: string; align: Alignment := Alignment.Center); -/// (x,y) +/// Выводит строку в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; text: string; c: GColor; align: Alignment := Alignment.Center); -/// (x,y) +/// Выводит целое в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: integer; align: Alignment := Alignment.Center); -/// (x,y) +/// Выводит вещественное в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: real; align: Alignment := Alignment.Center); -/// +/// Выводит строку в прямоугольник procedure DrawText(r: GRect; text: string; align: Alignment := Alignment.Center); -/// +/// Выводит целое в прямоугольник procedure DrawText(r: GRect; number: integer; align: Alignment := Alignment.Center); -/// +/// Выводит вещественное в прямоугольник procedure DrawText(r: GRect; number: real; align: Alignment := Alignment.Center); -/// (x,y) +/// Выводит целое в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: integer; c: GColor; align: Alignment := Alignment.Center); -/// (x,y) +/// Выводит вещественное в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: real; c: GColor; align: Alignment := Alignment.Center); -/// +/// Выводит строку в прямоугольник procedure DrawText(r: GRect; text: string; c: GColor; align: Alignment := Alignment.Center); -/// +/// Выводит целое в прямоугольник procedure DrawText(r: GRect; number: integer; c: GColor; align: Alignment := Alignment.Center); -/// +/// Выводит вещественное в прямоугольник procedure DrawText(r: GRect; number: real; c: GColor; align: Alignment := Alignment.Center); -/// (x,y) +/// Выводит строку в позицию (x,y) procedure TextOut(x, y: real; text: string; align: Alignment := Alignment.LeftTop); -/// (x,y) c +/// Выводит строку в позицию (x,y) цветом c procedure TextOut(x, y: real; text: string; c: GColor; align: Alignment := Alignment.LeftTop); -/// (x,y) +/// Выводит целое в позицию (x,y) procedure TextOut(x, y: real; text: integer; align: Alignment := Alignment.LeftTop); -/// (x,y) c +/// Выводит целое в позицию (x,y) цветом c procedure TextOut(x, y: real; text: integer; c: GColor; align: Alignment := Alignment.LeftTop); -/// (x,y) +/// Выводит вещественное в позицию (x,y) procedure TextOut(x, y: real; text: real; align: Alignment := Alignment.LeftTop); -/// (x,y) c +/// Выводит вещественное в позицию (x,y) цветом c procedure TextOut(x, y: real; text: real; c: GColor; align: Alignment := Alignment.LeftTop); -/// f, [a,b] [min,max] , , x1,y1,x2,y2, +/// Рисует график функции f, заданной на отрезке [a,b] по оси абсцисс и на отрезке [min,max] по оси ординат, в прямоугольнике, задаваемом координатами x1,y1,x2,y2, procedure DrawGraph(f: real -> real; a, b, min, max, x, y, w, h: real); -/// f, [a,b] [min,max] , r +/// Рисует график функции f, заданной на отрезке [a,b] по оси абсцисс и на отрезке [min,max] по оси ординат, в прямоугольнике r procedure DrawGraph(f: real -> real; a, b, min, max: real; r: GRect); -/// f, [a,b] [min,max] , +/// Рисует график функции f, заданной на отрезке [a,b] по оси абсцисс и на отрезке [min,max] по оси ординат, на полное графическое окно procedure DrawGraph(f: real -> real; a, b, min, max: real); -/// f, [a,b], , x1,y1,x2,y2, +/// Рисует график функции f, заданной на отрезке [a,b], в прямоугольнике, задаваемом координатами x1,y1,x2,y2, procedure DrawGraph(f: real -> real; a, b: real; x, y, w, h: real); -/// f, [a,b], r +/// Рисует график функции f, заданной на отрезке [a,b], в прямоугольнике r procedure DrawGraph(f: real -> real; a, b: real; r: GRect); -/// f, [-5,5], r +/// Рисует график функции f, заданной на отрезке [-5,5], в прямоугольнике r procedure DrawGraph(f: real -> real; r: GRect); -/// f, [a,b], +/// Рисует график функции f, заданной на отрезке [a,b], на полное графическое окно procedure DrawGraph(f: real -> real; a, b: real); -/// f, [-5,5], +/// Рисует график функции f, заданной на отрезке [-5,5], на полное графическое окно procedure DrawGraph(f: real -> real); procedure SetMathematicCoords(x1: real := -10; x2: real := 10; drawcoords: boolean := true); @@ -497,7 +499,7 @@ end; function ScaleToDevice: (real,real); begin var pSource := PresentationSource.FromVisual(MainWindow); - if pSource = nil then // , + if pSource = nil then // не знаю, почему begin Result := (1.0,1.0); exit @@ -668,7 +670,7 @@ function ImageHeight(fname: string) := Invoke&(ImHelper.Create(fname).I function ImageSize(fname: string) := Invoke&<(integer,integer)>(ImHelper.Create(fname).ISz); -// ! +// Нет свойств посмотреть размеры видео! procedure DrawVideoP(x,y,w,h: real; fname: string); begin var dc := GetDC(); @@ -679,7 +681,7 @@ begin dc.Close(); end; -// ... +// А теперь займёмся полигонами... procedure DrawPolygonOrPolyline(Self: DrawingContext; b: GBrush; p: GPen; points: array of Point; draw_polygon: boolean); extensionmethod; begin @@ -808,11 +810,11 @@ procedure Rectangle(x,y,w,h: real; c: GColor) := InvokeVisual(RectanglePC,x,y,w, procedure DrawRectangle(x,y,w,h: real; c: GColor) := InvokeVisual(DrawRectanglePC,x,y,w,h,c); procedure FillRectangle(x,y,w,h: real; c: GColor) := InvokeVisual(FillRectanglePC,x,y,w,h,c); -/// (x,y) r, , angle1 angle2 OX (angle1 angle2 , ) +/// Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы angle1 и angle2 с осью OX (angle1 и angle2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки) procedure Arc(x, y, r, angle1, angle2: real) := InvokeVisual(ArcP,x, y, r, angle1, angle2); procedure Arc(x, y, r, angle1, angle2: real; c: GColor) := InvokeVisual(ArcPC,x, y, r, angle1, angle2, c); -/// (x,y) r, , angle1 angle2 OX (angle1 angle2 , ) +/// Рисует сектор окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы angle1 и angle2 с осью OX (angle1 и angle2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки) procedure Sector(x, y, r, angle1, angle2: real) := InvokeVisual(SectorP,x, y, r, angle1, angle2); procedure DrawSector(x, y, r, angle1, angle2: real) := InvokeVisual(DrawSectorP,x, y, r, angle1, angle2); procedure FillSector(x, y, r, angle1, angle2: real) := InvokeVisual(FillSectorP,x, y, r, angle1, angle2); @@ -849,11 +851,11 @@ procedure DrawImage(x,y,w,h: real; fname: string) := InvokeVisual(DrawImageWHP,x procedure DrawImageUnscaled(x,y: real; fname: string) := InvokeVisual(DrawImageUnscaledP,x,y,fname); procedure DrawVideo(x,y: real; fname: string) := InvokeVisual(DrawVideoP,x,y,fname); -/// +/// Ширина текста при выводе function TextWidth(text: string) := Invoke&(TextV.Create(text).TextWidth); -/// +/// Высота текста при выводе function TextHeight(text: string) := Invoke&(TextV.Create(text).TextHeight); -/// +/// Размер текста при выводе function TextSize(text: string): Size := Invoke&(TextV.Create(text).TextSize); procedure TextOutHelper(x,y: real; text: string) := InvokeVisual(DrawTextP,x,y,text); @@ -887,7 +889,7 @@ begin end; // Println(dw,dh); case align of - Alignment.LeftTop: {}; + Alignment.LeftTop: {ничего}; Alignment.LeftCenter: y += dh; Alignment.LeftBottom: y += 2*dh; Alignment.CenterTop: x += dw; @@ -903,37 +905,37 @@ begin Alignment.LeftBottom, Alignment.CenterBottom, Alignment.RightBottom: y -= h; end; end; -/// (x,y) +/// Выводит строку в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; text: string; align: Alignment); begin DrawTextHelper(x, y, w, h, text,align); TextOutHelper(x,y,text) end; -/// (x,y) +/// Выводит строку в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; text: string; c: GColor; align: Alignment); begin DrawTextHelper(x, y, w, h,text,align); TextOutHelper(x,y,text,c) end; -/// (x,y) +/// Выводит целое в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: integer; align: Alignment) := DrawText(x, y, w, h, '' + number,align); -/// (x,y) +/// Выводит вещественное в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: real; align: Alignment) := DrawText(x, y, w, h, '' + number,align); -/// +/// Выводит строку в прямоугольник procedure DrawText(r: GRect; text: string; align: Alignment) := DrawText(r.x,r.y,r.Width,r.Height,text,align); -/// +/// Выводит целое в прямоугольник procedure DrawText(r: GRect; number: integer; align: Alignment) := DrawText(r.x,r.y,r.Width,r.Height,number,align); -/// +/// Выводит вещественное в прямоугольник procedure DrawText(r: GRect; number: real; align: Alignment) := DrawText(r.x,r.y,r.Width,r.Height,number,align); -/// (x,y) +/// Выводит целое в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: integer; c: GColor; align: Alignment) := DrawText(x, y, w, h, '' + number,c,align); -/// (x,y) +/// Выводит вещественное в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; number: real; c: GColor; align: Alignment) := DrawText(x, y, w, h, '' + number,c,align); -/// +/// Выводит строку в прямоугольник procedure DrawText(r: GRect; text: string; c: GColor; align: Alignment) := DrawText(r.x,r.y,r.Width,r.Height,text,c,align); -/// +/// Выводит целое в прямоугольник procedure DrawText(r: GRect; number: integer; c: GColor; align: Alignment) := DrawText(r.x,r.y,r.Width,r.Height,number,c,align); -/// +/// Выводит вещественное в прямоугольник procedure DrawText(r: GRect; number: real; c: GColor; align: Alignment) := DrawText(r.x,r.y,r.Width,r.Height,number,c,align); {function ConvertAlign(align: Alignment): Alignment; @@ -970,7 +972,7 @@ type function RealToScreenY(y: real) := y1 - my * (y + min); end; -/// f, [a,b] [min,max] , , x,y,w,h, +/// Рисует график функции f, заданной на отрезке [a,b] по оси абсцисс и на отрезке [min,max] по оси ординат, в прямоугольнике, задаваемом параметрами x,y,w,h, procedure DrawGraph(f: real-> real; a, b, min, max, x, y, w, h: real); begin var coefx := w / (b - a); @@ -978,7 +980,7 @@ begin var fso := new FS(coefx, coefy, a, min, max, x, y, f); - // + // Линии {Pen.Color := Color.LightGray; var hx := 1.0; @@ -1015,7 +1017,7 @@ begin yy -= hy end; - // + // Оси Pen.Color := Color.Blue; var x0 := fso.RealToScreenX(0); @@ -1024,7 +1026,7 @@ begin Line(x0,y1,x0,y2); Line(x1,y0,x2,y0);} - // + // График Pen.Color := Colors.Black; Rectangle(x, y, w, h); @@ -1090,7 +1092,7 @@ procedure WindowType.Clear := app.Dispatcher.Invoke(WindowTypeClearP); procedure WindowType.Clear(c: Color); begin - raise new System.NotImplementedException('WindowType.Clear(c) . - !') + raise new System.NotImplementedException('WindowType.Clear(c) пока не реализовано. Честное слово - в будущем!') end; procedure WindowTypeSetSizeP(w, h: real); @@ -1168,7 +1170,7 @@ function YMax := YOrigin/GlobalScale; procedure DrawGridP; begin if CurrentCoordType = ScreenCoords then - raise new Exception(' '); + raise new Exception('Рисование координатной сетки возможно только в математическом режиме'); var xfrom := Round(XMin); var xto := Round(XMax); @@ -1218,7 +1220,7 @@ begin // 0 x0 Window.Width GlobalScale := Window.Width/(x2-x1); XOrigin := -x1*GlobalScale; - // -ymin*scale - + // -ymin*scale - сколько надо отступить от низа окна // Window.Height + ymin*scale YOrigin := Window.Height + ymin*GlobalScale; SetMathematicCoordsScaleP(XOrigin,YOrigin,GlobalScale); @@ -1237,7 +1239,7 @@ begin GlobalScale := scale; var m: Transform := new MatrixTransform(scale,0,0,scale,x0,y0); Host.RenderTransform := m; - Pen.Width := Pen.Width * scale; // ! + Pen.Width := Pen.Width * scale; // нет! end; procedure SetStandardCoords(scale,x0,y0: real) := Invoke(SetStandardCoordsP,scale,x0,y0); @@ -1299,7 +1301,7 @@ var mre := new ManualResetEvent(false); var OnDraw: procedure := nil; var OnDraw1: procedure(frame: integer) := nil; -var FrameRate := 60; // . ! +var FrameRate := 60; // кадров в секунду. Можно меньше! var LastUpdatedTime := new System.TimeSpan(integer.MinValue); var FrameNum := 0; @@ -1310,13 +1312,13 @@ begin begin var e1 := RenderingEventArgs(e).RenderingTime; var dt := e1 - LastUpdatedTime; - var delta := 1000/Framerate; // + var delta := 1000/Framerate; // через какое время обновлять if dt.TotalMilliseconds < delta then exit else LastUpdatedTime := e1; FrameNum += 1; Window.Clear; - CountVisuals := integer.MinValue; // 1000 + CountVisuals := integer.MinValue; // чтобы не было паузы после 1000 объектов end; if OnDraw<>nil then OnDraw() @@ -1362,7 +1364,7 @@ begin Font := new FontType; Window := new WindowType; - MainWindow.Title := ' WPF'; + MainWindow.Title := 'Графика WPF'; var (w,h) := (800,600); (MainWindow.Width, MainWindow.Height) := (w + wplus, h + hplus); @@ -1390,5 +1392,5 @@ begin MainFormThread.SetApartmentState(ApartmentState.STA); MainFormThread.Start; - mre.WaitOne; // + mre.WaitOne; // Основная программа не начнется пока не будут инициализированы все компоненты приложения end. \ No newline at end of file diff --git a/bin/Lib/PT4.pas b/bin/Lib/PT4.pas index 941db637c..b7bca12c4 100644 --- a/bin/Lib/PT4.pas +++ b/bin/Lib/PT4.pas @@ -1,16 +1,16 @@ -/// Programming Taskbook 4 +/// Модуль электронного задачника Programming Taskbook 4 unit PT4; //------------------------------------------------------------------------------ -// Programming Taskbook -// 4.15 -// Copyright (c) 2006-2008 DarkStar, SSM -// Copyright (c) 2010 .., 1.3 -// Copyright (c) 2014-2015 .., 4.13 -// Copyright (c) 2015 .., 4.14 -// Copyright (c) 2016 .., 4.15 -// Copyright (c) 2017 .., 4.17 -// Programming Taskbook Copyright (c).., 1998-2017 +// Модуль для подключения задачника Programming Taskbook +// Версия 4.15 +// Copyright (©) 2006-2008 DarkStar, SSM +// Copyright (©) 2010 М.Э.Абрамян, дополнения к версии 1.3 +// Copyright (©) 2014-2015 М.Э.Абрамян, дополнения к версии 4.13 +// Copyright (©) 2015 М.Э.Абрамян, дополнения к версии 4.14 +// Copyright (©) 2016 М.Э.Абрамян, дополнения к версии 4.15 +// Copyright (©) 2017 М.Э.Абрамян, дополнения к версии 4.17 +// Электронный задачник Programming Taskbook Copyright (c)М.Э.Абрамян, 1998-2017 //------------------------------------------------------------------------------ {$apptype windows} @@ -22,9 +22,9 @@ uses System, System.Collections, System.Runtime.InteropServices; type - /// + /// Тип указателя на узел списка PNode = ^TNode; - /// + /// Тип узла списка TNode = record Data: integer; Next,Prev,Left,Right,Parent: PNode; @@ -80,240 +80,240 @@ type property Data: integer read getData write SetData; end; -/// +/// Вывести формулировку задания procedure Task(name: string); -/// +/// Ввести и вернуть значение целого типа function GetInt: integer; -/// +/// Ввести и вернуть значение целого типа function GetInteger: integer; -/// +/// Ввести и вернуть значение вещественного типа function GetReal: real; -/// +/// Ввести и вернуть значение вещественного типа function GetDouble: real; -/// +/// Ввести и вернуть значение символьного типа function GetChar: char; -/// +/// Ввести и вернуть значение строкового типа function GetString: string; -/// +/// Ввести и вернуть значение логического типа function GetBool: boolean; -/// +/// Ввести и вернуть значение логического типа function GetBoolean: boolean; -/// Node +/// Ввести и вернуть значение типа Node function GetNode: Node; -/// PNode +/// Ввести и вернуть значение типа PNode function GetPNode: PNode; -/// integer +/// Возвращает введенное значение типа integer function ReadInteger: integer; -/// real +/// Возвращает введенное значение типа real function ReadReal: real; -/// char +/// Возвращает введенное значение типа char function ReadChar: char; -/// string +/// Возвращает введенное значение типа string function ReadString: string; -/// boolean +/// Возвращает введенное значение типа boolean function ReadBoolean: boolean; -/// PNode +/// Возвращает введенное значение типа PNode function ReadPNode: PNode; -/// Node +/// Возвращает введенное значение типа Node function ReadNode: Node; -/// integer +/// Возвращает введенное значение типа integer function ReadlnInteger: integer; -/// real +/// Возвращает введенное значение типа real function ReadlnReal: real; -/// char +/// Возвращает введенное значение типа char function ReadlnChar: char; -/// string +/// Возвращает введенное значение типа string function ReadlnString: string; -/// boolean +/// Возвращает введенное значение типа boolean function ReadlnBoolean: boolean; -/// PNode +/// Возвращает введенное значение типа PNode function ReadlnPNode: PNode; -/// Node +/// Возвращает введенное значение типа Node function ReadlnNode: Node; -// == 4.15. == +// == Версия 4.15. Дополнения == -/// integer. -/// prompt +/// Возвращает введенное значение типа integer. +/// Строковое приглашение prompt игнорируется function ReadInteger(prompt: string): integer; -/// real. -/// prompt +/// Возвращает введенное значение типа real. +/// Строковое приглашение prompt игнорируется function ReadReal(prompt: string): real; -/// char. -/// prompt +/// Возвращает введенное значение типа char. +/// Строковое приглашение prompt игнорируется function ReadChar(prompt: string): char; -/// string. -/// prompt +/// Возвращает введенное значение типа string. +/// Строковое приглашение prompt игнорируется function ReadString(prompt: string): string; -/// boolean. -/// prompt +/// Возвращает введенное значение типа boolean. +/// Строковое приглашение prompt игнорируется function ReadBoolean(prompt: string): boolean; -/// PNode. -/// prompt +/// Возвращает введенное значение типа PNode. +/// Строковое приглашение prompt игнорируется function ReadPNode(prompt: string): PNode; -/// Node. -/// prompt +/// Возвращает введенное значение типа Node. +/// Строковое приглашение prompt игнорируется function ReadNode(prompt: string): Node; -/// integer. -/// prompt +/// Возвращает введенное значение типа integer. +/// Строковое приглашение prompt игнорируется function ReadlnInteger(prompt: string): integer; -/// real. -/// prompt +/// Возвращает введенное значение типа real. +/// Строковое приглашение prompt игнорируется function ReadlnReal(prompt: string): real; -/// char. -/// prompt +/// Возвращает введенное значение типа char. +/// Строковое приглашение prompt игнорируется function ReadlnChar(prompt: string): char; -/// string. -/// prompt +/// Возвращает введенное значение типа string. +/// Строковое приглашение prompt игнорируется function ReadlnString(prompt: string): string; -/// boolean. -/// prompt +/// Возвращает введенное значение типа boolean. +/// Строковое приглашение prompt игнорируется function ReadlnBoolean(prompt: string): boolean; -/// PNode. -/// prompt +/// Возвращает введенное значение типа PNode. +/// Строковое приглашение prompt игнорируется function ReadlnPNode(prompt: string): PNode; -/// Node. -/// prompt +/// Возвращает введенное значение типа Node. +/// Строковое приглашение prompt игнорируется function ReadlnNode(prompt: string): Node; -// == 4.15. == +// == Версия 4.15. Конец дополнений == -// == 4.17. == +// == Версия 4.17. Дополнения == -/// integer +/// Возвращает кортеж из двух введенных значений типа integer function ReadInteger2: (integer, integer); -/// real +/// Возвращает кортеж из двух введенных значений типа real function ReadReal2: (real, real); -/// char +/// Возвращает кортеж из двух введенных значений типа char function ReadChar2: (char, char); -/// string +/// Возвращает кортеж из двух введенных значений типа string function ReadString2: (string, string); -/// boolean +/// Возвращает кортеж из двух введенных значений типа boolean function ReadBoolean2: (boolean, boolean); -/// Node +/// Возвращает кортеж из двух введенных значений типа Node function ReadNode2: (Node, Node); -/// integer +/// Возвращает кортеж из двух введенных значений типа integer function ReadlnInteger2: (integer, integer); -/// real +/// Возвращает кортеж из двух введенных значений типа real function ReadlnReal2: (real, real); -/// char +/// Возвращает кортеж из двух введенных значений типа char function ReadlnChar2: (char, char); -/// string +/// Возвращает кортеж из двух введенных значений типа string function ReadlnString2: (string, string); -/// boolean +/// Возвращает кортеж из двух введенных значений типа boolean function ReadlnBoolean2: (boolean, boolean); -/// Node +/// Возвращает кортеж из двух введенных значений типа Node function ReadlnNode2: (Node, Node); -/// integer +/// Возвращает кортеж из трех введенных значений типа integer function ReadInteger3: (integer, integer, integer); -/// real +/// Возвращает кортеж из трех введенных значений типа real function ReadReal3: (real, real, real); -/// char +/// Возвращает кортеж из трех введенных значений типа char function ReadChar3: (char, char, char); -/// string +/// Возвращает кортеж из трех введенных значений типа string function ReadString3: (string, string, string); -/// boolean +/// Возвращает кортеж из трех введенных значений типа boolean function ReadBoolean3: (boolean, boolean, boolean); -/// Node +/// Возвращает кортеж из трех введенных значений типа Node function ReadNode3: (Node, Node, Node); -/// integer +/// Возвращает кортеж из трех введенных значений типа integer function ReadlnInteger3: (integer, integer, integer); -/// real +/// Возвращает кортеж из трех введенных значений типа real function ReadlnReal3: (real, real, real); -/// char +/// Возвращает кортеж из трех введенных значений типа char function ReadlnChar3: (char, char, char); -/// string +/// Возвращает кортеж из трех введенных значений типа string function ReadlnString3: (string, string, string); -/// boolean +/// Возвращает кортеж из трех введенных значений типа boolean function ReadlnBoolean3: (boolean, boolean, boolean); -/// Node +/// Возвращает кортеж из трех введенных значений типа Node function ReadlnNode3: (Node, Node, Node); -/// integer. -/// prompt +/// Возвращает кортеж из двух введенных значений типа integer. +/// Строковое приглашение prompt игнорируется function ReadInteger2(prompt: string): (integer, integer); -/// real. -/// prompt +/// Возвращает кортеж из двух введенных значений типа real. +/// Строковое приглашение prompt игнорируется function ReadReal2(prompt: string): (real, real); -/// char. -/// prompt +/// Возвращает кортеж из двух введенных значений типа char. +/// Строковое приглашение prompt игнорируется function ReadChar2(prompt: string): (char, char); -/// string. -/// prompt +/// Возвращает кортеж из двух введенных значений типа string. +/// Строковое приглашение prompt игнорируется function ReadString2(prompt: string): (string, string); -/// boolean. -/// prompt +/// Возвращает кортеж из двух введенных значений типа boolean. +/// Строковое приглашение prompt игнорируется function ReadBoolean2(prompt: string): (boolean, boolean); -/// Node. -/// prompt +/// Возвращает кортеж из двух введенных значений типа Node. +/// Строковое приглашение prompt игнорируется function ReadNode2(prompt: string): (Node, Node); -/// integer. -/// prompt +/// Возвращает кортеж из двух введенных значений типа integer. +/// Строковое приглашение prompt игнорируется function ReadlnInteger2(prompt: string): (integer, integer); -/// real. -/// prompt +/// Возвращает кортеж из двух введенных значений типа real. +/// Строковое приглашение prompt игнорируется function ReadlnReal2(prompt: string): (real, real); -/// char. -/// prompt +/// Возвращает кортеж из двух введенных значений типа char. +/// Строковое приглашение prompt игнорируется function ReadlnChar2(prompt: string): (char, char); -/// string. -/// prompt +/// Возвращает кортеж из двух введенных значений типа string. +/// Строковое приглашение prompt игнорируется function ReadlnString2(prompt: string): (string, string); -/// boolean. -/// prompt +/// Возвращает кортеж из двух введенных значений типа boolean. +/// Строковое приглашение prompt игнорируется function ReadlnBoolean2(prompt: string): (boolean, boolean); -/// Node. -/// prompt +/// Возвращает кортеж из двух введенных значений типа Node. +/// Строковое приглашение prompt игнорируется function ReadlnNode2(prompt: string): (Node, Node); -/// integer. -/// prompt +/// Возвращает кортеж из трех введенных значений типа integer. +/// Строковое приглашение prompt игнорируется function ReadInteger3(prompt: string): (integer, integer, integer); -/// real. -/// prompt +/// Возвращает кортеж из трех введенных значений типа real. +/// Строковое приглашение prompt игнорируется function ReadReal3(prompt: string): (real, real, real); -/// char. -/// prompt +/// Возвращает кортеж из трех введенных значений типа char. +/// Строковое приглашение prompt игнорируется function ReadChar3(prompt: string): (char, char, char); -/// string. -/// prompt +/// Возвращает кортеж из трех введенных значений типа string. +/// Строковое приглашение prompt игнорируется function ReadString3(prompt: string): (string, string, string); -/// boolean. -/// prompt +/// Возвращает кортеж из трех введенных значений типа boolean. +/// Строковое приглашение prompt игнорируется function ReadBoolean3(prompt: string): (boolean, boolean, boolean); -/// Node. -/// prompt +/// Возвращает кортеж из трех введенных значений типа Node. +/// Строковое приглашение prompt игнорируется function ReadNode3(prompt: string): (Node, Node, Node); -/// integer. -/// prompt +/// Возвращает кортеж из трех введенных значений типа integer. +/// Строковое приглашение prompt игнорируется function ReadlnInteger3(prompt: string): (integer, integer, integer); -/// real. -/// prompt +/// Возвращает кортеж из трех введенных значений типа real. +/// Строковое приглашение prompt игнорируется function ReadlnReal3(prompt: string): (real, real, real); -/// char. -/// prompt +/// Возвращает кортеж из трех введенных значений типа char. +/// Строковое приглашение prompt игнорируется function ReadlnChar3(prompt: string): (char, char, char); -/// string. -/// prompt +/// Возвращает кортеж из трех введенных значений типа string. +/// Строковое приглашение prompt игнорируется function ReadlnString3(prompt: string): (string, string, string); -/// boolean. -/// prompt +/// Возвращает кортеж из трех введенных значений типа boolean. +/// Строковое приглашение prompt игнорируется function ReadlnBoolean3(prompt: string): (boolean, boolean, boolean); -/// Node. -/// prompt +/// Возвращает кортеж из трех введенных значений типа Node. +/// Строковое приглашение prompt игнорируется function ReadlnNode3(prompt: string): (Node, Node, Node); -// == 4.17. == +// == Версия 4.17. Конец дополнений == procedure GetR(var param: real); @@ -341,9 +341,9 @@ procedure Put(param: boolean); procedure Put(param: PNode); procedure Put(param: Node); -// +//Ввод этих данных не поддерживается ///- read(a,b,...) -/// a,b,... +/// Вводит значения a,b,... из окна электронного задачника procedure read(var x: byte); ///-- procedure read(var x: shortint); @@ -381,21 +381,21 @@ procedure Readln; procedure Print(params args: array of object); procedure Println(params args: array of object); -// == 4.15. == +// == Версия 4.15. Дополнения == procedure Print(s: string); procedure Println(s: string); -// == 4.15. == +// == Версия 4.15. Конец дополнений == -/// , , p +/// Освобождает память, выделенную динамически, на которую указывает p procedure Dispose(p: pointer); -// - Intellisense -// , - write +// Фиктивная пустая процедура - для Intellisense +// Нет, нельзя пользоваться - закрываются процедуры write системного модуля ///- write(a,b,...) -/// a,b,... +/// Выводит значения a,b,... в окно электронного задачника //procedure write; ///-- @@ -403,162 +403,162 @@ procedure __InitModule__; ///-- procedure __FinalizeModule__; -// == 1.3. == +// == Версия 1.3. Дополнения == -/// S +/// Выводит строку S в разделе отладки окна задачника procedure Show(S: string); -/// A S -/// ; W +/// Выводит число A с комментарием S в разделе отладки +/// окна задачника; для вывода числа отводится W экранных позиций procedure Show(S: string; A: integer; W: integer); -/// A S -/// ; W +/// Выводит число A с комментарием S в разделе отладки +/// окна задачника; для вывода числа отводится W экранных позиций procedure Show(S: string; A: real; W: integer); -/// A S +/// Выводит число A с комментарием S в разделе отладки окна задачника procedure Show(S: string; A: integer); -/// A S +/// Выводит число A с комментарием S в разделе отладки окна задачника procedure Show(S: string; A: real); -/// A ; -/// W +/// Выводит число A в разделе отладки окна задачника; +/// для вывода отводится W экранных позиций procedure Show(A: integer; W: integer); -/// A ; -/// W +/// Выводит число A в разделе отладки окна задачника; +/// для вывода отводится W экранных позиций procedure Show(A: real; W: integer); -/// A +/// Выводит число A в разделе отладки окна задачника procedure Show(A: integer); -/// A +/// Выводит число A в разделе отладки окна задачника procedure Show(A: real); -/// -/// +/// Выполняет переход на новую экранную строку +/// в разделе отладки окна задачника procedure ShowLine; -/// S , -/// +/// Выводит строку S в разделе отладки окна задачника, +/// после чего выполняет переход на новую экранную строку procedure ShowLine(S: string); -/// A S -/// ; W . -/// +/// Выводит число A с комментарием S в разделе отладки +/// окна задачника; для вывода числа отводится W экранных позиций. +/// После вывода данных выполняет переход на новую экранную строку procedure ShowLine(S: string; A: integer; W: integer); -/// A S -/// ; W . -/// +/// Выводит число A с комментарием S в разделе отладки +/// окна задачника; для вывода числа отводится W экранных позиций. +/// После вывода данных выполняет переход на новую экранную строку procedure ShowLine(S: string; A: real; W: integer); -/// A S , -/// +/// Выводит число A с комментарием S в разделе отладки окна задачника, +/// после чего выполняет переход на новую экранную строку procedure ShowLine(S: string; A: integer); -/// A S , -/// +/// Выводит число A с комментарием S в разделе отладки окна задачника, +/// после чего выполняет переход на новую экранную строку procedure ShowLine(S: string; A: real); -/// A ; -/// W . -/// +/// Выводит число A в разделе отладки окна задачника; +/// для вывода отводится W экранных позиций. +/// После вывода числа выполняет переход на новую экранную строку procedure ShowLine(A: integer; W: integer); -/// A ; -/// W . -/// +/// Выводит число A в разделе отладки окна задачника; +/// для вывода отводится W экранных позиций. +/// После вывода числа выполняет переход на новую экранную строку procedure ShowLine(A: real; W: integer); -/// A , -/// +/// Выводит число A в разделе отладки окна задачника, +/// после чего выполняет переход на новую экранную строку procedure ShowLine(A: integer); -/// A , -/// +/// Выводит число A в разделе отладки окна задачника, +/// после чего выполняет переход на новую экранную строку procedure ShowLine(A: real); -/// -/// . N > 0, -/// N . N = 0, -/// , -/// +/// Настраивает формат вывода вещественных чисел в разделе отладки +/// окна задачника. Если N > 0, то число выводится в формате +/// с фиксированной точкой и N дробными знаками. Если N = 0, +/// то число выводится в экспоненциальном формате, число дробных +/// знаков определяется шириной поля вывода procedure SetPrecision(N: integer); -/// -/// , +/// Обеспечивает автоматическое скрытие всех разделов +/// окна задачника, кроме раздела отладки procedure HideTask; -// == 1.3 == +// == Конец дополнений к версии 1.3 == -// == 4.14. == +// == Версия 4.14. Дополнения == -/// n -/// +/// Вводит n целых чисел +/// и возвращает введенные числа в виде массива function ReadArrInteger(n: integer): array of integer; -/// n -/// +/// Вводит n вещественных чисел +/// и возвращает введенные числа в виде массива function ReadArrReal(n: integer): array of real; -/// n -/// +/// Вводит n строк +/// и возвращает введенные строки в виде массива function ReadArrString(n: integer): array of string; -/// n -/// +/// Вводит n целых чисел +/// и возвращает введенные числа в виде последовательности function ReadSeqInteger(n: integer): sequence of integer; -/// n -/// +/// Вводит n вещественных чисел +/// и возвращает введенные числа в виде последовательности function ReadSeqReal(n: integer): sequence of real; -/// n -/// +/// Вводит n строк +/// и возвращает введенные строки в виде последовательности function ReadSeqString(n: integer): sequence of string; -/// -/// +/// Вводит размер набора целых чисел и его элементы +/// и возвращает введенный набор в виде последовательности function ReadSeqInteger(): sequence of integer; -/// -/// +/// Вводит размер набора вещественных чисел и его элементы +/// и возвращает введенный набор в виде последовательности function ReadSeqReal(): sequence of real; -/// -/// +/// Вводит размер набора строк и его элементы +/// и возвращает введенный набор в виде последовательности function ReadSeqString(): sequence of string; -/// -/// +/// Вводит размер набора целых чисел и его элементы +/// и возвращает введенный набор в виде массива function ReadArrInteger(): array of integer; -/// -/// +/// Вводит размер набора вещественных чисел и его элементы +/// и возвращает введенный набор в виде массива function ReadArrReal(): array of real; -/// -/// +/// Вводит размер набора строк и его элементы +/// и возвращает введенный набор в виде массива function ReadArrString(): array of string; -/// m n +/// Вводит целую матрицу размера m на n по строкам function ReadMatrInteger(m,n: integer): array [,] of integer; -/// +/// Вводит размеры матрицы и затем целую матрицу указанных размеров по строкам function ReadMatrInteger(): array [,] of integer; -/// m n +/// Вводит вещественную матрицу размера m на n по строкам function ReadMatrReal(m,n: integer): array [,] of real; -/// +/// Вводит размеры матрицы и затем вещественную матрицу указанных размеров по строкам function ReadMatrReal(): array [,] of real; -/// m n +/// Вводит матрицу из строк размера m на n по строкам function ReadMatrString(m,n: integer): array [,] of string; -/// +/// Вводит размеры матрицы и затем строковую матрицу указанных размеров по строкам function ReadMatrString(): array [,] of string; procedure ReadMatr(var m, n: integer; var a: array [,] of integer); @@ -603,7 +603,7 @@ procedure WriteMatr(a: array of array of T); procedure WriteMatr(a: List>); -// == 2016.07 +// == Дополнения 2016.07 procedure PrintMatr(a: array[,] of T); @@ -611,16 +611,16 @@ procedure PrintMatr(a: array of array of T); procedure PrintMatr(a: List>); -// == 2016.07 +// == Конец дополнений 2016.07 -// == 4.14 == +// == Конец дополнений к версии 4.14 == implementation const - NotSupportedReadTypeMessage = ' {0} '; - NotSupportedWriteTypeMessage = ' {0} '; - eMessage = ' Node Dispose'; + NotSupportedReadTypeMessage = 'Ввод данных типа {0} не поддерживается'; + NotSupportedWriteTypeMessage = 'Вывод данных типа {0} не поддерживается'; + eMessage = 'Попытка обращения к объекту Node после вызова его метода Dispose'; var loadNodes: ArrayList; @@ -1058,7 +1058,7 @@ begin end; // ----------------------------------------------------- -// Get +// Функции Get // ----------------------------------------------------- function GetInt: integer; var val:integer; @@ -1094,7 +1094,7 @@ end; function GetString: string; var val: System.Text.StringBuilder; begin - val := new System.Text.StringBuilder(200);//TODO 200? + val := new System.Text.StringBuilder(200);//TODO почему 200? _gets(val); result := val.ToString; end; @@ -1125,8 +1125,8 @@ var p: IntPtr; sNode: InternalNode; begin - //raise new NotSupportedException(' PT4 . '); - //result := new PT4Node(sNode, p);// fixme ! + //raise new NotSupportedException('Работа с динамическими структурами задачника PT4 не поддерживается в этой версии компилятора. Исправление ошибки планируется в следуйщей версии'); + //result := new PT4Node(sNode, p);// fixme здесь ошибка генерации кода! p := IntPtr.Zero; sNode.Data := 0; sNode.Next := IntPtr.Zero; @@ -1225,7 +1225,7 @@ begin Result := GetNode; end; -// == 4.15. == +// == Версия 4.15. Дополнения == function ReadInteger(prompt: string): integer; begin @@ -1297,9 +1297,9 @@ begin Result := GetNode; end; -// == 4.15. == +// == Версия 4.15. Конец дополнений == -// == 4.17. == +// == Версия 4.17. Дополнения == function ReadInteger2: (integer, integer); begin @@ -1541,11 +1541,11 @@ begin Result := (GetNode, GetNode, GetNode); end; -// == 4.17. == +// == Версия 4.17. Конец дополнений == // ----------------------------------------------------- -// Put +// Процедуры Put // ----------------------------------------------------- procedure PutInt(val: integer); begin @@ -1594,7 +1594,7 @@ begin end; // ----------------------------------------------------- -// +// Генерация исключений // ----------------------------------------------------- procedure RaisePTAndCheckPT(e: Exception); begin @@ -1719,7 +1719,7 @@ begin Print(args); end; -// == 4.15. == +// == Версия 4.15. Дополнения == procedure Print(s: string); begin @@ -1731,7 +1731,7 @@ begin write(s); end; -// == 4.15. == +// == Версия 4.15. Конец дополнений == {procedure write; begin @@ -1769,7 +1769,7 @@ begin var ip := IntPtr(PointerOutput(args[i]).p); _PutP(ip); end -// == 4.17. == +// == Версия 4.17. Дополнения == else if args[i].GetType.FullName.StartsWith('System.Tuple') then foreach var e in args[i].GetType.GetProperties do InternalWrite(Arr(e.GetValue(args[i],nil))) @@ -1779,7 +1779,7 @@ begin while e.MoveNext do InternalWrite(Arr(e.Current)); end -// == 4.17. == +// == Версия 4.17. Конец дополнений == else GenerateNotSupportedWriteTypeException(args[i].GetType.ToString); end; @@ -1815,7 +1815,7 @@ begin if InfoT=0 then Console.WriteLine(InfoS); FreePT; - // == 4.13 == + // == Начало дополнений к версии 4.13 == var fpt := FinishPT; if fpt = 1 then exit; var asm := System.Reflection.Assembly.GetExecutingAssembly; @@ -1864,10 +1864,10 @@ begin inc(i); fpt := FinishPT; end; - // == 4.13 == + // == Конец дополнений к версии 4.13 == end; -// == 1.3. == +// == Версия 1.3. Дополнения == var D: integer := 2; @@ -1989,9 +1989,9 @@ begin D := N; end; -// == 1.3 == +// == Конец дополнений к версии 1.3 == -// == 4.14. == +// == Версия 4.14. Дополнения == function ReadSeqInteger(): sequence of integer; begin @@ -2263,7 +2263,7 @@ begin write(a[i][j]); end; -/// +/// Выводит размер и элементы последовательности procedure WriteAll(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -2272,7 +2272,7 @@ begin PT4.Put(e); end; -/// +/// Выводит элементы последовательности procedure Write(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -2280,14 +2280,14 @@ begin PT4.Put(e); end; -/// +/// Выводит элементы динамического массива procedure Write(self: array of T); extensionmethod; begin for var i:=0 to self.Length-1 do PT4.Put(self[i]); end; -/// +/// Выводит элементы матрицы procedure Write(self: array [,] of T); extensionmethod; begin for var i:=0 to self.GetLength(0)-1 do @@ -2295,7 +2295,7 @@ begin PT4.Put(self[i,j]); end; -// == 2016.07 +// == Дополнения 2016.07 procedure PrintMatr(a: array[,] of T); begin @@ -2318,7 +2318,7 @@ begin write(a[i][j]); end; -/// +/// Выводит размер и элементы последовательности procedure PrintAll(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -2327,7 +2327,7 @@ begin PT4.Put(e); end; -/// +/// Выводит размер и элементы динамического массива procedure PrintAll(self: array of T); extensionmethod; begin PT4.Put(self.Length); @@ -2335,7 +2335,7 @@ begin PT4.Put(self[i]); end; -/// +/// Выводит размер и элементы динамического массива procedure WriteAll(self: array of T); extensionmethod; begin PT4.Put(self.Length); @@ -2343,7 +2343,7 @@ begin PT4.Put(self[i]); end; -/// +/// Выводит элементы последовательности procedure Writeln(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -2351,14 +2351,14 @@ begin PT4.Put(e); end; -/// +/// Выводит элементы динамического массива procedure Writeln(self: array of T); extensionmethod; begin for var i:=0 to self.Length-1 do PT4.Put(self[i]); end; -/// +/// Выводит элементы матрицы procedure Writeln(self: array [,] of T); extensionmethod; begin for var i:=0 to self.GetLength(0)-1 do @@ -2366,13 +2366,13 @@ begin PT4.Put(self[i,j]); end; -// == 2016.07 +// == Конец дополнений 2016.07 -/// -/// cmt, , -/// -/// - +/// Выводит в разделе отладки окна задачника +/// комментарий cmt, размер последовательности и значения, +/// полученные из элементов последовательности +/// с помощью указанного лямбда-выражения function Show(self: sequence of TSource; cmt: string; selector: System.Func): sequence of TSource; extensionmethod; begin @@ -2385,17 +2385,17 @@ begin result := self; end; -/// -/// , -/// -/// - +/// Выводит в разделе отладки окна задачника +/// размер последовательности и значения, +/// полученные из элементов последовательности +/// с помощью указанного лямбда-выражения function Show(Self: sequence of TSource; selector: System.Func): sequence of TSource; extensionmethod; begin result := self.Show('', selector); end; -/// -/// cmt, +/// Выводит в разделе отладки окна задачника +/// комментарий cmt, размер последовательности и ее элементы function Show(Self: sequence of TSource; cmt: string): sequence of TSource; extensionmethod; begin result := self; @@ -2414,14 +2414,14 @@ begin end; -/// -/// . +/// Выводит в разделе отладки окна задачника +/// размер последовательности и ее элементы. function Show(Self: sequence of TSource): sequence of TSource; extensionmethod; begin result := self.Show(''); end; -// == 4.14 == +// == Конец дополнений к версии 4.14 == initialization __InitModule; diff --git a/bin/Lib/PT4Exam.pas b/bin/Lib/PT4Exam.pas index 02de9ad3e..86af152c8 100644 --- a/bin/Lib/PT4Exam.pas +++ b/bin/Lib/PT4Exam.pas @@ -4,7 +4,7 @@ unit PT4Exam; //------------------------------------------------------------------------------ // Модуль для подключения задачника PT for Exam // Версия 1.2 -// Copyright (c) 2014-2017 М.Э.Абрамян +// Copyright (©) 2014-2017 М.Э.Абрамян //------------------------------------------------------------------------------ diff --git a/bin/Lib/PT4MakerNetX.pas b/bin/Lib/PT4MakerNetX.pas index bc9f9f51c..d3989fccc 100644 --- a/bin/Lib/PT4MakerNetX.pas +++ b/bin/Lib/PT4MakerNetX.pas @@ -1,242 +1,242 @@ -/// Programming Taskbook. -/// 1.5 27.03.2017 () . . , 2016-2017. -/// pt, -/// . +/// Конструктор учебных заданий для задачника Programming Taskbook. +/// Версия 1.5 от 27.03.2017 (©) М. Э. Абрамян, 2016-2017. +/// Все компоненты конструктора могут вызываться либо как классовые методы класса pt, +/// либо как обычные константы и процедуры. unit PT4MakerNetX; interface const - OptionAllLanguages = 1; // - OptionPascalLanguages = 2; // - OptionNETLanguages = 4; // NET- - OptionUseAddition = 8; // - OptionHideExamples = 16; // + OptionAllLanguages = 1; // группа доступна для всех языков + OptionPascalLanguages = 2; // группа доступна для всех реализаций Паскаля + OptionNETLanguages = 4; // группа доступна для всех NET-языков + OptionUseAddition = 8; // группа доступна только при наличии файла дополнений + OptionHideExamples = 16; // не отображать раздел с примером верного решения -/// , . -/// , Task. -/// topic . -/// tasktext ; -/// #13, #10 #13#10. +/// Процедура, с которой должно начинаться определение нового задания. +/// Должна вызываться в процедуре с именем, начинающемся с текста Task. +/// Параметр topic определяет имя подгруппы и является необязательным. +/// Параметр tasktext содержит формулировку задания; отдельные строки +/// формулировки должны разделяться символами #13, #10 или #13#10. procedure NewTask(topic, tasktext: string); -/// , . -/// , Task. -/// tasktext ; -/// #13, #10 #13#10. +/// Процедура, с которой должно начинаться определение нового задания. +/// Должна вызываться в процедуре с именем, начинающемся с текста Task. +/// Параметр tasktext содержит формулировку задания; отдельные строки +/// формулировки должны разделяться символами #13, #10 или #13#10. procedure NewTask(tasktext: string); -/// . +/// Добавляет комментарий в новой строке раздела исходных даннных. procedure DataComm(comm: string); -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. procedure Data(comm: string; a: object); -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. procedure Data(comm1: string; a1: object; comm2: string); -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. procedure Data(comm1: string; a1: object; comm2: string; a2: object); -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. procedure Data(comm1: string; a1: object; comm2: string; a2: object; comm3: string); -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. procedure Data(comm1: string; a1: object; comm2: string; a2: object; comm3: string; a3: object); -/// . +/// Добавляет последовательность логических данных в раздел исходных данных. procedure Data(seq: sequence of boolean); -/// . +/// Добавляет последовательность целых чисел в раздел исходных данных. procedure Data(seq: sequence of integer); -/// . +/// Добавляет последовательность вещественных чисел в раздел исходных данных. procedure Data(seq: sequence of real); -/// . +/// Добавляет последовательность символов в раздел исходных данных. procedure Data(seq: sequence of char); -/// . +/// Добавляет последовательность строк в раздел исходных данных. procedure Data(seq: sequence of string); -/// . +/// Добавляет комментарий в новой строке раздела результатов. procedure ResComm(comm: string); -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. procedure Res(comm: string; a: object); -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. procedure Res(comm1: string; a1: object; comm2: string); -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. procedure Res(comm1: string; a1: object; comm2: string; a2: object); -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. procedure Res(comm1: string; a1: object; comm2: string; a2: object; comm3: string); -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. procedure Res(comm1: string; a1: object; comm2: string; a2: object; comm3: string; a3: object); -/// . +/// Добавляет последовательность логических данных в раздел результатов. procedure Res(seq: sequence of boolean); -/// . +/// Добавляет последовательность целых чисел в раздел результатов. procedure Res(seq: sequence of integer); -/// . +/// Добавляет последовательность вещественных чисел в раздел результатов. procedure Res(seq: sequence of real); -/// . +/// Добавляет последовательность символов в раздел результатов. procedure Res(seq: sequence of char); -/// . +/// Добавляет последовательность строк в раздел результатов. procedure Res(seq: sequence of string); -/// -/// ( , -/// .. ). -/// n 0..10, . -/// 0. +/// Задает минимальную ширину поля вывода для числовых данных +/// (числа выравниваются по правому краю поля вывода, +/// т.е. при необходимости дополняются слева пробелами). +/// Если n не лежит в диапазоне 0..10, то вызов процедуры игнорируется. +/// По умолчанию минимальная ширина поля вывода полагается равной 0. procedure SetWidth(n: integer); -/// : -/// n n > 0, -/// n n < 0, -/// 6 n = 0. -/// n 10, . -/// -/// 2 . +/// Задает формат отображения вещественных чисел: +/// с фиксированной точкой и n дробными знаками при n > 0, +/// с плавающей точкой и n дробными знаками при n < 0, +/// с плавающей точкой и 6 дробными знаками при n = 0. +/// Если n по модулю превосходит 10, то вызов процедуры игнорируется. +/// По умолчанию устанавливается формат с фиксированной точкой +/// и 2 дробными знаками. procedure SetPrecision(n: integer); -/// , -/// ( 2 10). -/// 5. +/// Задает количество тестовых запусков, выполняемых +/// для проверки правильности программы (от 2 до 10). +/// По умолчанию число тестовых запусков полагается равным 5. procedure SetTestCount(n: integer); -/// -/// , -/// . -/// , -/// . +/// Задает минимально необходимое количество элементов +/// исходных данных, которое требуется ввести для правильного +/// решения задачи в случае текущего набора исходных данных. +/// При отсутствии процедуры предполагается, +/// что для правильного решения надо ввести все исходные данные. procedure SetRequiredDataCount(n: integer); -/// -/// ( 1). +/// Возвращает номер текущего тестового запуска +/// (запуски нумеруются от 1). function CurrentTest: integer; -/// M N . -/// M >= N, M. +/// Генерирует случайное целов в диапазоне от M до N включительно. +/// Если M >= N, то возвращает M. function Random(M, N: integer): integer; -/// [A, B). -/// [A, B) , A. +/// Генерирует случайное вещественное на промежутке [A, B). +/// Если промежуток [A, B) пуст, то возвращает A. function Random(A, B: real): real; -/// len, -/// (.. ) . +/// Генерирует случайную строку длины len, состоящую +/// из цифр и строчных (т.е. маленьких) латинских букв. function RandomName(len: integer): string; -/// GroupDescription, -/// GroupAuthor , or. -/// ( PT4). -/// , , Task. -/// NewGroup inittaskgroup , -/// ( inittaskgroup - ). +/// Создает новую группу с кратким описанием GroupDescription, +/// информацией об авторе GroupAuthor и набором необязательных опций, объединяемых операцией or. +/// Имя группы определяется по имени библиотеки (путем отбрасывания префикса PT4). +/// В группу включаются задания, определенные в процедурах, имена которых начинаются с текста Task. +/// Процедура NewGroup должна быть вызвана в процедуре inittaskgroup без параметров, которую +/// необходимо описать в библиотеке с группой заданий (все буквы в имени inittaskgroup - строчные). procedure NewGroup(GroupDescription, GroupAuthor: string; Options: integer := 0); -/// . -/// ActivateNET(S) activate(S: string), -/// ( activate - ). +/// Обеспечивает регистрацию созданной группы в электронном задачнике. +/// Процедура ActivateNET(S) должна быть вызвана в процедуре activate(S: string), +/// которую необходимо описать в библиотеке с группой заданий (все буквы в имени activate - строчные). procedure ActivateNET(S: string); -/// -/// GroupName TaskNumber. -/// , Task. +/// Импортирует в создаваемую группу существующее задание +/// из группы GroupName с номером TaskNumber. Должна вызываться +/// в процедуре с именем, начинающемся с текста Task. procedure UseTask(GroupName: string; TaskNumber: integer); -/// 116 . +/// Возвращает массив из 116 русских слов. function GetWords: array of string; -/// 116 . +/// Возвращает массив из 116 английских слов. function GetEnWords: array of string; -/// 61 . +/// Возвращает массив из 61 русского предложения. function GetSentences: array of string; -/// 61 . +/// Возвращает массив из 61 английского предложения. function GetEnSentences: array of string; -/// 85 . -/// #13#10. +/// Возвращает массив из 85 русских многострочных текстов. +/// Каждая строка текста оканчивается символами #13#10. function GetTexts: array of string; -/// 85 . -/// #13#10. +/// Возвращает массив из 85 английских многострочных текстов. +/// Каждая строка текста оканчивается символами #13#10. function GetEnTexts: array of string; -/// , -/// . +/// Возвращает случайное русское слово из массива, +/// входящего в конструктор учебных заданий. function RandomWord: string; -/// , -/// . +/// Возвращает случайное английское слово из массива, +/// входящего в конструктор учебных заданий. function RandomEnWord: string; -/// , -/// . +/// Возвращает случайное русское предложение из массива, +/// входящего в конструктор учебных заданий. function RandomSentence: string; -/// , -/// . +/// Возвращает случайное английское предложение из массива, +/// входящего в конструктор учебных заданий. function RandomEnSentence: string; -/// , -/// . -/// #13#10. +/// Возвращает случайный русский многострочный текст из массива, +/// входящего в конструктор учебных заданий. +/// Каждая строка текста оканчивается символами #13#10. function RandomText: string; -/// , -/// . -/// #13#10. +/// Возвращает случайный английский многострочный текст из массива, +/// входящего в конструктор учебных заданий. +/// Каждая строка текста оканчивается символами #13#10. function RandomEnText: string; -/// -/// FileName -/// . +/// Добавляет в задание исходный файл целых чисел +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. procedure DataFileInteger(FileName: string); -/// -/// FileName -/// . +/// Добавляет в задание исходный файл вещественных чисел +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. procedure DataFileReal(FileName: string); -/// -/// FileName -/// . -/// . +/// Добавляет в задание исходный символьный файл +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. Символы должны +/// храниться в файле в однобайтной кодировке. procedure DataFileChar(FileName: string); -/// -/// ShortString FileName -/// . -/// 70 . -/// . +/// Добавляет в задание исходный строковый файл +/// с элементами типа ShortString и именем FileName +/// и отображает его содержимое в разделе исходных данных. +/// Длина элементов файла не должна превосходить 70 символов. +/// Строки должны храниться в файле в однобайтной кодировке. procedure DataFileString(FileName: string); -/// -/// FileName -/// . -/// 70 . -/// . +/// Добавляет в задание исходный текстовый файл +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. Длина каждой строки +/// текстового файла не должна превосходить 70 символов. +/// Текст должен храниться в файле в однобайтной кодировке. procedure DataText(FileName: string; LineCount: integer := 4); -/// -/// FileName . +/// Добавляет в задание результирующий файл целых чисел +/// с именем FileName и отображает его содержимое в разделе результатов. procedure ResFileInteger(FileName: string); -/// -/// FileName . +/// Добавляет в задание результирующий файл вещественных чисел +/// с именем FileName и отображает его содержимое в разделе результатов. procedure ResFileReal(FileName: string); -/// -/// FileName . -/// . +/// Добавляет в задание результирующий символьный файл +/// с именем FileName и отображает его содержимое в разделе результатов. +/// Символы должны храниться в файле в однобайтной кодировке. procedure ResFileChar(FileName: string); -/// -/// ShortString FileName -/// . -/// 70 . -/// . +/// Добавляет в задание результирующий строковый файл +/// с элементами типа ShortString и именем FileName +/// и отображает его содержимое в разделе результатов. +/// Длина элементов файла не должна превосходить 70 символов. +/// Строки должны храниться в файле в однобайтной кодировке. procedure ResFileString(FileName: string); -/// -/// FileName . -/// 70 . -/// . +/// Добавляет в задание результирующий текстовый файл +/// с именем FileName и отображает его содержимое в разделе результатов. +/// Длина каждой строки текстового файла не должна превосходить 70 символов. +/// Текст должен храниться в файле в однобайтной кодировке. procedure ResText(FileName: string; LineCount: integer := 5); type pt = class @@ -245,395 +245,395 @@ type pt = class begin end; public -/// NewGroup: -/// . +/// Дополнительная опция для процедуры NewGroup: +/// группа доступна для всех языков. class function OptionAllLanguages: integer; begin result := PT4MakerNetX.OptionAllLanguages; end; -/// NewGroup: -/// Pascal. +/// Дополнительная опция для процедуры NewGroup: +/// группа доступна для всех реализаций языка Pascal. class function OptionPascalLanguages: integer; begin result := PT4MakerNetX.OptionPascalLanguages; end; -/// NewGroup: -/// NET-. +/// Дополнительная опция для процедуры NewGroup: +/// группа доступна для всех NET-языков. class function OptionNETLanguages: integer; begin result := PT4MakerNetX.OptionNETLanguages; end; -/// NewGroup: -/// . +/// Дополнительная опция для процедуры NewGroup: +/// группа доступна только при наличии связанного с ней файла дополнений. class function OptionUseAddition: integer; begin result := PT4MakerNetX.OptionUseAddition; end; -/// NewGroup: -/// . +/// Дополнительная опция для процедуры NewGroup: +/// в заданиях данной группы не будет отображаться пример верного решения. class function OptionHideExamples: integer; begin result := PT4MakerNetX.OptionHideExamples; end; -/// , . -/// , Task. -/// topic ( ). -/// tasktext ; -/// #13, #10 #13#10. +/// Процедура, с которой должно начинаться определение нового задания. +/// Должна вызываться в процедуре с именем, начинающемся с текста Task. +/// Параметр topic определяет имя подгруппы (является необязательным). +/// Параметр tasktext содержит формулировку задания; отдельные строки +/// формулировки должны разделяться символами #13, #10 или #13#10. class procedure NewTask(topic, tasktext: string); begin PT4MakerNetX.NewTask(topic, tasktext); end; -/// , . -/// , Task. -/// tasktext ; -/// #13, #10 #13#10. +/// Процедура, с которой должно начинаться определение нового задания. +/// Должна вызываться в процедуре с именем, начинающемся с текста Task. +/// Параметр tasktext содержит формулировку задания; отдельные строки +/// формулировки должны разделяться символами #13, #10 или #13#10. class procedure NewTask(tasktext: string); begin PT4MakerNetX.NewTask(tasktext); end; -/// . +/// Добавляет комментарий в новой строке раздела исходных даннных. class procedure DataComm(comm: string); begin PT4MakerNetX.DataComm(comm); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. class procedure Data(comm: string; a: object); begin PT4MakerNetX.Data(comm, a); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. class procedure Data(comm1: string; a1: object; comm2: string); begin PT4MakerNetX.Data(comm1, a1, comm2); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. class procedure Data(comm1: string; a1: object; comm2: string; a2: object); begin PT4MakerNetX.Data(comm1, a1, comm2, a2); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. class procedure Data(comm1: string; a1: object; comm2: string; a2: object; comm3: string); begin PT4MakerNetX.Data(comm1, a1, comm2, a2, comm3); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела исходных даннных. class procedure Data(comm1: string; a1: object; comm2: string; a2: object; comm3: string; a3: object); begin PT4MakerNetX.Data(comm1, a1, comm2, a2, comm3, a3); end; -/// . +/// Добавляет последовательность логических данных в раздел исходных данных. class procedure Data(seq: sequence of boolean); begin PT4MakerNetX.Data(seq); end; -/// . +/// Добавляет последовательность целых чисел в раздел исходных данных. class procedure Data(seq: sequence of integer); begin PT4MakerNetX.Data(seq); end; -/// . +/// Добавляет последовательность вещественных чисел в раздел исходных данных. class procedure Data(seq: sequence of real); begin PT4MakerNetX.Data(seq); end; -/// . +/// Добавляет последовательность символов в раздел исходных данных. class procedure Data(seq: sequence of char); begin PT4MakerNetX.Data(seq); end; -/// . +/// Добавляет последовательность строк в раздел исходных данных. class procedure Data(seq: sequence of string); begin PT4MakerNetX.Data(seq); end; -/// . +/// Добавляет комментарий в новой строке раздела результатов. class procedure ResComm(comm: string); begin PT4MakerNetX.ResComm(comm); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. class procedure Res(comm: string; a: object); begin PT4MakerNetX.Res(comm, a); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. class procedure Res(comm1: string; a1: object; comm2: string); begin PT4MakerNetX.Res(comm1, a1, comm2); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. class procedure Res(comm1: string; a1: object; comm2: string; a2: object); begin PT4MakerNetX.Res(comm1, a1, comm2, a2); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. class procedure Res(comm1: string; a1: object; comm2: string; a2: object; comm3: string); begin PT4MakerNetX.Res(comm1, a1, comm2, a2, comm3); end; -/// . +/// Добавляет данные и комментарии в новой строке раздела результатов. class procedure Res(comm1: string; a1: object; comm2: string; a2: object; comm3: string; a3: object); begin PT4MakerNetX.Res(comm1, a1, comm2, a2, comm3, a3); end; -/// . +/// Добавляет последовательность логических данных в раздел результатов. class procedure Res(seq: sequence of boolean); begin PT4MakerNetX.Res(seq); end; -/// . +/// Добавляет последовательность целых чисел в раздел результатов. class procedure Res(seq: sequence of integer); begin PT4MakerNetX.Res(seq); end; -/// . +/// Добавляет последовательность вещественных чисел в раздел результатов. class procedure Res(seq: sequence of real); begin PT4MakerNetX.Res(seq); end; -/// . +/// Добавляет последовательность символов в раздел результатов. class procedure Res(seq: sequence of char); begin PT4MakerNetX.Res(seq); end; -/// . +/// Добавляет последовательность строк в раздел результатов. class procedure Res(seq: sequence of string); begin PT4MakerNetX.Res(seq); end; -/// -/// ( , -/// .. ). -/// n 0..10, . -/// 0. +/// Задает минимальную ширину поля вывода для числовых данных +/// (числа выравниваются по правому краю поля вывода, +/// т.е. при необходимости дополняются слева пробелами). +/// Если n не лежит в диапазоне 0..10, то вызов процедуры игнорируется. +/// По умолчанию минимальная ширина поля вывода полагается равной 0. class procedure SetWidth(n: integer); begin PT4MakerNetX.SetWidth(n); end; -/// : -/// n n > 0, -/// n n < 0, -/// 6 n = 0. -/// n 10, . -/// -/// 2 . +/// Задает формат отображения вещественных чисел: +/// с фиксированной точкой и n дробными знаками при n > 0, +/// с плавающей точкой и n дробными знаками при n < 0, +/// с плавающей точкой и 6 дробными знаками при n = 0. +/// Если n по модулю превосходит 10, то вызов процедуры игнорируется. +/// По умолчанию устанавливается формат с фиксированной точкой +/// и 2 дробными знаками. class procedure SetPrecision(n: integer); begin PT4MakerNetX.SetPrecision(n); end; -/// , -/// ( 2 10). -/// 5. +/// Задает количество тестовых запусков, выполняемых +/// для проверки правильности программы (от 2 до 10). +/// По умолчанию число тестовых запусков полагается равным 5. class procedure SetTestCount(n: integer); begin PT4MakerNetX.SetTestCount(n); end; -/// -/// , -/// . -/// , -/// . +/// Задает минимально необходимое количество элементов +/// исходных данных, которое требуется ввести для правильного +/// решения задачи в случае текущего набора исходных данных. +/// При отсутствии процедуры предполагается, +/// что для правильного решения надо ввести все исходные данные. class procedure SetRequiredDataCount(n: integer); begin PT4MakerNetX.SetRequiredDataCount(n); end; -/// -/// ( 1). +/// Возвращает номер текущего тестового запуска +/// (запуски нумеруются от 1). class function CurrentTest: integer; begin result := PT4MakerNetX.CurrentTest; end; -/// M N . -/// M >= N, M. +/// Генерирует случайное целов в диапазоне от M до N включительно. +/// Если M >= N, то возвращает M. class function Random(M, N: integer): integer; begin result := PT4MakerNetX.Random(M, N); end; -/// [A, B). -/// [A, B) , A. +/// Генерирует случайное вещественное на промежутке [A, B). +/// Если промежуток [A, B) пуст, то возвращает A. class function Random(A, B: real): real; begin result := PT4MakerNetX.Random(A, B); end; -/// len, -/// (.. ) . +/// Генерирует случайную строку длины len, состоящую +/// из цифр и строчных (т.е. маленьких) латинских букв. class function RandomName(len: integer): string; begin result := PT4MakerNetX.RandomName(len); end; -/// GroupDescription, -/// GroupAuthor , or. -/// ( PT4). -/// , , Task. -/// NewGroup inittaskgroup , -/// ( inittaskgroup - ). +/// Создает новую группу с кратким описанием GroupDescription, +/// информацией об авторе GroupAuthor и набором необязательных опций, объединяемых операцией or. +/// Имя группы определяется по имени библиотеки (путем отбрасывания префикса PT4). +/// В группу включаются задания, определенные в процедурах, имена которых начинаются с текста Task. +/// Процедура NewGroup должна быть вызвана в процедуре inittaskgroup без параметров, которую +/// необходимо описать в библиотеке с группой заданий (все буквы в имени inittaskgroup - строчные). class procedure NewGroup(GroupDescription, GroupAuthor: string; Options: integer := 0); begin PT4MakerNetX.NewGroup(GroupDescription, GroupAuthor, Options); end; -/// . -/// ActivateNET(S) activate(S: string), -/// ( activate - ). +/// Обеспечивает регистрацию созданной группы в электронном задачнике. +/// Процедура ActivateNET(S) должна быть вызвана в процедуре activate(S: string), +/// которую необходимо описать в библиотеке с группой заданий (все буквы в имени activate - строчные). class procedure ActivateNET(S: string); begin PT4MakerNetX.ActivateNET(S); end; -/// -/// GroupName TaskNumber. -/// , Task. +/// Импортирует в создаваемую группу существующее задание +/// из группы GroupName с номером TaskNumber. Должна вызываться +/// в процедуре с именем, начинающемся с текста Task. class procedure UseTask(GroupName: string; TaskNumber: integer); begin PT4MakerNetX.UseTask(GroupName, TaskNumber); end; -/// 116 . +/// Возвращает массив из 116 русских слов. class function GetWords: array of string; begin result := PT4MakerNetX.GetWords; end; -/// 116 . +/// Возвращает массив из 116 английских слов. class function GetEnWords: array of string; begin result := PT4MakerNetX.GetEnWords; end; -/// 61 . +/// Возвращает массив из 61 русского предложения. class function GetSentences: array of string; begin result := PT4MakerNetX.GetSentences; end; -/// 61 . +/// Возвращает массив из 61 английского предложения. class function GetEnSentences: array of string; begin result := PT4MakerNetX.GetEnSentences; end; -/// 85 . -/// #13#10. +/// Возвращает массив из 85 русских многострочных текстов. +/// Каждая строка текста оканчивается символами #13#10. class function GetTexts: array of string; begin result := PT4MakerNetX.GetTexts; end; -/// 85 . -/// #13#10. +/// Возвращает массив из 85 английских многострочных текстов. +/// Каждая строка текста оканчивается символами #13#10. class function GetEnTexts: array of string; begin result := PT4MakerNetX.GetEnTexts; end; -/// , -/// . +/// Возвращает случайное русское слово из массива, +/// входящего в конструктор учебных заданий. class function RandomWord: string; begin result := PT4MakerNetX.RandomWord; end; -/// , -/// . +/// Возвращает случайное английское слово из массива, +/// входящего в конструктор учебных заданий. class function RandomEnWord: string; begin result := PT4MakerNetX.RandomEnWord; end; -/// , -/// . +/// Возвращает случайное русское предложение из массива, +/// входящего в конструктор учебных заданий. class function RandomSentence: string; begin result := PT4MakerNetX.RandomSentence; end; -/// , -/// . +/// Возвращает случайное английское предложение из массива, +/// входящего в конструктор учебных заданий. class function RandomEnSentence: string; begin result := PT4MakerNetX.RandomEnSentence; end; -/// , -/// . -/// #13#10. +/// Возвращает случайный русский многострочный текст из массива, +/// входящего в конструктор учебных заданий. +/// Каждая строка текста оканчивается символами #13#10. class function RandomText: string; begin result := PT4MakerNetX.RandomText; end; -/// , -/// . -/// #13#10. +/// Возвращает случайный английский многострочный текст из массива, +/// входящего в конструктор учебных заданий. +/// Каждая строка текста оканчивается символами #13#10. class function RandomEnText: string; begin result := PT4MakerNetX.RandomEnText; end; -/// -/// FileName -/// . +/// Добавляет в задание исходный файл целых чисел +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. class procedure DataFileInteger(FileName: string); begin PT4MakerNetX.DataFileInteger(FileName); end; -/// -/// FileName -/// . +/// Добавляет в задание исходный файл вещественных чисел +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. class procedure DataFileReal(FileName: string); begin PT4MakerNetX.DataFileReal(FileName); end; -/// -/// FileName -/// . -/// . +/// Добавляет в задание исходный символьный файл +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. Символы должны +/// храниться в файле в однобайтной кодировке. class procedure DataFileChar(FileName: string); begin PT4MakerNetX.DataFileChar(FileName); end; -/// -/// ShortString FileName -/// . -/// 70 . -/// . +/// Добавляет в задание исходный строковый файл +/// с элементами типа ShortString и именем FileName +/// и отображает его содержимое в разделе исходных данных. +/// Длина элементов файла не должна превосходить 70 символов. +/// Строки должны храниться в файле в однобайтной кодировке. class procedure DataFileString(FileName: string); begin PT4MakerNetX.DataFileString(FileName); end; -/// -/// FileName -/// . -/// 70 . -/// . +/// Добавляет в задание исходный текстовый файл +/// с именем FileName и отображает его содержимое +/// в разделе исходных данных. Длина каждой строки +/// текстового файла не должна превосходить 70 символов. +/// Текст должен храниться в файле в однобайтной кодировке. class procedure DataText(FileName: string; LineCount: integer := 4); begin PT4MakerNetX.DataText(FileName); end; -/// -/// FileName . +/// Добавляет в задание результирующий файл целых чисел +/// с именем FileName и отображает его содержимое в разделе результатов. class procedure ResFileInteger(FileName: string); begin PT4MakerNetX.ResFileInteger(FileName); end; -/// -/// FileName . +/// Добавляет в задание результирующий файл вещественных чисел +/// с именем FileName и отображает его содержимое в разделе результатов. class procedure ResFileReal(FileName: string); begin PT4MakerNetX.ResFileReal(FileName); end; -/// -/// FileName . -/// . +/// Добавляет в задание результирующий символьный файл +/// с именем FileName и отображает его содержимое в разделе результатов. +/// Символы должны храниться в файле в однобайтной кодировке. class procedure ResFileChar(FileName: string); begin PT4MakerNetX.ResFileChar(FileName); end; -/// -/// ShortString FileName -/// . -/// 70 . -/// . +/// Добавляет в задание результирующий строковый файл +/// с элементами типа ShortString и именем FileName +/// и отображает его содержимое в разделе результатов. +/// Длина элементов файла не должна превосходить 70 символов. +/// Строки должны храниться в файле в однобайтной кодировке. class procedure ResFileString(FileName: string); begin PT4MakerNetX.ResFileString(FileName); end; -/// -/// FileName . -/// 70 . -/// . +/// Добавляет в задание результирующий текстовый файл +/// с именем FileName и отображает его содержимое в разделе результатов. +/// Длина каждой строки текстового файла не должна превосходить 70 символов. +/// Текст должен храниться в файле в однобайтной кодировке. class procedure ResText(FileName: string; LineCount: integer := 5); begin PT4MakerNetX.ResText(FileName); @@ -647,13 +647,13 @@ uses System.Reflection, PT4TaskMakerNET, System.Windows.Forms, System; const alphabet = '0123456789abcdefghijklmnopqrstuvwxyz'; - ErrMes1 = 'Error: 5 .'; - ErrMes2 = 'Error: 5 .'; - ErrMes3 = 'Error: 200.'; - ErrMes4 = 'Error: 200.'; - ErrMes5 = 'Error: NewTask.'; - ErrMes6 = 'Error: .'; - ErrMes7 = 'Error: .'; + ErrMes1 = 'Error: Раздел размером более 5 строк не может содержать файловые данные.'; + ErrMes2 = 'Error: При наличии файловых данных раздел не может содержать более 5 строк.'; + ErrMes3 = 'Error: Количество исходных данных превысило 200.'; + ErrMes4 = 'Error: Количество результирующих данных превысило 200.'; + ErrMes5 = 'Error: При определении задания первой должна вызываться процедура NewTask.'; + ErrMes6 = 'Error: При определении задания не указаны исходные данные.'; + ErrMes7 = 'Error: При определении задания не указаны результирующие данные.'; var yd, yr, ye, nd, nr, pr, wd: integer; @@ -722,18 +722,18 @@ begin if nt then exit; PT4TaskMakerNET.CreateTask(topic); PT4TaskMakerNET.TaskText(tasktext); - nt := true; // NewTask - ut := false; // ( UseTask) - ye := 1; // - yd := 0; // - yr := 0; // - nd := 0; // - nr := 0; // - fd := false; // - fr := false; // - pr := 2; // - fmt := 'f2'; // - wd := 0; // + nt := true; // вызвана процедура NewTask + ut := false; // было подключено существующее задание (процедурой UseTask) + ye := 1; // текущий номер строки для вывода сообщения об ошибке + yd := 0; // текущий номер строки в разделе исходных данных + yr := 0; // текущий номер строки в разделе результатов + nd := 0; // количество элементов исходных данных + nr := 0; // количество элементов результирующих данных + fd := false; // наличие файловых данных в разделе исходных данных + fr := false; // наличие файловых данных в разделе результатов + pr := 2; // текущая точность вывода вещественных данных + fmt := 'f2'; // текущий формат вывода вещественных данных + wd := 0; // текущая ширина поля вывода для чисел end; function wreal(w: integer; x: real): integer; @@ -1202,7 +1202,7 @@ end; procedure NewGroup(GroupDescription, GroupAuthor: string; Options: integer); begin - if not AcceptedLanguage(Options) then exit; // + if not AcceptedLanguage(Options) then exit; // недопустимый текущий язык var ass := Assembly.GetCallingAssembly; var GroupName := GetGroupName(ass.FullName); var nm := 'PT4' + GroupName; @@ -1216,8 +1216,8 @@ begin end; if tasks.Count = 0 then begin - Show(' ' + GroupName + ' '#13#10+ - '( "Task").'); + Show('Группа ' + GroupName + ' не содержит заданий'#13#10+ + '(имена процедур с заданиями должны начинаться с текста "Task").'); exit; end; if Options and OptionUseAddition = OptionUseAddition then diff --git a/bin/Lib/PT4TaskMakerNET.pas b/bin/Lib/PT4TaskMakerNET.pas index a6044e10e..68cf6c3c4 100644 --- a/bin/Lib/PT4TaskMakerNET.pas +++ b/bin/Lib/PT4TaskMakerNET.pas @@ -6,7 +6,7 @@ unit PT4TaskMakerNET; //------------------------------------------------------------------------------ // Модуль для создания NET-библиотек с группами заданий в системе PascalABC.NET // -// Copyright (c) 2013 М.Э.Абрамян +// Copyright (©) 2013 М.Э.Абрамян // Электронный задачник Programming Taskbook Copyright (c) М.Э.Абрамян,1998-2013 //------------------------------------------------------------------------------