Reorganize

Programming Notes/PascalABCnet/procedure&function/процедуры.pas

@@ -0,0 +1,18 @@
+program procedura;
+
+ var c:char;
+
+//---------------------------------------------------
+ procedure zv; //объявляем процедуру и её название
+  var i:integer; // процедуры используют только свои переменные, вне процедур их не существует
+   begin
+    WriteLn('*******************************'); // собственно, тут то, что делает сама процедура
+   end;
+//---------------------------------------------------
+
+ begin
+  c:='0';
+  WriteLn('Хочешь звездочек? Y/N');
+  ReadLn(c);
+  If c = 'Y' then zv; // Теперь, когда тебе нужны будут звездочки,просто пиши zv;
+ end.

Programming Notes/PascalABCnet/procedure&function/процедуры2.pas

@@ -0,0 +1,23 @@
+program procedura;
+
+ var r,r1,s2:integer;  
+
+//---------------------------------------------------
+ procedure zv(a,b:integer; var s:integer); //Допустим, тебе нужно выполнить действие с какими то переменными, которые находятся вне процедуры
+   begin       // для этого создай процедуру, а процедурные переменные укажи в скобках, после названия процедуры
+  //если ты хочешь, чтобы в последствии этой процедуры изменилась глобальная переменная, указывай её как я указал s, но лучше используй функции.
+    s:=a+b;   //<-- собственно само действие, которое нужно совершить с глобальными переменными,
+              // ты указываешь тут, только вместо глобальных - процедурные, которые ты указал в скобках
+    WriteLn(a,' ',b);
+   end;       
+
+//------------------------------------------------ 
+
+ begin
+  r:=random(5000000);
+  r1:=random(5000000); // тут, собственно, глобальные переменные, с которыми нужно выполнить действие
+  WriteLn(r,' ',r1);
+  zv(r,r1,s2);
+  WriteLn('Сумма рандомных чисел = ',s2);
+ end.
+ 

Programming Notes/PascalABCnet/procedure&function/функции.pas

@@ -0,0 +1,21 @@
+program procedura;
+
+ var s2,r1,r:integer;  
+
+//---------------------------------------------------
+ function zv(a,b:integer):integer; // функции - это типо те же процедуры, только с конкретным результатом.
+ //функция - это и есть результат. отсюда и :integer после скобок
+   begin
+    zv :=a+b; // у этой функции результатом является сложение переменных a и b
+    WriteLn('Помимо этого в функции выполняются любые действия, не связанные с вычислением результата, поэтому эта надпись выведется на экран');
+   end;       
+//------------------------------------------------ 
+
+ begin
+  r:=random(5000000);
+  r1:=random(5000000);
+  WriteLn(r,' ',r1);
+  s2:=zv(r,r1); // переменной s2 присваивается результат функции, и так собственно функция и призывается
+  WriteLn('Сумма рандомных чисел = ',s2);
+ end.
+