Add Pascal learning files

PascalABCnet/остальное/randomiser.pas

@@ -0,0 +1,25 @@
+program ranodmizer;
+ Uses crt;
+ var y,x,i:integer;
+ const N=5;
+  begin
+   i:=1; //ïîïûòêè
+   y:= random (10); //÷èñëî, êîòîðîå óãàäûâàåøü
+   //writeln (y);
+   WriteLn('Óãàäàé ÷èñëî');
+   ReadLn(x); //óãàäûâàåøü
+   While ((x<>y)and(i<N+1)) do //åñëè íåâåðíî
+  begin
+   {
+   if x>y then writeln ('Áîëüøå');
+   if x<y then writeln ('Ìåíüøå');
+   }
+   writeLn('Íåâåðíî, ïîïðîáóé åùå ðàç');
+   ReadLn(x);
+   inc(i); //åñëè åùå ðàç íåâåðíî,while âåðíåò ê begin
+  end;
+   if(x=y)then writeLn ('Ìîëîäåö');
+   if not (x=y) then writeln ('Òû ïðîèãðàë');
+   readkey;
+  end.
+  

PascalABCnet/остальное/Для вадима2.pas

@@ -0,0 +1,65 @@
+uses crt;
+var w,a,s,d,q,e,r,t:integer;
+n:byte;
+label l1;
+begin
+ l1:
+ WriteLn('Ââåäèòå êîä');
+ ReadLn(w);
+ if w <> 536985 then WriteLn('Íåâåðíî');
+ if w <> 536985 then goto l1;
+ WriteLn('Óãàäàéòå ïåðâûé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ WriteLn('Íàïðèìåð ÷òîáû ââåñòè A ââåäèòå 1');
+ ReadLn(n);
+ Case n of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+ WriteLn('Óãàäàéòå 2 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(w);
+  Case w of 
+ 2..9:WriteLn(' íåâåðíî');
+ 1: WriteLn('âåðíî');
+ end;
+ WriteLn('Óãàäàéòå òðåòèé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ ReadLn(a);
+ Case a of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå 4 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(s);
+  Case s of 
+ 2..9:WriteLn(' íåâåðíî');
+ 1: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå ïÿòûé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ ReadLn(r);
+ Case r of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå 6 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(t);
+  Case t of 
+ 1,3..9:WriteLn(' íåâåðíî');
+ 2: WriteLn('âåðíî');
+ end;
+   WriteLn('Óãàäàéòå ïÿòûé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ ReadLn(e);
+ Case e of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå 6 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(q);
+  Case q of 
+ 1,3..9:WriteLn(' íåâåðíî');
+ 2: WriteLn('âåðíî');
+ end;
+ Readkey;
+end.

PascalABCnet/остальное/Счетчик.pas

@@ -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.