h3lp/learning
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Pascal learning files

Browse Source
This commit is contained in:
h3lp
2025-11-20 21:18:32 +02:00
parent 1ce193cc0d
commit 258f24570a
37 changed files with 587 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
PascalABCnet/остальное/randomiser.pas Normal file
View File

@@ -0,0 +1,25 @@
program ranodmizer;
Uses crt;
var y,x,i:integer;
const N=5;
begin
i:=1; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
y:= random (10); //<2F><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//writeln (y);
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(x); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
While ((x<>y)and(i<N+1)) do //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
{
if x>y then writeln ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if x<y then writeln ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
}
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>');
ReadLn(x);
inc(i); //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,while <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> begin
end;
if(x=y)then writeLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if not (x=y) then writeln ('<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
readkey;
end.

65
PascalABCnet/остальное/Для вадима2.pas Normal file
View File

@@ -0,0 +1,65 @@
uses crt;
var w,a,s,d,q,e,r,t:integer;
n:byte;
label l1;
begin
l1:
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>');
ReadLn(w);
if w <> 536985 then WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if w <> 536985 then goto l1;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> A <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1');
ReadLn(n);
Case n of
1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(w);
Case w of
2..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
1: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(a);
Case a of
1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 4 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(s);
Case s of
2..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
1: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(r);
Case r of
1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 6 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(t);
Case t of
1,3..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
2: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(e);
Case e of
1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 6 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(q);
Case q of
1,3..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
2: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
end;
Readkey;
end.

BIN
PascalABCnet/остальное/Счетчик.exe Normal file
View File

Binary file not shown.

31
PascalABCnet/остальное/Счетчик.pas Normal file
View File

@@ -0,0 +1,31 @@
program counter;
uses FormsABC;
var
p := new Button('+');
f2 := new FlowBreak;
x := new IntegerField('kills:');
f1 := new FlowBreak(20);
m := new Button('-');
y:integer;
procedure plus;
begin
inc(y);
x.value := y;
end;
procedure minus;
begin
dec(y);
x.Value := y;
end;
begin
MainForm.Title := 'Счетчик';
MainForm.SetSize(250,200);
MainForm.CenterOnScreen;
mainPanel.Dock :=DockStyle.right;
mainPanel.Width := 170;
p.Click += plus;
m.Click += minus;
end.