administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

change encoding for all *.pas and *.cs files: cp1251 -> utf-8

Browse source
This commit is contained in:
Artem Pelenitsyn 2015-12-28 14:25:15 +03:00
parent 8b3e964efc
commit 49378a6750
1765 changed files with 17107 additions and 17107 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Compiler/ICompiler.cs
View file

@ -6,7 +6,7 @@ using System.Text;
using PascalABCCompiler.SemanticTreeConverters;
using PascalABCCompiler.Errors;
///Â ðàçðàáîòêå DarkStar
///В разработке DarkStar
namespace PascalABCCompiler
{

2
Compiler/SemanticTreeConverters/SemanticTreeConvertersController.cs
View file

@ -76,7 +76,7 @@ namespace PascalABCCompiler.SemanticTreeConverters
}
catch (Exception)
{
//если dll не нетовская
//если dll не нетовская
}
}

6
CompilerTools/EventedStreamReaderList.cs
View file

@ -105,7 +105,7 @@ namespace PascalABCCompiler
{
int read = s.EndRead(ar);
// Новое поле byteoffset говорит о том, что с прошлого раза мы учли дополнительный байт
// Новое поле byteoffset говорит о том, что с прошлого раза мы учли дополнительный байт
read += so.byteoffset;
if (read > 0)
{
@ -121,8 +121,8 @@ namespace PascalABCCompiler
string str = en.GetString(so.buffer, 0, read);
// К сожалению, ошибочный байт устанавливается за счет разницы длин str и newstr
// Надо бы оптимизировать
// К сожалению, ошибочный байт устанавливается за счет разницы длин str и newstr
// Надо бы оптимизировать
byte prevbyte = 0;
if (str.Length != newstr.Length)

10
Grammars/Oberon00/oberon00yacc.cs
View file

@ -59,7 +59,7 @@ public abstract class ScanBase : AbstractScanner<ValueType,LexLocation> {
public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
{
// Verbatim content from oberon00.y
public syntax_tree_node root; // Корневой узел синтаксического дерева
public syntax_tree_node root; // Корневой узел синтаксического дерева
public GPPGParser(AbstractScanner<ValueType, LexLocation> scanner) : base(scanner) { }
// End verbatim content from oberon00.y
@ -257,16 +257,16 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
// END, ident, COMMA
{
if (ValueStack[ValueStack.Depth-8].id.name != ValueStack[ValueStack.Depth-2].id.name)
PT.AddError("Имя "+ValueStack[ValueStack.Depth-2].id.name+" должно совпадать с именем модуля "+ValueStack[ValueStack.Depth-8].id.name,LocationStack[LocationStack.Depth-2]);
PT.AddError("Имя "+ValueStack[ValueStack.Depth-2].id.name+" должно совпадать с именем модуля "+ValueStack[ValueStack.Depth-8].id.name,LocationStack[LocationStack.Depth-2]);
// Подключение стандартной библиотеки
// Подключение стандартной библиотеки
ident_list il = new ident_list();
il.Add(new ident("Oberon00System"));
unit_or_namespace un = new unit_or_namespace(il);
uses_list ul = new uses_list();
ul.units.Insert(0, un);
// Формирование главного модуля
// Формирование главного модуля
var b = new block(ValueStack[ValueStack.Depth-6].decl, ValueStack[ValueStack.Depth-4].sl, LocationStack[LocationStack.Depth-6].Merge(LocationStack[LocationStack.Depth-2]));
var r = new program_module(null, ul, b, null,CurrentLocationSpan);
r.Language = LanguageId.Oberon00;
@ -274,7 +274,7 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
}
break;
case 3: // module -> INVISIBLE, expr
{ // Для Intellisense
{ // Для Intellisense
root = ValueStack[ValueStack.Depth-1].ex;
}
break;

22
Grammars/Oberon10Independent (by Juliet)/Install/PascalABC.NET/LibSource/Oberon00System.pas
View file

@ -1,27 +1,27 @@
// (c) Mikst, Juliet 2010
/// Системный модуль для языка Oberon
/// Системный модуль для языка Oberon
unit Oberon00System;
interface
type
/// Логический тип (TRUE | FALSE)
/// Логический тип (TRUE | FALSE)
BOOLEAN = System.boolean;
/// Целое число
/// Целое число
INTEGER = System.Int32;
/// Короткое целое число
/// Короткое целое число
SHORTINT = System.byte;
/// Длинное целое число
/// Длинное целое число
LONGINT = System.int64;
/// Вещественное число
/// Вещественное число
REAL = System.double;
/// Длинное вещественное число
/// Длинное вещественное число
LONGREAL = System.double;
/// Символ
/// Символ
CHAR = System.char;
/// Строка
/// Строка
STRING = System.string;
/// Множество целых
/// Множество целых
iset = array of integer;
procedure Print(o: object);
@ -38,7 +38,7 @@ begin
Console.Write(o);
end;
/// Вывести значение
/// Вывести значение
procedure Println(o: object);
begin
Console.WriteLine(o);

12
Grammars/Oberon10Independent (by Juliet)/oberon00.cs
View file

@ -685,7 +685,7 @@ int NextState() {
case eofNum:
switch (currentStart) {
case 50:
PT.AddError("Комментарий не закрыт", yylloc);
PT.AddError("Комментарий не закрыт", yylloc);
break;
}
if (yywrap())
@ -779,7 +779,7 @@ int tryParseInt;
yylval.lVal = tryParseLong;
return (int)Tokens.LONGINTNUM;
}
PT.AddError("Слишком длинное целое", yylloc);
PT.AddError("Слишком длинное целое", yylloc);
break;
case 26:
yylval.sVal = PT.GetStringContent(yytext);
@ -791,7 +791,7 @@ try{
return (int)Tokens.CHAR_CONST;
}
catch (System.ArgumentException){
PT.AddError("Некорректный код символа", yylloc);
PT.AddError("Некорректный код символа", yylloc);
}
break;
case 28:
@ -802,7 +802,7 @@ double tryParseDouble;
yylval.rVal = tryParseDouble;
return (int)Tokens.REALNUM;
}
PT.AddError("Слишком длинное вещественное", yylloc);
PT.AddError("Слишком длинное вещественное", yylloc);
break;
case 29:
var _yytext = yytext.Substring(0, yytext.Length - 1);
@ -816,7 +816,7 @@ var _yytext = yytext.Substring(0, yytext.Length - 1);
yylval.lVal = tryParseHexLong;
return (int)Tokens.LONGINTNUM;
}
PT.AddError("Слишком длинное шестнадцатеричное целое", yylloc);
PT.AddError("Слишком длинное шестнадцатеричное целое", yylloc);
break;
case 31:
return (int)Tokens.DOUBLEPOINT;
@ -945,7 +945,7 @@ static int mlCommentCnt = 0;
PT.AddError(errorMsg,yylloc);
}
// Статический класс, определяющий ключевые слова языка
// Статический класс, определяющий ключевые слова языка
public static class Keywords
{
private static Dictionary<string, int> keywords = new Dictionary<string, int>();

122
Grammars/Oberon10Independent (by Juliet)/oberon00yacc.cs
View file

@ -39,40 +39,40 @@ public struct ValueType
public bool bVal;
public string sVal;
public int iVal;
public long lVal; // Длинное целое
public long lVal; // Длинное целое
public char cVal;
public double rVal;
public pascal_set_constant sc; // Константа - множество
public named_type_reference ntr; // Именованное определение типа
public type_definition tdef; // Сам тип
public diapason dpsn; // Тип диапазон
public array_type arrt; // Тип массив
public class_definition cldef; // Определение записи
public indexers_types indts; // Тип типы индексов массива
public ref_type rft; // Тип указатель
public ident_list il; // Список идентификаторов
public ident id; // Идентификатор
public oberon_ident_with_export_marker obrid; // Обероновский уточненный идентификатор
public oberon_export_marker obrem; // Обероновская экспортная метка
public var_def_statement vds; // Описание переменных
public variable_definitions vdss; // Секция описания переменных
public type_declarations td; // Секция определения типов
public type_declaration tdec; // Описание типа
public expression ex; // Выражение
public expression_list el; // Список выражений
public Operators ops; // Операторы (операции)
public block bl; // Программный блок
public statement st; // Оператор программный
public statement_list sl; // Список операторов
public case_variants cvars; // Список вариантов оператора CASE
public case_variant cvar; // Вариант оператора CASE
public declaration decsec; // Описание
public declarations decl; // Список описаний
public simple_const_definition scd; // Определение константы
public consts_definitions_list cdl; // Список описаний констант
public procedure_definition pd; // Описание процедуры
public dot_node dn; // Узел в точечной нотации
public addressed_value adrv; // Адресованное значение
public pascal_set_constant sc; // Константа - множество
public named_type_reference ntr; // Именованное определение типа
public type_definition tdef; // Сам тип
public diapason dpsn; // Тип диапазон
public array_type arrt; // Тип массив
public class_definition cldef; // Определение записи
public indexers_types indts; // Тип типы индексов массива
public ref_type rft; // Тип указатель
public ident_list il; // Список идентификаторов
public ident id; // Идентификатор
public oberon_ident_with_export_marker obrid; // Обероновский уточненный идентификатор
public oberon_export_marker obrem; // Обероновская экспортная метка
public var_def_statement vds; // Описание переменных
public variable_definitions vdss; // Секция описания переменных
public type_declarations td; // Секция определения типов
public type_declaration tdec; // Описание типа
public expression ex; // Выражение
public expression_list el; // Список выражений
public Operators ops; // Операторы (операции)
public block bl; // Программный блок
public statement st; // Оператор программный
public statement_list sl; // Список операторов
public case_variants cvars; // Список вариантов оператора CASE
public case_variant cvar; // Вариант оператора CASE
public declaration decsec; // Описание
public declarations decl; // Список описаний
public simple_const_definition scd; // Определение константы
public consts_definitions_list cdl; // Список описаний констант
public procedure_definition pd; // Описание процедуры
public dot_node dn; // Узел в точечной нотации
public addressed_value adrv; // Адресованное значение
}
// Abstract base class for GPLEX scanners
public abstract class ScanBase : AbstractScanner<ValueType,LexLocation> {
@ -84,8 +84,8 @@ public abstract class ScanBase : AbstractScanner<ValueType,LexLocation> {
public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
{
// Verbatim content from oberon00.y
// Эти объявления добавляются в класс GPPGParser, представляющий собой парсер, генерируемый системой gppg
public syntax_tree_node root; // Корневой узел синтаксического дерева
// Эти объявления добавляются в класс GPPGParser, представляющий собой парсер, генерируемый системой gppg
public syntax_tree_node root; // Корневой узел синтаксического дерева
public GPPGParser(AbstractScanner<ValueType, LexLocation> scanner) : base(scanner) { }
// End verbatim content from oberon00.y
@ -527,17 +527,17 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
case 2: // module -> MODULE, ident, SEMICOLUMN, mainblock, ident, COMMA
{
if (ValueStack[ValueStack.Depth-5].id.name != ValueStack[ValueStack.Depth-2].id.name)
PT.AddError("Имя " + ValueStack[ValueStack.Depth-2].id.name + " должно совпадать с именем модуля " + ValueStack[ValueStack.Depth-5].id.name, LocationStack[LocationStack.Depth-2]);
PT.AddError("Имя " + ValueStack[ValueStack.Depth-2].id.name + " должно совпадать с именем модуля " + ValueStack[ValueStack.Depth-5].id.name, LocationStack[LocationStack.Depth-2]);
// Подключение стандартного модуля Oberon00System, написанного на PascalABC.NET
// Подключение стандартного модуля Oberon00System, написанного на PascalABC.NET
var ul = new uses_list("Oberon00System");
// Формирование модуля основной программы (используется фабричный метод вместо конструктора)
// Формирование модуля основной программы (используется фабричный метод вместо конструктора)
root = program_module.create(ValueStack[ValueStack.Depth-5].id, ul, ValueStack[ValueStack.Depth-3].bl, CurrentLocationSpan);
}
break;
case 3: // module -> INVISIBLE, expr
{ // Для Intellisense
{ // Для Intellisense
root = ValueStack[ValueStack.Depth-1].ex;
}
break;
@ -892,7 +892,7 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
expression step;
if (ValueStack[ValueStack.Depth-4].ex != null) step = ValueStack[ValueStack.Depth-4].ex;
else step = new int32_const(1, LocationStack[LocationStack.Depth-4]);
// Будем моделировать цикл через while
// Будем моделировать цикл через while
statement_list forStmnt = GetForThroughWhile(ValueStack[ValueStack.Depth-9].id, ValueStack[ValueStack.Depth-7].ex, ValueStack[ValueStack.Depth-5].ex, ValueStack[ValueStack.Depth-2].sl, step, LocationStack[LocationStack.Depth-8], CurrentLocationSpan);
CurrentSemanticValue.st = forStmnt;
CurrentSemanticValue.st.source_context = CurrentLocationSpan;
@ -901,21 +901,21 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
case 85: // ForStep -> BY, ConstExpr
{
int32_const step32 = ValueStack[ValueStack.Depth-1].ex as int32_const;
if (step32 != null) { // шаг является просто целым числом (без знака)
if (step32.val == 0) PT.AddError("Шаг цикла не может быть нулевым", LocationStack[LocationStack.Depth-2]);
if (step32 != null) { // шаг является просто целым числом (без знака)
if (step32.val == 0) PT.AddError("Шаг цикла не может быть нулевым", LocationStack[LocationStack.Depth-2]);
else CurrentSemanticValue.ex = new int32_const(step32.val, CurrentLocationSpan);
}
else { // в значении шага либо присутствует знак, либо это вообще не целое
else { // в значении шага либо присутствует знак, либо это вообще не целое
un_expr stepMinus = ValueStack[ValueStack.Depth-1].ex as un_expr;
int32_const stepMinusTerm = stepMinus.subnode as int32_const;
bool signMinus = (stepMinusTerm != null) && (stepMinus.operation_type == Operators.Minus);
if (signMinus)
if (stepMinusTerm.val == 0)
PT.AddError("Шаг цикла не может быть нулевым", LocationStack[LocationStack.Depth-2]);
PT.AddError("Шаг цикла не может быть нулевым", LocationStack[LocationStack.Depth-2]);
else
CurrentSemanticValue.ex = new un_expr(stepMinusTerm, Operators.Minus, LocationStack[LocationStack.Depth-1]);
else
PT.AddError("Шаг цикла должен быть целым числом", LocationStack[LocationStack.Depth-2]);
PT.AddError("Шаг цикла должен быть целым числом", LocationStack[LocationStack.Depth-2]);
}
}
break;
@ -1121,7 +1121,7 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
break;
case 122: // ArrayType -> ARRAY, OF, TypeDef
{
// открытый массив
// открытый массив
diapason dp = new diapason(new int32_const(0), new int32_const(0));
indexers_types inxr = new indexers_types();
inxr.Add(dp);
@ -1130,7 +1130,7 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
break;
case 123: // ArrayType -> ARRAY, LengthList, OF, TypeDef
{
// Будем искать array n of char, чтобы заменить на строку
// Будем искать array n of char, чтобы заменить на строку
named_type_reference ntr = ValueStack[ValueStack.Depth-1].tdef as named_type_reference;
bool complexArr = (ntr != null) && (ntr.names.Count == 1) &&
(ntr.names[0].name == "char");
@ -1161,14 +1161,14 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
break;
case 127: // Length -> ConstExpr
{
// В обероне в массиве указывается целочисленная длина
// Поэтому надо проверить, что выражение относится к целому типу
// В обероне в массиве указывается целочисленная длина
// Поэтому надо проверить, что выражение относится к целому типу
object[] types = {ValueStack[ValueStack.Depth-1].ex};
bool isLength = typeof(int32_const) == System.Type.GetTypeArray(types)[0];
if (isLength)
CurrentSemanticValue.dpsn = GetDiapasonByArrLength(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan);
else
PT.AddError("Длина должна быть целым числом", LocationStack[LocationStack.Depth-1]);
PT.AddError("Длина должна быть целым числом", LocationStack[LocationStack.Depth-1]);
}
break;
case 128: // PointerType -> POINTER, TO, TypeDef
@ -1218,8 +1218,8 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
if (ValueStack[ValueStack.Depth-1].decsec != null)
ValueStack[ValueStack.Depth-2].decl.Add(ValueStack[ValueStack.Depth-1].decsec);
CurrentSemanticValue.decl = ValueStack[ValueStack.Depth-2].decl;
CurrentSemanticValue.decl.source_context = CurrentLocationSpan; // Необходимо показать место в программе, т.к. неявно это не сделано
// (например, в конструкторе)
CurrentSemanticValue.decl.source_context = CurrentLocationSpan; // Необходимо показать место в программе, т.к. неявно это не сделано
// (например, в конструкторе)
}
break;
case 137: // ProcedureDeclarationSect -> PROCEDURE, ident, maybeformalparams, maybereturn,
@ -1287,11 +1287,11 @@ public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
}
/* Возвращает последовательность операторов, соответсвующую
циклу for, моделируемому через while */
/* Возвращает последовательность операторов, соответсвующую
циклу for, моделируемому через while */
public static statement_list GetForThroughWhile(ident id, expression expr, expression endExpr, statement_list stmnts,
expression step, SourceContext assignSC, SourceContext wholeSC){
// Будем моделировать цикл через while
// Будем моделировать цикл через while
statement_list forStmnt = new statement_list();
ident endFor = new ident("_oberon_for_end_");
forStmnt.Add(new var_statement(new var_def_statement(
@ -1302,14 +1302,14 @@ public static statement_list GetForThroughWhile(ident id, expression expr, expre
false))
);
forStmnt.Add( new assign(id, expr, Operators.Assignment, assignSC) );
statement_list posStatementList = new statement_list(); // при положительном шаге
statement_list posStatementList = new statement_list(); // при положительном шаге
posStatementList.Add(stmnts);
posStatementList.Add( new assign(id, step, Operators.AssignmentAddition) );
while_node posWhile = new while_node(
new bin_expr(id, endFor, Operators.LessEqual),
posStatementList,
WhileCycleType.While);
statement_list negStatementList = new statement_list(); // при отрицательном шаге
statement_list negStatementList = new statement_list(); // при отрицательном шаге
negStatementList.Add(stmnts);
negStatementList.Add( new assign(id, step, Operators.AssignmentAddition) );
while_node negWhile = new while_node(
@ -1324,8 +1324,8 @@ public static statement_list GetForThroughWhile(ident id, expression expr, expre
return forStmnt;
}
/* Возвращает многомерный массив, в котором при необходимости
массив символов заменен на строку */
/* Возвращает многомерный массив, в котором при необходимости
массив символов заменен на строку */
public static type_definition GetArrWithStrInsteadCharArr(indexers_types lenList,
SourceContext lenListSC, SourceContext wholeSC){
List<type_definition> indxrs = lenList.indexers;
@ -1333,15 +1333,15 @@ public static type_definition GetArrWithStrInsteadCharArr(indexers_types lenList
int32_const len = new int32_const();
len.val = (dp.right as int32_const).val + 1;
type_definition result = new string_num_definition(len, new ident("string", lenListSC), wholeSC);
if (indxrs.Count > 1) { // надо делать массив массивов ... строк
if (indxrs.Count > 1) { // надо делать массив массивов ... строк
indxrs.RemoveAt(indxrs.Count - 1);
result = new array_type(lenList, result, wholeSC);
}
return result;
}
/* Возвращает диапазон 0..Length-1, полученный по обероновской длине
массива, и необходимый для паскалевского синтаксического узла */
/* Возвращает диапазон 0..Length-1, полученный по обероновской длине
массива, и необходимый для паскалевского синтаксического узла */
public static diapason GetDiapasonByArrLength(expression lenExpr, SourceContext lenSC){
int32_const zero = new int32_const();
zero.val = 0;

4
InstallerSamples/!MainFeatures/01_First/Amp.pas
View file

@ -1,9 +1,9 @@
// Пример иллюстрирует использование значка & для снятия атрибута ключевого слова
// Пример иллюстрирует использование значка & для снятия атрибута ключевого слова
var
&begin,&end: integer;
begin
&begin := 1;
&end := 2;
var t: System.Type := &begin.GetType; // в System.Type использовать & не надо
var t: System.Type := &begin.GetType; // в System.Type использовать & не надо
write(&begin,' ',&end,' ',t);
end.

6
InstallerSamples/!MainFeatures/01_First/AssignExt.pas
View file

@ -1,4 +1,4 @@
// Присваивания += -= *= /=
// Присваивания += -= *= /=
var
i: integer;
r: real;
@ -6,9 +6,9 @@ var
begin
i := 1;
writeln('i := 1; i = ',i);
i += 2; // Увеличение на 2
i += 2; // Увеличение на 2
writeln('i += 2; i = ',i);
i *= 3; // Умножение на 3
i *= 3; // Умножение на 3
writeln('i *= 3; i = ',i);
writeln;
r := 6;

4
InstallerSamples/!MainFeatures/01_First/AutoVars.pas
View file

@ -1,5 +1,5 @@
// Автоопределение типа переменной
// Описание переменной в заголовке цикла for
// Автоопределение типа переменной
// Описание переменной в заголовке цикла for
begin
var x := 2;
for var i:=1 to 10 do

8
InstallerSamples/!MainFeatures/01_First/BlockVar.pas
View file

@ -1,11 +1,11 @@
// Перемена местами значений двух переменных с использованием третьей
// Перемена местами значений двух переменных с использованием третьей
var x,y: real;
begin
write('Введите x,y: ');
write('Введите x,y: ');
readln(x,y);
var v: real := x; // вспомогательная переменная
var v: real := x; // вспомогательная переменная
x := y;
y := v;
writeln('Новые значения x,y: ',x,' ',y);
writeln('Новые значения x,y: ',x,' ',y);
end.

8
InstallerSamples/!MainFeatures/01_First/Foreach.pas
View file

@ -1,24 +1,24 @@
// Пример иллюстрирует возможности оператора foreach
// Пример иллюстрирует возможности оператора foreach
var
a: array [1..5] of integer := (1,3,5,7,9);
s: set of integer;
l: List<integer>;
begin
write('foreach по обычному массиву: ':35);
write('foreach по обычному массиву: ':35);
foreach x: integer in a do
Print(x);
writeln;
s := [2..5,10..14];
write('foreach по множеству: ':35);
write('foreach по множеству: ':35);
foreach var x in s do
Print(x);
writeln;
l := new List<integer>;
l.Add(7); l.Add(2); l.Add(5);
write('foreach по динамическому массиву: ':35);
write('foreach по динамическому массиву: ':35);
foreach var x in l do
Print(x);
end.

2
InstallerSamples/!MainFeatures/01_First/Print.pas
View file

@ -1,4 +1,4 @@
/// Âûâîä ñ ïîìîùüþ Print
/// Вывод с помощью Print
begin
Print(1,2,3)
end.

4
InstallerSamples/!MainFeatures/01_First/RandomDiap.pas
View file

@ -1,5 +1,5 @@
// Генерация случайного числа в заданном диапазоне
// Генерация случайного числа в заданном диапазоне
begin
var i := Random(2,5);
writeln('Случайное целое в диапазоне 2..5: ',i);
writeln('Случайное целое в диапазоне 2..5: ',i);
end.

2
InstallerSamples/!MainFeatures/01_First/RealExtNums.pas
View file

@ -1,4 +1,4 @@
// При работе с вещественными числами невозможно получить ошибку выполнения
// При работе с вещественными числами невозможно получить ошибку выполнения
begin
writeln(1/0);
writeln(sqrt(-1));

18
InstallerSamples/!MainFeatures/01_First/SimpleNewFeatures.pas
View file

@ -1,27 +1,27 @@
// Простейшие новые возможности языка PascalABC.NET
// Простейшие новые возможности языка PascalABC.NET
// Инициализация переменной при описании
// Инициализация переменной при описании
var i: integer := 1;
// Автоопределение типа переменной при инициализации
// Автоопределение типа переменной при инициализации
var r := 2.5;
begin
// Внутриблочные описания переменных
// Внутриблочные описания переменных
var s: real := 1.0;
// Описание переменной в заголовке цикла (время жизни переменной - до конца тела цикла)
// Описание переменной в заголовке цикла (время жизни переменной - до конца тела цикла)
for j: integer := 1 to 10 do
s += j; // Операция += для чисел
s += j; // Операция += для чисел
var p := 1;
// Описание переменной в заголовке цикла с автоопределением типа
// Описание переменной в заголовке цикла с автоопределением типа
for var j := 1 to 10 do
p *= j; // Операция *=
p *= j; // Операция *=
var str := '';
for c: char := 'a' to 'z' do
str += c; // Операция += для строк
str += c; // Операция += для строк
end.

8
InstallerSamples/!MainFeatures/01_First/StandardTypes.pas
View file

@ -1,17 +1,17 @@
/// Ñòàíäàðòíûå ðàçìåðíûå òèïû äàííûõ è èõ ðàçìåð
/// Стандартные размерные типы данных и их размер
var
i: integer;
j: shortint;
k: smallint;
l: longint; // ñèíîíèì integer
l: longint; // синоним integer
i64: int64;
b: byte;
w: word;
lw: longword;
car: cardinal; // ñèíîíèì longword
car: cardinal; // синоним longword
ui64: uint64;
r: real;
d: double; // ñèíîíèì real
d: double; // синоним real
sn: single;
c: char;

10
InstallerSamples/!MainFeatures/01_First/WriteAll.pas
View file

@ -1,12 +1,12 @@
/// Вывод различных типов процедурой write
/// Вывод различных типов процедурой write
begin
// Вывод, целого, строки, вещественного
// Вывод, целого, строки, вещественного
Writeln(1,' ',2.5);
// Вывод множества
// Вывод множества
Writeln([1..10]);
// Вывод логического
// Вывод логического
Writeln(True);
var a: array [1..10] of integer;
// Вывод массива (выводится его тип)
// Вывод массива (выводится его тип)
Writeln(a);
end.

12
InstallerSamples/!MainFeatures/01_First/WriteFormat.pas
View file

@ -1,11 +1,11 @@
/// Использование процедуры WritelnFormat
/// Использование процедуры WritelnFormat
begin
// Вывод в обратном порядке
// Вывод в обратном порядке
WritelnFormat('{2},{1},{0}',1,2,3);
// Вывод фигурных скобочек
WritelnFormat('{{}}{0}','Вывод фигурных скобочек в форматной строке');
// Задание ширины поля вывода
// Вывод фигурных скобочек
WritelnFormat('{{}}{0}','Вывод фигурных скобочек в форматной строке');
// Задание ширины поля вывода
WritelnFormat('{0,10:f}',3.1415);
// Задание количества знаков после запятой для вещественного числа
// Задание количества знаков после запятой для вещественного числа
WritelnFormat('{0:f3}',3.1415);
end.

12
InstallerSamples/!MainFeatures/02_Types/CharFunc.pas
View file

@ -1,4 +1,4 @@
// Стандартные функции Ord, Chr, OrdUnicode, ChrUnicode
// Стандартные функции Ord, Chr, OrdUnicode, ChrUnicode
var
c: char;
i: integer;
@ -6,14 +6,14 @@ var
begin
writeln('sizeof(char) = ',sizeof(char));
writeln;
c := 'Ж';
c := 'Ж';
i := Ord(c);
writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
c := Chr(i);
writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
writeln;
i := OrdUnicode(c);
writelnFormat('Код символа {0} в кодировке Unicode равен {1}',c,i);
writelnFormat('Код символа {0} в кодировке Unicode равен {1}',c,i);
c := ChrUnicode(i);
writelnFormat('Символ с кодом {0} в кодировке Unicode - это {1}',i,c);
writelnFormat('Символ с кодом {0} в кодировке Unicode - это {1}',i,c);
end.

20
InstallerSamples/!MainFeatures/02_Types/Dynarray.pas
View file

@ -1,4 +1,4 @@
// Процедуры и методы работы с динамическим массивом
// Процедуры и методы работы с динамическим массивом
uses System;
procedure Print(a: array of integer);
@ -11,30 +11,30 @@ end;
var a: array of integer;
begin
SetLength(a,10); // выделение памяти. А можно так: a := new integer[10];
SetLength(a,10); // выделение памяти. А можно так: a := new integer[10];
// Заполнение массива
// Заполнение массива
for var i:=0 to a.Length-1 do
a[i] := PABCSystem.Random(100);
// Вывод всех элементов массива
// Вывод всех элементов массива
Print(a);
// Сортировка массива (знак & используется для того,
// чтобы воспользоваться ключевым словом array при обозначении
// класса Array)
// Сортировка массива (знак & используется для того,
// чтобы воспользоваться ключевым словом array при обозначении
// класса Array)
&Array.Sort(a);
Print(a);
// Обращение массива
// Обращение массива
&Array.Reverse(a);
Print(a);
// Изменение размерамассиав с сохранением элементов. То же делает SetLength
// Изменение размерамассиав с сохранением элементов. То же делает SetLength
&Array.Resize(a,a.Length+2);
Print(a);
// Поиск вхождения элемента в массив
// Поиск вхождения элемента в массив
var i := &Array.IndexOf(a, 50);
Writeln(i);
end.

24
InstallerSamples/!MainFeatures/02_Types/Enum.pas
View file

@ -1,4 +1,4 @@
// Перечислимый тип
// Перечислимый тип
type Months = (January,February,March,April,May,June,July,August,September,October,November,December);
var m: Months;
@ -6,20 +6,20 @@ var m: Months;
begin
m := February;
writeln(m);
// Использование констант перечислимого типа после имени типа удобно: после точки intellisense показывает список констант
// Использование констант перечислимого типа после имени типа удобно: после точки intellisense показывает список констант
m := Months.April;
writeln('Следующий месяц: ',m);
writeln('Следующий месяц: ',m);
Inc(m);
writeln('Следующий месяц: ',m);
writeln('Следующий месяц: ',m);
m := Succ(m);
writeln('Следующий месяц: ',m);
writeln('Следующий месяц: ',m);
m := Pred(m);
writeln('Предыдующий месяц: ',m);
writeln('Предыдующий месяц: ',m);
Dec(m);
writeln('Предыдующий месяц: ',m);
writeln('Его порядковый номер (нумерация - с нуля): ',Ord(m));
// Ошибки нет
writeln('Месяц перед январем - выход за границы: ',pred(Months.January));
// Ошибки нет
writeln('Месяц после декабря - выход за границы: ',succ(Months.December));
writeln('Предыдующий месяц: ',m);
writeln('Его порядковый номер (нумерация - с нуля): ',Ord(m));
// Ошибки нет
writeln('Месяц перед январем - выход за границы: ',pred(Months.January));
// Ошибки нет
writeln('Месяц после декабря - выход за границы: ',succ(Months.December));
end.

4
InstallerSamples/!MainFeatures/02_Types/InitRecords.pas
View file

@ -1,8 +1,8 @@
// Èíèöèàëèçàòîðû ïîëåé çàïèñè
// Инициализаторы полей записи
type
Frac = record
num: integer := 0;
denom := 1; // àâòîîïðåäåëåèíå òèïà - denom: integer
denom := 1; // автоопределеине типа - denom: integer
end;
var

2
InstallerSamples/!MainFeatures/02_Types/PointerToRef.pas
View file

@ -1,4 +1,4 @@
// Указатели на ссылочные типы запрещены. Исключение: указатели на строки и динамические массивы
// Указатели на ссылочные типы запрещены. Исключение: указатели на строки и динамические массивы
type
A = class
i: integer;

14
InstallerSamples/!MainFeatures/02_Types/PointersVsRef/Pointers.pas
View file

@ -1,5 +1,5 @@
// Выделение динамической памяти
// Использование указателей для создания односвязного списка
// Выделение динамической памяти
// Использование указателей для создания односвязного списка
type
PNode = ^TNode;
TNode = record
@ -18,13 +18,13 @@ var first: PNode;
begin
first := nil;
// Добавляем в начало односвязного списка
// Добавляем в начало односвязного списка
first := NewNode(3,first);
first := NewNode(7,first);
first := NewNode(5,first);
// Вывод односвязного списка
writeln('Содержимое односвязного списка: ');
// Вывод односвязного списка
writeln('Содержимое односвязного списка: ');
var p := first;
while p<>nil do
begin
@ -32,12 +32,12 @@ begin
p := p^.next;
end;
// Разрушение односвязного списка
// Разрушение односвязного списка
p := first;
while p<>nil do
begin
var p1 := p;
p := p^.next;
Dispose(p1); // Память обязательно возвращать
Dispose(p1); // Память обязательно возвращать
end;
end.

16
InstallerSamples/!MainFeatures/02_Types/PointersVsRef/References.pas
View file

@ -1,5 +1,5 @@
// Использование ссылок вместо указателей для создания односвязного списка
// Мы рекомендуем именно этот способ
// Использование ссылок вместо указателей для создания односвязного списка
// Мы рекомендуем именно этот способ
type
Node = class
data: integer;
@ -11,18 +11,18 @@ type
end;
end;
// Переменная типа "класс" представляет собой ссылку на объект, выделяемый конструктором
// Переменная типа "класс" представляет собой ссылку на объект, выделяемый конструктором
var first: Node;
begin
first := nil;
// Добавляем в начало односвязного списка
// Добавляем в начало односвязного списка
first := new Node(3,first);
first := new Node(7,first);
first := new Node(5,first);
// Вывод односвязного списка. ^ отсутствуют
writeln('Содержимое односвязного списка (использование ссылок вместо указателей): ');
// Вывод односвязного списка. ^ отсутствуют
writeln('Содержимое односвязного списка (использование ссылок вместо указателей): ');
var p := first;
while p<>nil do
begin
@ -30,6 +30,6 @@ begin
p := p.next;
end;
// Разрушение односвязного списка
first := nil; // Сборщик мусора соберет память, на которую никто больше не указывает
// Разрушение односвязного списка
first := nil; // Сборщик мусора соберет память, на которую никто больше не указывает
end.

24
InstallerSamples/!MainFeatures/02_Types/Sets.pas
View file

@ -1,15 +1,15 @@
// Работа с множествами
// Базовый тип для множества может быть произвольным
// Работа с множествами
// Базовый тип для множества может быть произвольным
var
s1: set of string := ['Иванов','Попов','Сидорова','Петров'];
s2: set of string := ['Козлов','Петров','Иванов'];
s1: set of string := ['Иванов','Попов','Сидорова','Петров'];
s2: set of string := ['Козлов','Петров','Иванов'];
begin
writeln('Множество s1: ',s1);
writeln('Множество s2: ',s2);
writeln('Объединение множеств s1 и s2: ',s1+s2);
writeln('Пересечение множеств s1 и s2: ',s1*s2);
writeln('Разность множеств s1 и s2: ',s1-s2);
Include(s1,'Умнов');
Exclude(s1,'Иванов');
writeln('Множество s1: ',s1);
writeln('Множество s1: ',s1);
writeln('Множество s2: ',s2);
writeln('Объединение множеств s1 и s2: ',s1+s2);
writeln('Пересечение множеств s1 и s2: ',s1*s2);
writeln('Разность множеств s1 и s2: ',s1-s2);
Include(s1,'Умнов');
Exclude(s1,'Иванов');
writeln('Множество s1: ',s1);
end.

10
InstallerSamples/!MainFeatures/02_Types/StringInteger.pas
View file

@ -1,16 +1,16 @@
// Преобразование целое <-> строка в новом стиле
// Преобразование целое <-> строка в новом стиле
var
s: string;
i: integer;
begin
// Преобразование целого в строку
// Преобразование целого в строку
i := 234;
s := i.ToString;
writelnFormat('Целое: {0}. После преобразования к строке: ''{1}''',i,s);
writelnFormat('Целое: {0}. После преобразования к строке: ''{1}''',i,s);
// Преобразование строки в целое
// Преобразование строки в целое
s := '567';
if integer.TryParse(s,i) then
writelnFormat('Строка: ''{0}''. После преобразования к целому: {1}',s,i);
writelnFormat('Строка: ''{0}''. После преобразования к целому: {1}',s,i);
end.

18
InstallerSamples/!MainFeatures/02_Types/StringMethods.pas
View file

@ -1,18 +1,18 @@
// Строки. Методы класса string
// Строки. Методы класса string
var
s: string := ' Pascal__NET ';
s1: string := 'NET';
begin
writeln('Исходная строка: ''',s,'''');
writeln('Исходная строка: ''',s,'''');
s := s.Trim;
writeln('После вызова s.Trim: ''',s,'''');
var p := s.IndexOf(s1); // Индексация - с нуля
writelnFormat('Позиция подстроки ''{0}'' в строке ''{1}'' равна {2}',s1,s,p);
writeln('После вызова s.Trim: ''',s,'''');
var p := s.IndexOf(s1); // Индексация - с нуля
writelnFormat('Позиция подстроки ''{0}'' в строке ''{1}'' равна {2}',s1,s,p);
s := s.Remove(6,2);
writeln('После удаления символов __: ',s);
writeln('После удаления символов __: ',s);
s := s.Insert(6,'ABC.');
writeln('После вставки подстроки ''ABC.'': ',s);
writeln('Первая часть строки: ',s.Substring(0,9));
writeln('Последняя часть строки: ',s.Substring(10,3));
writeln('После вставки подстроки ''ABC.'': ',s);
writeln('Первая часть строки: ',s.Substring(0,9));
writeln('Последняя часть строки: ',s.Substring(10,3));
end.

12
InstallerSamples/!MainFeatures/02_Types/StringTypes.pas
View file

@ -1,17 +1,17 @@
// Ñòðîêè string, string[n], shortstring
// Строки string, string[n], shortstring
var
s: string; // ïàìÿòü, çàíèìàåìàÿ s, çàâèñèò îò åå äëèíû
s10: string[10]; // ïàìÿòü ïîä ss ôèêñèðîâàíà
s: string; // память, занимаемая s, зависит от ее длины
s10: string[10]; // память под ss фиксирована
ss: shortstring := s;
f: file of string[10];
// f: file of string; - îøèáêà
// f: file of string; - ошибка
begin
s := '12345678901234567890';
s10 := s; // îáðåçàíèå
s10 := s; // обрезание
writeln(s10);
s += s; s += s;
s += s; s += s;
writeln(s);
writeln('Äëèíà ñòðîêè = ',s.Length);
writeln('Длина строки = ',s.Length);
end.

6
InstallerSamples/!MainFeatures/02_Types/StructTypeEquiv.pas
View file

@ -1,4 +1,4 @@
// Иллюстрация структурной эквивалентности для некоторых типов. В Delphi - именная эквивалентность
// Иллюстрация структурной эквивалентности для некоторых типов. В Delphi - именная эквивалентность
var
a: array of integer;
a1: array of integer;
@ -18,6 +18,6 @@ begin
a := a1;
s := s1;
p := p1;
r := r1; // В Delphi ни одно из этих присваиваний не сработает
proc(a,s,p,r); // Этот вызов - тоже
r := r1; // В Delphi ни одно из этих присваиваний не сработает
proc(a,s,p,r); // Этот вызов - тоже
end.

6
InstallerSamples/!MainFeatures/02_Types/UntypedFile.pas
View file

@ -1,4 +1,4 @@
// Бестиповые файлы
// Бестиповые файлы
var
f: file;
i: integer;
@ -8,11 +8,11 @@ var
begin
assign(f,'a.dat');
rewrite(f);
// Записываем в файл данные любых типов
// Записываем в файл данные любых типов
write(f,1,2.5,'Hello');
close(f);
reset(f);
// Считываем эти данные из файла
// Считываем эти данные из файла
read(f,i,r,s);
write(i,' ',r,' ',s);
close(f);

2
InstallerSamples/!MainFeatures/03_Subroutines/FuncParams.pas
View file

@ -1,4 +1,4 @@
// Переменное число параметров
// Переменное число параметров
function Sum(params arg: array of integer): integer;
begin
Result := 0;

2
InstallerSamples/!MainFeatures/03_Subroutines/Overload.pas
View file

@ -1,4 +1,4 @@
// Перегрузка имен подпрограмм
// Перегрузка имен подпрограмм
procedure proc(i: integer);
begin
writeln('integer');

10
InstallerSamples/!MainFeatures/03_Subroutines/ProcVars.pas
View file

@ -1,9 +1,9 @@
// Все возможные способы инициализации поцедурной переменной
// Процедурный тип реализован через делегаты .NET, для него доступны операции +=, -=
// Все возможные способы инициализации поцедурной переменной
// Процедурный тип реализован через делегаты .NET, для него доступны операции +=, -=
procedure pp;
begin
writeln('Вызов обычной процедуры');
writeln('Вызов обычной процедуры');
end;
type
@ -17,11 +17,11 @@ type
end;
procedure pp;
begin
writeln('Вызов метода класса, значение поля равно ',x);
writeln('Вызов метода класса, значение поля равно ',x);
end;
class procedure ppstatic;
begin
writeln('Вызов классового метода класса');
writeln('Вызов классового метода класса');
end;
end;

12
InstallerSamples/!MainFeatures/03_Subroutines/SwapT.pas
View file

@ -1,5 +1,5 @@
// Îáîáùåííûå ôóíêöèè
// Âûâåäåíèå òèïà T ïî òèïàì ïàðàìåòðîâ
// Обобщенные функции
// Выведение типа T по типам параметров
procedure Swap<T>(var a,b: T);
begin
@ -11,13 +11,13 @@ end;
begin
var a := 2;
var b := 3;
writelnFormat('Äî Swap a={0}, b={1}',a,b);
writelnFormat('До Swap a={0}, b={1}',a,b);
Swap(a,b);
writelnFormat('Ïîñëå Swap a={0}, b={1}',a,b);
writelnFormat('После Swap a={0}, b={1}',a,b);
var c := 2.5;
var d := 3.3;
writeln;
writelnFormat('Äî Swap c={0}, d={1}',c,d);
writelnFormat('До Swap c={0}, d={1}',c,d);
Swap(c,d);
writelnFormat('Ïîñëå Swap c={0}, d={1}',c,d);
writelnFormat('После Swap c={0}, d={1}',c,d);
end.

4
InstallerSamples/!MainFeatures/04_Units/CallC#/CallCS.pas
View file

@ -1,5 +1,5 @@
// Вызов статического метода add класса Class1, помещенного в пространство имен ClassLibrary1
// Класс Class1 помещен в библиотеку ClassLibrary1.dll, откомпилированную на C#
// Вызов статического метода add класса Class1, помещенного в пространство имен ClassLibrary1
// Класс Class1 помещен в библиотеку ClassLibrary1.dll, откомпилированную на C#
{$reference ClassLibrary1.dll}
uses ClassLibrary1;

2
InstallerSamples/!MainFeatures/04_Units/DllTest/MyDll.pas
View file

@ -1,4 +1,4 @@
// Dll-áèáëèîòåêà
// Dll-библиотека
library MyDll;
const n = 10;

6
InstallerSamples/!MainFeatures/04_Units/DllTest/main.pas
View file

@ -1,6 +1,6 @@
// Это - главная программа
// Именами из dll-библиотеки, написанной на PascalABC.NET, можно пользоваться,
// не подключая пространства имен
// Это - главная программа
// Именами из dll-библиотеки, написанной на PascalABC.NET, можно пользоваться,
// не подключая пространства имен
{$reference mydll.dll}
begin

6
InstallerSamples/!MainFeatures/04_Units/NativeDll/CallNative.pas
View file

@ -1,6 +1,6 @@
// Âûçîâ ôóíêöèè èç îáû÷íîé dll
function add(a,b: integer): integer; external 'NativeDll.dll' name 'add'; // îáúÿâëåíèå âíåøíåé ôóíêöèè
// Вызов функции из обычной dll
function add(a,b: integer): integer; external 'NativeDll.dll' name 'add'; // объявление внешней функции
begin // îñíîâíàÿ ïðîãðàììà
begin // основная программа
writeln(add(2,3));
end.

4
InstallerSamples/!MainFeatures/04_Units/SimpleUnit/MainProgram.pas
View file

@ -1,7 +1,7 @@
uses MyUnit; // подключили модуль
uses MyUnit; // подключили модуль
var a: array of integer := (1,5,3,7,3,6,4,5,1,8,3,5,6);
begin
writeln('Максимальный элемент в массиве = ',Max(a));
writeln('Максимальный элемент в массиве = ',Max(a));
end.

8
InstallerSamples/!MainFeatures/04_Units/SimpleUnit/MyUnit.pas
View file

@ -1,8 +1,8 @@
/// Модуль упрощенной структуры
unit MyUnit; // имя модуля должно совпадать с именем файла
/// Модуль упрощенной структуры
unit MyUnit; // имя модуля должно совпадать с именем файла
// Документирующие комментарии отображаются при наведении на имя курсора мыши
/// Возвращает максимальный элемент в массиве
// Документирующие комментарии отображаются при наведении на имя курсора мыши
/// Возвращает максимальный элемент в массиве
function Max(a: array of integer): integer;
begin
Result := integer.MinValue;

8
InstallerSamples/!MainFeatures/04_Units/SystemUnitTest.pas
View file

@ -1,12 +1,12 @@
// Иллюстрация поиска имен вначале справа налево в секции uses, а затем в системном модуле PABCSystem
// Иллюстрация поиска имен вначале справа налево в секции uses, а затем в системном модуле PABCSystem
uses System;
begin
// Имя Random, определенное в пространстве имен System, перекрывает имя Random
// в модуле PABCSystem, который неявно подключается первым
// Имя Random, определенное в пространстве имен System, перекрывает имя Random
// в модуле PABCSystem, который неявно подключается первым
var r: Random := new Random();
writeln(r.Next(10));
// Именно поэтому перед данным Random необходимо явно указывать имя модуля, в котором он находится
// Именно поэтому перед данным Random необходимо явно указывать имя модуля, в котором он находится
var i: integer := PABCSystem.Random(10);
writeln(i);
end.

2
InstallerSamples/!MainFeatures/05_Graph/ABC.pas
View file

@ -1,4 +1,4 @@
// Модуль ABCObjects. Изменение свойств объекта
// Модуль ABCObjects. Изменение свойств объекта
uses ABCObjects,GraphABC;
const delay = 300;

2
InstallerSamples/!MainFeatures/05_Graph/GraphABCTest.pas
View file

@ -1,4 +1,4 @@
// Иллюстрация простейших возможностей GraphABC
// Иллюстрация простейших возможностей GraphABC
uses GraphABC;
begin

4
InstallerSamples/!MainFeatures/05_Graph/MouseEvents.pas
View file

@ -1,4 +1,4 @@
// Иллюстрация обработки событий мыши
// Иллюстрация обработки событий мыши
uses GraphABC;
procedure MouseDown(x,y,mb: integer);
@ -12,7 +12,7 @@ begin
end;
begin
// Привязка обработчиков к событиям
// Привязка обработчиков к событиям
OnMouseDown := MouseDown;
OnMouseMove := MouseMove
end.

4
InstallerSamples/!MainFeatures/06_Classes/AllFromObject.pas
View file

@ -1,4 +1,4 @@
// Все типы кроме указателей - производные от Object
// Все типы кроме указателей - производные от Object
var
i: integer;
r: real;
@ -10,5 +10,5 @@ begin
o := r;
writeln(o.GetType);
if o.GetType=typeof(real) then
writeln('В переменной o - вещественный тип');
writeln('В переменной o - вещественный тип');
end.

14
InstallerSamples/!MainFeatures/06_Classes/Boxing.pas
View file

@ -1,19 +1,19 @@
// Упаковка-распаковка размерных типов
// Упаковка-распаковка размерных типов
var
i: integer := 2;
r: real := 3.14;
o: object;
begin
o := i; // Упаковка: объект размерного типа integer упаковывается в объект ссылочного типа,
// котрый и присваивается переменной o
// Преобразование типов при упаковке - неявное
writeln(integer(o)); // Распаковка: из упакованного объекта извлекается значение
// Преобразование типов при распаковке - явное
o := i; // Упаковка: объект размерного типа integer упаковывается в объект ссылочного типа,
// котрый и присваивается переменной o
// Преобразование типов при упаковке - неявное
writeln(integer(o)); // Распаковка: из упакованного объекта извлекается значение
// Преобразование типов при распаковке - явное
o := r;
writeln(real(o));
try // При неверном преобразовании типов генерируется исключение InvalidCastException
try // При неверном преобразовании типов генерируется исключение InvalidCastException
writeln(shortint(o));
except
on e: Exception do

22
InstallerSamples/!MainFeatures/06_Classes/ClassConstructor.pas
View file

@ -1,18 +1,18 @@
// Пример использования классового (статического) конструктора
// Пример использования классового (статического) конструктора
type
Person = class
private
class arr: array of Person; // Классовое поле. Связано не с переменной класса, а с классом.
class arr: array of Person; // Классовое поле. Связано не с переменной класса, а с классом.
name: string;
age: integer;
public
class constructor; // Конструктор класса. Вызывается до создания первого объекта класса и до вызова любого классового метода
class constructor; // Конструктор класса. Вызывается до создания первого объекта класса и до вызова любого классового метода
begin
writeln(' Вызван классовый конструктор');
writeln(' Вызван классовый конструктор');
SetLength(arr,3);
arr[0] := new Person('Иванов',20);
arr[1] := new Person('Петрова',19);
arr[2] := new Person('Попов',35);
arr[0] := new Person('Иванов',20);
arr[1] := new Person('Петрова',19);
arr[2] := new Person('Попов',35);
end;
constructor (n: string; a: integer);
begin
@ -21,16 +21,16 @@ type
end;
function ToString: string; override;
begin
Result := Format('Имя: {0} Возраст: {1}',name,age);
Result := Format('Имя: {0} Возраст: {1}',name,age);
end;
class function RandomPerson: Person; // Классовый метод. Может обращаться только к классовым полям
class function RandomPerson: Person; // Классовый метод. Может обращаться только к классовым полям
begin
Result := arr[Random(3)];
end;
end;
begin
writeln('Случайные персоны');
writeln('Случайные персоны');
for var i:=1 to 5 do
writeln(Person.RandomPerson); // Вызов классового метода
writeln(Person.RandomPerson); // Вызов классового метода
end.

4
InstallerSamples/!MainFeatures/06_Classes/GarbageCollection.pas
View file

@ -1,4 +1,4 @@
// Сборка мусора: для освобождения объекта присвойте переменной nil
// Сборка мусора: для освобождения объекта присвойте переменной nil
var l := new List<integer>;
begin
@ -7,5 +7,5 @@ begin
l.Add(2);
foreach var x in l do
Print(x);
l := nil; // после этого память, занимаемая динамическим массивом, будет собрана сборщиком мусора
l := nil; // после этого память, занимаемая динамическим массивом, будет собрана сборщиком мусора
end.

2
InstallerSamples/!MainFeatures/06_Classes/Interf.pas
View file

@ -1,4 +1,4 @@
// Иллюстрация использования интерфейсов
// Иллюстрация использования интерфейсов
type
IShape = interface
procedure Draw;

2
InstallerSamples/!MainFeatures/06_Classes/OperatorOverloading.pas
View file

@ -1,4 +1,4 @@
// 襄疱沭箸赅 铒屦圉栝
// Перегрузка операций
type
Frac = record
private

18
InstallerSamples/!MainFeatures/06_Classes/PersonInternal.pas
View file

@ -1,30 +1,30 @@
// Описание методов внутри интерфейса класса
// Удобство: методы можно реализовывать сразу после объявления
// Неудобство: для больших классов интерфейс трудно читается
// Описание методов внутри интерфейса класса
// Удобство: методы можно реализовывать сразу после объявления
// Неудобство: для больших классов интерфейс трудно читается
type
Person = class
private
// Поля класса, как правило, приватны. Доступ к ним - через методы и свойства
// Поля класса, как правило, приватны. Доступ к ним - через методы и свойства
name: string;
age: integer;
public
// Конструктор неявно имеет имя Create
// Конструктор неявно имеет имя Create
constructor (n: string; a: integer);
begin
name := n; age := a;
end;
procedure Print;
begin
writeln('Имя: ',name,' Возраст: ',age);
writeln('Имя: ',name,' Возраст: ',age);
end;
end;
var p,p1: Person;
begin
p := new Person('Иванов',20); // Новый синтаксис вызова конструктора (рекомендуется)
p := new Person('Иванов',20); // Новый синтаксис вызова конструктора (рекомендуется)
p.Print;
p1 := Person.Create('Попов',19); // Старый синтаксис вызова конструктора (не рекомендуется)
p1 := Person.Create('Попов',19); // Старый синтаксис вызова конструктора (не рекомендуется)
p1.Print;
// Деструкторы отсутствуют, вместо них - автоматическая сборка мусора
// Деструкторы отсутствуют, вместо них - автоматическая сборка мусора
end.

8
InstallerSamples/!MainFeatures/06_Classes/Records.pas
View file

@ -1,5 +1,5 @@
// Иллюстрация конструкторов и методов в записях
// Если переопределен метод ToString, то он вызывается при выводе объекта этого типа процедурой writeln
// Иллюстрация конструкторов и методов в записях
// Если переопределен метод ToString, то он вызывается при выводе объекта этого типа процедурой writeln
type
SexType = (Male, Female);
Person = record
@ -15,11 +15,11 @@ type
end;
function ToString: string; override;
begin
Result := Format('Имя: {0} Пол: {1} Возраст: {2} Вес: {3}', Name, Sex, Age, Weight);
Result := Format('Имя: {0} Пол: {1} Возраст: {2} Вес: {3}', Name, Sex, Age, Weight);
end;
end;
var p: Person := new Person('Иванов',20,70,SexType.Male);
var p: Person := new Person('Иванов',20,70,SexType.Male);
begin
writeln(p);

2
InstallerSamples/!MainFeatures/06_Classes/Stack.pas
View file

@ -1,4 +1,4 @@
// Демонстрация создания простого класса стека на базе массива
// Демонстрация создания простого класса стека на базе массива
type
Stack<T> = class
private

4
InstallerSamples/!MainFeatures/06_Classes/Where.pas
View file

@ -1,4 +1,4 @@
// Секция Where - ограничение на типы параметров
// Секция Where - ограничение на типы параметров
uses System,System.Collections.Generic;
type
@ -15,7 +15,7 @@ type
var
m: MyClass<IntArr,integer>;
//m1: MyClass<integer>; // ошибка
//m1: MyClass<integer>; // ошибка
begin
end.

8
InstallerSamples/!MainFeatures/06_Classes/WriteRecord.pas
View file

@ -1,5 +1,5 @@
// Иллюстрация конструкторов и методов в записях
// Если переопределен метод ToString, то он вызывается при выводе объекта этого типа процедурой writeln
// Иллюстрация конструкторов и методов в записях
// Если переопределен метод ToString, то он вызывается при выводе объекта этого типа процедурой writeln
type
SexType = (Male, Female);
Person = record
@ -15,11 +15,11 @@ type
end;
function ToString: string; override;
begin
Result := string.Format('Имя: {0} Возраст: {1} Вес: {2} Пол: {3}', Name, Age, Weight, Sex);
Result := string.Format('Имя: {0} Возраст: {1} Вес: {2} Пол: {3}', Name, Age, Weight, Sex);
end;
end;
var p: Person := new Person('Иванов',20,70,SexType.Male);
var p: Person := new Person('Иванов',20,70,SexType.Male);
begin
writeln(p);

18
InstallerSamples/!MainFeatures/07_NetLibs/DateTime.pas
View file

@ -1,31 +1,31 @@
Uses System;
var d1, d2, d3: DateTime; // Объекты для хранения даты и времени
ts: TimeSpan; // Объект для хранения промежутков времени
var d1, d2, d3: DateTime; // Объекты для хранения даты и времени
ts: TimeSpan; // Объект для хранения промежутков времени
begin
// Получение текущей даты - вызов статического метода
// Получение текущей даты - вызов статического метода
d1 := DateTime.Now;
Writeln(d1);
// Дата и время через один месяц
// Дата и время через один месяц
d2 := d1.AddMonths(1);
Writeln(d2);
// Дата и время на 12 часов раньше
// Дата и время на 12 часов раньше
d2 := d1.AddHours(-12);
Writeln(d2);
// Формирование даты - вызов конструктора объекта (год, месяц,число)
// Формирование даты - вызов конструктора объекта (год, месяц,число)
d3 := new DateTime(2001, 1, 1);
Writeln(d3);
// Определение времени, прошедшего с начала тысячелетия (разность дат)
// Определение времени, прошедшего с начала тысячелетия (разность дат)
ts := d1.Subtract(d3);
// Промежуток времени в днях (результат - вещественное число)
// Промежуток времени в днях (результат - вещественное число)
Writeln(ts.TotalDays);
// Промежуток времени в днях, часах, минутах и секундах
// Промежуток времени в днях, часах, минутах и секундах
Writeln(ts.Days, ' ', ts.Hours, ':', ts.Minutes, ':', ts.Seconds);
end.

2
InstallerSamples/!MainFeatures/07_NetLibs/FormWebBrowser.pas
View file

@ -1,4 +1,4 @@
// Иллюстрация использования компонента WebBrowser
// Иллюстрация использования компонента WebBrowser
{$apptype windows}
{$reference System.Windows.Forms.dll}

2
InstallerSamples/!MainFeatures/07_NetLibs/LinkedList.pas
View file

@ -1,4 +1,4 @@
// Использование LinkedList - двусвязного списка стандартной библиотеки - и его итератора
// Использование LinkedList - двусвязного списка стандартной библиотеки - и его итератора
uses System.Collections,System.Collections.Generic;
procedure print(l: ICollection);

2
InstallerSamples/!MainFeatures/07_NetLibs/Reflection.pas
View file

@ -1,4 +1,4 @@
// Отражение типов. Выводятся все члены типа DateTime
// Отражение типов. Выводятся все члены типа DateTime
uses System,System.Reflection;
begin

6
InstallerSamples/!MainFeatures/07_NetLibs/WinFormWithButton.pas
View file

@ -1,4 +1,4 @@
// Создание оконного приложения
// Создание оконного приложения
{$apptype windows}
{$reference System.Windows.Forms.dll}
@ -17,9 +17,9 @@ end;
begin
myForm := new Form;
myForm.Text := 'Оконное приложение';
myForm.Text := 'Оконное приложение';
myButton := new Button;
myButton.Text := ' Закрыть окно ';
myButton.Text := ' Закрыть окно ';
myButton.AutoSize := True;
myButton.Left := 90;
myButton.Top := 110;

8
InstallerSamples/!Tutorial/01_First/Assign1.pas
View file

@ -1,12 +1,12 @@
// Использование вспомогательных переменных
// Использование вспомогательных переменных
var r: real;
begin
write('Введите r: ');
write('Введите r: ');
readln(r);
var r2,r4,r8: real; // вспомогательные переменные
var r2,r4,r8: real; // вспомогательные переменные
r2 := r * r;
r4 := r2 * r2;
r8 := r4 * r4;
writeln(r,' в степени 8 = ',r8);
writeln(r,' в степени 8 = ',r8);
end.

8
InstallerSamples/!Tutorial/01_First/Assign2.pas
View file

@ -1,12 +1,12 @@
// Перемена местами значений двух переменных с использованием третьей
// Перемена местами значений двух переменных с использованием третьей
var x,y: real;
begin
write('Введите x,y: ');
write('Введите x,y: ');
readln(x,y);
var v: real; // вспомогательная переменная
var v: real; // вспомогательная переменная
v := x;
x := y;
y := v;
writeln('Новые значения x,y: ',x,' ',y);
writeln('Новые значения x,y: ',x,' ',y);
end.

6
InstallerSamples/!Tutorial/01_First/AssignExt.pas
View file

@ -1,4 +1,4 @@
// Присваивания += -= *= /=
// Присваивания += -= *= /=
var
i: integer;
r: real;
@ -6,9 +6,9 @@ var
begin
i := 1;
writeln('i := 1; i = ',i);
i += 2; // Увеличение на 2
i += 2; // Увеличение на 2
writeln('i += 2; i = ',i);
i *= 3; // Увеличение в 3 раза
i *= 3; // Увеличение в 3 раза
writeln('i *= 3; i = ',i);
writeln;
r := 6;

10
InstallerSamples/!Tutorial/01_First/Boolean1.pas
View file

@ -1,16 +1,16 @@
// Логический тип. Логические выражения с and, or и not
// Логический тип. Логические выражения с and, or и not
var
b: boolean;
x: integer;
begin
write('Введите x (от 1 до 9): ');
write('Введите x (от 1 до 9): ');
readln(x);
b := x=5;
writeln('x=5? ',b);
b := (x>=3) and (x<=5);
writeln('x=3,4 или 5? ',b);
writeln('x=3,4 или 5? ',b);
b := (x=3) or (x=4) or (x=5);
writeln('x=3,4 или 5? ',b);
writeln('x=3,4 или 5? ',b);
b := not Odd(x);
writeln('x - четное? ',b);
writeln('x - четное? ',b);
end.

6
InstallerSamples/!Tutorial/01_First/Calculations1.pas
View file

@ -1,7 +1,7 @@
// Вывод результатов вычислений
// Вывод результатов вычислений
begin
writeln('Вычисления:');
// Вывод пустой строки
writeln('Вычисления:');
// Вывод пустой строки
writeln;
writeln('121 + 363 = ',121+363);
writeln('121 - 363 = ',121-363);

4
InstallerSamples/!Tutorial/01_First/Calculations2.pas
View file

@ -1,10 +1,10 @@
// Вывод результатов вычислений. Используются именованные константы
// Вывод результатов вычислений. Используются именованные константы
const
a = 121;
b = 363;
begin
writeln('Вычисления:');
writeln('Вычисления:');
writeln;
writeln(a,' + ',b,' = ',a+b);
writeln(a,' - ',b,' = ',a-b);

4
InstallerSamples/!Tutorial/01_First/Calculations3.pas
View file

@ -1,8 +1,8 @@
// Вывод результатов вычислений. Используются переменные и процедура ввода
// Вывод результатов вычислений. Используются переменные и процедура ввода
var a,b: integer;
begin
writeln('Введите a и b:');
writeln('Введите a и b:');
readln(a,b);
writeln;
writeln(a,' + ',b,' = ',a+b);

10
InstallerSamples/!Tutorial/01_First/DivMod1.pas
View file

@ -1,10 +1,10 @@
// Îďĺđŕöčč div č mod
// Операции div и mod
var a: integer;
begin
write('Ââĺäčňĺ a: ');
write('Введите a: ');
readln(a);
writeln('Ďîńëĺäí˙˙ öčôđŕ ÷čńëŕ: ',a mod 10);
writeln('×čńëî áĺç ďîńëĺäíĺé öčôđű: ',a div 10);
writeln('Ĺńëč ÷čńëî a ÷ĺňíî, ňî 0: ',a mod 2);
writeln('Последняя цифра числа: ',a mod 10);
writeln('Число без последней цифры: ',a div 10);
writeln('Если число a четно, то 0: ',a mod 2);
end.

8
InstallerSamples/!Tutorial/01_First/DivMod2.pas
View file

@ -1,11 +1,11 @@
// Операции div и mod
// Операции div и mod
var a: integer := 247;
begin
write('Цифры числа в обратном порядке: ');
// Выводим последнюю цифру
write('Цифры числа в обратном порядке: ');
// Выводим последнюю цифру
write(a mod 10,' ');
// Отбрасываем последнюю цифру
// Отбрасываем последнюю цифру
a := a div 10;
write(a mod 10,' ');
a := a div 10;

2
InstallerSamples/!Tutorial/01_First/Eof.pas
View file

@ -1,4 +1,4 @@
// Демонстрация работы функции eof. Запускать по Shift-F9
// Демонстрация работы функции eof. Запускать по Shift-F9
var s: char;
begin
while not eof do

2
InstallerSamples/!Tutorial/01_First/Eoln.pas
View file

@ -1,4 +1,4 @@
// Демонстрация работы функции eoln
// Демонстрация работы функции eoln
begin
while not eoln do
begin

4
InstallerSamples/!Tutorial/01_First/HelloWorld.pas
View file

@ -1,5 +1,5 @@
// Первая программа
// Первая программа
program HelloWorld;
begin
writeln('Привет, мир!');
writeln('Привет, мир!');
end.

8
InstallerSamples/!Tutorial/01_First/Random1.pas
View file

@ -1,13 +1,13 @@
// Генерация случайного числа
// Генерация случайного числа
var
i: integer;
r: real;
begin
i := Random(100);
writeln('Случайное целое в диапазоне 0..99: ',i);
writeln('Случайное целое в диапазоне 0..99: ',i);
i := Random(2,5);
writeln('Случайное целое в диапазоне 2..5: ',i);
writeln('Случайное целое в диапазоне 2..5: ',i);
r := Random;
writeln('Случайное вещественное в диапазоне [0,1): ',r);
writeln('Случайное вещественное в диапазоне [0,1): ',r);
end.

6
InstallerSamples/!Tutorial/01_First/Random2.pas
View file

@ -1,10 +1,10 @@
// Бросание кубиков
// Бросание кубиков
var k1,k2: integer;
begin
k1 := Random(1,6);
k2 := Random(1,6);
writeln('Очки на кубиках: ',k1,' ',k2);
writeln('Сумма очков: ',k1+k2);
writeln('Очки на кубиках: ',k1,' ',k2);
writeln('Сумма очков: ',k1+k2);
end.

6
InstallerSamples/!Tutorial/01_First/ReadString.pas
View file

@ -1,8 +1,8 @@
// Ввод строки
// Ввод строки
var s: string;
begin
write('Введите Ваше имя: ');
write('Введите Ваше имя: ');
readln(s);
writeln('Здравствуйте, ',s);
writeln('Здравствуйте, ',s);
end.

4
InstallerSamples/!Tutorial/01_First/Shl.pas
View file

@ -1,6 +1,6 @@
// Демонстрация операции shl
// Демонстрация операции shl
begin
writeln('Степени двойки');
writeln('Степени двойки');
writeln(' n 2^n');
for var i:=0 to 30 do
writeln(i:2,(1 shl i):12);

18
InstallerSamples/!Tutorial/01_First/StandFun.pas
View file

@ -1,14 +1,14 @@
// Стандартные функции
// Стандартные функции
var x: real;
begin
write('Введите x: ');
write('Введите x: ');
readln(x);
writeln('Квадрат ',x,' равен ',sqr(x));
writeln(x,' в степени 5 равно ',power(x,5));
writeln('Квадратный корень из ',x,' равен ',sqrt(x));
writeln('Модуль ',x,' равен ',abs(x));
writeln('Натуральный логарифм ',x,' равен ',ln(x));
writeln('Синус ',x,' равен ',sin(x));
writeln('Косинус ',x,' равен ',cos(x));
writeln('Квадрат ',x,' равен ',sqr(x));
writeln(x,' в степени 5 равно ',power(x,5));
writeln('Квадратный корень из ',x,' равен ',sqrt(x));
writeln('Модуль ',x,' равен ',abs(x));
writeln('Натуральный логарифм ',x,' равен ',ln(x));
writeln('Синус ',x,' равен ',sin(x));
writeln('Косинус ',x,' равен ',cos(x));
end.

8
InstallerSamples/!Tutorial/01_First/StandardTypes.pas
View file

@ -1,17 +1,17 @@
/// Ñòàíäàðòíûå ðàçìåðíûå òèïû äàííûõ è èõ ðàçìåð
/// Стандартные размерные типы данных и их размер
var
i: integer;
j: shortint;
k: smallint;
l: longint; // ñèíîíèì integer
l: longint; // синоним integer
i64: int64;
b: byte;
w: word;
lw: longword;
car: cardinal; // ñèíîíèì longword
car: cardinal; // синоним longword
ui64: uint64;
r: real;
d: double; // ñèíîíèì real
d: double; // синоним real
sn: single;
c: char;

2
InstallerSamples/!Tutorial/01_First/StringPlus.pas
View file

@ -1,4 +1,4 @@
// Сложение строк
// Сложение строк
var s1: string := 'Pascal';
var s2: string := 'NET';

12
InstallerSamples/!Tutorial/01_First/WriteFormat.pas
View file

@ -1,11 +1,11 @@
/// Использование процедуры WritelnFormat
/// Использование процедуры WritelnFormat
begin
// Вывод в обратном порядке
// Вывод в обратном порядке
WritelnFormat('{2},{1},{0}',1,2,3);
// Вывод фигурных скобочек
WritelnFormat('{{}}{0}','Вывод фигурных скобочек в форматной строке');
// Задание количества знаков после запятой для вещественного числа
// Вывод фигурных скобочек
WritelnFormat('{{}}{0}','Вывод фигурных скобочек в форматной строке');
// Задание количества знаков после запятой для вещественного числа
WritelnFormat('{0:f3}',3.1415);
// Задание ширины поля вывода
// Задание ширины поля вывода
WritelnFormat('{0,10:f}',3.1415);
end.

4
InstallerSamples/!Tutorial/02_Errors/CompilerError1.pas
View file

@ -1,5 +1,5 @@
// Исправьте ошибку компиляции.
// Обратите внимание, что курсор позиционируется в конце слова, вызвавшего ошибку
// Исправьте ошибку компиляции.
// Обратите внимание, что курсор позиционируется в конце слова, вызвавшего ошибку
var i: integer
begin

2
InstallerSamples/!Tutorial/02_Errors/CompilerError2.pas
View file

@ -1,4 +1,4 @@
// Исправьте ошибки компиляции. Опишите переменную r
// Исправьте ошибки компиляции. Опишите переменную r
begin
r := 2.5;
witeln(r);

2
InstallerSamples/!Tutorial/02_Errors/CompilerError3.pas
View file

@ -1,4 +1,4 @@
// Исправьте ошибку компиляции. Не всегда надо "верить" тексту ошибки
// Исправьте ошибку компиляции. Не всегда надо "верить" тексту ошибки
var k: real;

2
InstallerSamples/!Tutorial/02_Errors/CompilerError4.pas
View file

@ -1,4 +1,4 @@
// Исправьте ошибки компиляции, изменив тип переменной x
// Исправьте ошибки компиляции, изменив тип переменной x
var x: integer;
begin

4
InstallerSamples/!Tutorial/02_Errors/RuntimeError1.pas
View file

@ -1,5 +1,5 @@
// Введите не число
// Посмотрите, как выглядит ошибка при выполнении программы
// Введите не число
// Посмотрите, как выглядит ошибка при выполнении программы
var i: integer;
begin

2
InstallerSamples/!Tutorial/02_Errors/RuntimeError2.pas
View file

@ -1,4 +1,4 @@
// Посмотрите, как выглядит ошибка выполнения при целочисленном делении на 0
// Посмотрите, как выглядит ошибка выполнения при целочисленном делении на 0
var i: integer := 0;
begin

2
InstallerSamples/!Tutorial/02_Errors/RuntimeError3.pas
View file

@ -1,4 +1,4 @@
// При обычном делении на 0 ошибки не возникает
// При обычном делении на 0 ошибки не возникает
var r: real := 0;
begin

2
InstallerSamples/!Tutorial/02_Errors/RuntimeError4.pas
View file

@ -1,4 +1,4 @@
// При работе с вещественными числами невозможно получить ошибку выполнения
// При работе с вещественными числами невозможно получить ошибку выполнения
begin
writeln(sqrt(-1));
end.

6
InstallerSamples/!Tutorial/03_Robot_Drawman/DMa1.pas
View file

@ -1,6 +1,6 @@
// Исполнитель Чертежник - отличное средство для начального обучения программированию
// школьников младших и средних классов
// Для генерации шаблона задания нажмите Ctrl-L и наберите DM и имя задания
// Исполнитель Чертежник - отличное средство для начального обучения программированию
// школьников младших и средних классов
// Для генерации шаблона задания нажмите Ctrl-L и наберите DM и имя задания
uses Drawman;
begin

6
InstallerSamples/!Tutorial/03_Robot_Drawman/RBa1.pas
View file

@ -1,6 +1,6 @@
// Исполнитель Робот - отличное средство для начального обучения программированию
// школьников младших и средних классов
// Для генерации шаблона задания нажмите Ctrl-L и наберите RB и имя задания
// Исполнитель Робот - отличное средство для начального обучения программированию
// школьников младших и средних классов
// Для генерации шаблона задания нажмите Ctrl-L и наберите RB и имя задания
uses Robot;
begin

4
InstallerSamples/!Tutorial/04_Graphics/Gr1.pas
View file

@ -1,8 +1,8 @@
// Графика. Линии. Размеры окна. Заголовок окна
// Графика. Линии. Размеры окна. Заголовок окна
uses GraphABC;
begin
Window.Title := 'Первая графическая программа';
Window.Title := 'Первая графическая программа';
Line(0,0,Window.Width-1,Window.Height-1);
Line(0,Window.Height-1,Window.Width-1,0);
end.

4
InstallerSamples/!Tutorial/04_Graphics/Gr2.pas
View file

@ -1,8 +1,8 @@
// Графика. Точка. Случайный цвет. Скорость работы
// Графика. Точка. Случайный цвет. Скорость работы
uses GraphABC,Utils;
begin
for var i:=1 to 100000 do
SetPixel(Random(Window.Width),Random(Window.Height),clRandom);
writeln('Время работы: ',Milliseconds/1000,' секунд');
writeln('Время работы: ',Milliseconds/1000,' секунд');
end.

4
InstallerSamples/!Tutorial/04_Graphics/Gr3.pas
View file

@ -1,8 +1,8 @@
// Графика. Свойства кисти и пера
// Графика. Свойства кисти и пера
uses GraphABC;
begin
Window.Title := 'Свойства кисти и пера';
Window.Title := 'Свойства кисти и пера';
Pen.Color := Color.Red;
Pen.Width := 3;
Pen.Style := psDashDot;

4
InstallerSamples/!Tutorial/04_Graphics/Gr4.pas
View file

@ -1,8 +1,8 @@
// Графика. Draw и Fill - процедуры
// Графика. Draw и Fill - процедуры
uses GraphABC;
begin
Window.Title := 'Draw и Fill - процедуры';
Window.Title := 'Draw и Fill - процедуры';
for var i := 1 to 100 do
begin
Pen.Color := clRandom;

4
InstallerSamples/!Tutorial/04_Graphics/Gr5.pas
View file

@ -1,10 +1,10 @@
// Ăđŕôčęŕ. Pie
// Графика. Pie
uses GraphABC;
const r = 200;
begin
Window.Title := 'Ęđóăîâŕ˙ ăčńňîăđŕěěŕ';
Window.Title := 'Круговая гистограмма';
var x := Window.Center.X;
var y := Window.Center.Y;
Brush.Color := clRandom;

4
InstallerSamples/!Tutorial/04_Graphics/Gr6.pas
View file

@ -1,8 +1,8 @@
// Графика. Прозрачность
// Графика. Прозрачность
uses GraphABC;
begin
Window.Title := 'Демонстрация прозрачности';
Window.Title := 'Демонстрация прозрачности';
Brush.Color := clRed;
FillRectangle(50,50,100,Window.Height - 50);

4
InstallerSamples/!Tutorial/04_Graphics/Gr7.pas
View file

@ -1,4 +1,4 @@
// Графика. Сохраниение изображения графического окна в файл и загрузка из файла
// Графика. Сохраниение изображения графического окна в файл и загрузка из файла
uses GraphABC;
const
@ -6,7 +6,7 @@ const
filename = 'GraphWindow.bmp';
begin
Window.Title := 'Window.Save и Window.Load';
Window.Title := 'Window.Save и Window.Load';
SetWindowSize(320,240);
for var x:=0 to Window.Width - 1 do

8
InstallerSamples/!Tutorial/04_Graphics/Gr8.pas
View file

@ -1,9 +1,9 @@
// Графика. Сглаживание
// Графика. Сглаживание
uses GraphABC;
begin
Window.Title := 'Демонстрация сглаживания';
TextOut(40,20,'Со сглаживанием');
Window.Title := 'Демонстрация сглаживания';
TextOut(40,20,'Со сглаживанием');
Pen.Width := 2;
Ellipse(40,60,300,200);
@ -11,7 +11,7 @@ begin
Line(600,130,340,200);
SetSmoothingOff;
TextOut(40,240,'Без сглаживания');
TextOut(40,240,'Без сглаживания');
Ellipse(40,280,300,420);
Line(340,280,600,350);
Line(600,350,340,420);

Some files were not shown because too many files have changed in this diff Show more