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

Пара символов

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2019-12-08 21:00:48 +03:00
parent 6d94497a24
commit 76710a8b2a
4 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
InstallerSamples/Games/Animals/Animals.pas
View file

@ -32,7 +32,6 @@ end;
function LoadFromFile: TNode;
var
s: string;
p: TNode;
begin
readln(f,s);
if s='' then
@ -40,7 +39,7 @@ begin
Result := nil;
exit
end;
p := new TNode(s);
var p := new TNode(s);
p.left := LoadFromFile;
p.right := LoadFromFile;
Result := p;
@ -66,7 +65,7 @@ begin
p := root;
while p.left<>nil do
begin
write(p.s+'? (0 - Нет, 1 - Да): ');
Print(p.s+'? (0 - Нет, 1 - Да):');
readln(x);
if x=1 then
p := p.left
@ -90,6 +89,9 @@ begin
p.left := p1;
p.right := p2;
end;
Rewrite(f);
SaveToFile(root);
Close(f);

2
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -2,7 +2,7 @@
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: DESKTOP-G8V08V4
// DateTime: 29.11.2019 19:33:24
// DateTime: 02.12.2019 22:08:18
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>

2
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

@ -2,7 +2,7 @@
// GPPG version 1.3.6
// Machine: DESKTOP-G8V08V4
// DateTime: 29.11.2019 19:33:24
// DateTime: 02.12.2019 22:08:19
// UserName: ?????????
// Input file <ABCPascal.y>

1
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -250,5 +250,6 @@ script=