Reorganize

Programming Notes/PascalABCnet/массивы/бред.pas

@@ -0,0 +1,13 @@
+program summof30;
+ const n=30;
+ type My=array [1..30] of integer; //ìàññèâ èç 30 öåëûõ ÷èñåë
+ var a: my;
+     s,i:integer;
+   begin
+     WriteLn('ââåäè ',n,' ÷èñåë'); 
+     for i:=1 to n do ReadLn(a[i]);//íå çíàþ ÷òî äåëàåò [i], íî òóò âîîäÿòñÿ ÷èñëà
+     s:=0;
+     for i:=1 to n do s:=s+a[i]; //âñå åùå íå çíàþ [i], íî òóò ÷èñëà ñêëàäûâàþòñÿ
+     WriteLn(s);
+   end.
+ 

Programming Notes/PascalABCnet/массивы/массив.pas

@@ -0,0 +1,8 @@
+program idea;
+ var m:array [1..10] of integer; // задаю массив состоящий из 10 переменных (!не массив из цифр 1 - 10!)
+     i:integer;
+  begin
+   WriteLn(m); //вывожу эти 10 переменных. изначально, как и все переменные, они равны нулю
+   m[2]:=2;    //второй переменной в массиве [2] присваиваю цифру 2 
+   WriteLn(m); // снова вывожу этот массив, и вторая переменная равна 2
+  end.

Programming Notes/PascalABCnet/массивы/сравнение char и массива с char.pas

@@ -0,0 +1,25 @@
+program nunax;
+ var c:char;
+     ch : array[1..4] of char;
+     i,x:integer;
+ label l1;
+  begin
+   ch[1]:='a';
+   ch[2]:='b';
+   ch[3]:='c';
+   ch[4]:='d'; //записываю переменные в массив
+   l1: // метка для того чтобы при вводе неверного варианта что то происходило
+   x:=0; //всегда обнуляй переменные при использовании циклов
+   WriteLn('введи a,b,c или d');
+   ReadLn(c); //считывание варианта 
+   for i:=1 to 4 do
+    begin
+     if (c<>ch[i]) then inc(x); // тут вариант сравнивается с a b c и d которые внесены в массив
+    end; // если inc(x) произошло 4 раза, значит вариант не равен ничему из того что есть в массиве
+   if x<>3 then 
+    begin
+    Writeln('че?');
+    goto l1; // собственно сам переход к l1 если введен неверный вариант
+    end;
+   WriteLn('end');
+  end.