diff --git a/PascalABCnet/case..of/case1.pas b/PascalABCnet/case..of/case1.pas new file mode 100644 index 0000000..528ac3e --- /dev/null +++ b/PascalABCnet/case..of/case1.pas @@ -0,0 +1,17 @@ +Program case_of; + Var a:integer; + begin + WriteLn(' '); + ReadLn(a); + case a of + 1: WriteLn(' '); + 2: WriteLn(' '); + 3: WriteLn(' '); + 4: WriteLn(' '); + 5: WriteLn(' '); + 6: WriteLn(' '); + 7: WriteLn(' '); + else WriteLn(' !!!') + end; + end. + \ No newline at end of file diff --git a/PascalABCnet/case..of/case2.pas b/PascalABCnet/case..of/case2.pas new file mode 100644 index 0000000..0a947af --- /dev/null +++ b/PascalABCnet/case..of/case2.pas @@ -0,0 +1,20 @@ +program case2; + var a:integer; + begin + WriteLn(' '); + ReadLn(a); + case a of + 1: WriteLn(''); + 2: WriteLn(''); + 3: WriteLn(''); + 4: WriteLn(''); + 5: WriteLn('May'); + 6: WriteLn(''); + 7: WriteLn(''); + 9:WriteLn(''); + 10:WriteLn(''); + 11:WriteLn(''); + 12:WriteLn(''); + else WriteLn(' !!!') + END; + end. \ No newline at end of file diff --git a/PascalABCnet/case..of/case3.pas b/PascalABCnet/case..of/case3.pas new file mode 100644 index 0000000..1a9ca41 --- /dev/null +++ b/PascalABCnet/case..of/case3.pas @@ -0,0 +1,11 @@ +program case_; + var a:integer; + begin + WriteLn(' - 1 50'); + ReadLn(a); + Case a of + 1,21,31,41:WriteLn(a,' '); + 2..4,22..24,32..34,42..44:WriteLn(a,' a'); + 5..20,25..30,35..40,45..50:WriteLn(a,' '); + end; + end. \ No newline at end of file diff --git a/PascalABCnet/case..of/case4.pas b/PascalABCnet/case..of/case4.pas new file mode 100644 index 0000000..01883a2 --- /dev/null +++ b/PascalABCnet/case..of/case4.pas @@ -0,0 +1,12 @@ +program case_adult; + var a:integer; + begin + WriteLn(' '); + ReadLn(a); + Case a of + 1,21,31,41,51,61,71,81,91,101,121,131,141,151,161,171,181,191:writeln(' ',a,' '); + 2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94,102..104,122..124,132..134,142..144,152..154,162..164,172..174,182..184,192..194:writeln(' ',a,' '); + 5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100,105..120,125..130,135..140,145..150,155..160,165..170,175..180,185..190,195..200:writeln(' ',a,' '); + else WriteLn(' !!!'); + end; + end. \ No newline at end of file diff --git a/PascalABCnet/char/char1.pas b/PascalABCnet/char/char1.pas new file mode 100644 index 0000000..80c3647 --- /dev/null +++ b/PascalABCnet/char/char1.pas @@ -0,0 +1,12 @@ +program cha; + + var c,x,y,z:char; //char - типо integer только кроме цифр есть буквы и точки + begin + z:= ('z'); // присвоил z значение "z" + WriteLn('введи x'); + ReadLn(x); //читаем x + WriteLn(x+z); // складываем символы + WriteLn('4 буквы без пробелa.'); + ReadLn(c,x,y,z); + WriteLn(c+x+y+z); // таким образом можно составить слово. + end. \ No newline at end of file diff --git a/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas b/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas new file mode 100644 index 0000000..097dd52 --- /dev/null +++ b/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas @@ -0,0 +1,13 @@ +program div_mod; + var a,one,dec,hun,rec:integer; + begin + WriteLn (' '); + ReadLn (a); + one:=a mod 10; + WriteLn (' - ',one); + dec:=(a div 10) mod 10; + rec:= dec*10+one; + WriteLn (' - ',rec); + Write ('Enter'); + ReadLn; + End. \ No newline at end of file diff --git a/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas b/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas new file mode 100644 index 0000000..0b821d9 --- /dev/null +++ b/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas @@ -0,0 +1,16 @@ +program div_mod; + var a,one,dec,hun,rec:integer; + begin + WriteLn (' '); + ReadLn (a); + one:=a mod 10; + WriteLn (' - ',one); + dec:=(a div 10) mod 10; + WriteLn (' - ', dec); + hun:= a div 100; + WriteLn (' - ', hun); + rec:= hun*100+dec*10+one; + WriteLn (' - ',rec); + Write ('Enter'); + ReadLn; + End. \ No newline at end of file diff --git a/PascalABCnet/div mod/Div и Mod.pas b/PascalABCnet/div mod/Div и Mod.pas new file mode 100644 index 0000000..ffd4bc8 --- /dev/null +++ b/PascalABCnet/div mod/Div и Mod.pas @@ -0,0 +1,9 @@ +Program oper; +Var a,b,c,d,e,f: integer; + Begin + Read (a,b,c,d); + E:=a div b; + f:= c mod d; + WriteLn (e); + WriteLn (f); + End. \ No newline at end of file diff --git a/PascalABCnet/div mod/k div mod d.pas b/PascalABCnet/div mod/k div mod d.pas new file mode 100644 index 0000000..8917a68 --- /dev/null +++ b/PascalABCnet/div mod/k div mod d.pas @@ -0,0 +1,8 @@ +Program trololo; +var k,d,r,s:integer; + Begin + ReadLn(k,d); + r:=k div d; + s:=k mod d; + WriteLn(' ',k,' ',d,' ',r,'( ',s,')'); + end. \ No newline at end of file diff --git a/PascalABCnet/div mod/вещественные числа.pas b/PascalABCnet/div mod/вещественные числа.pas new file mode 100644 index 0000000..4652778 --- /dev/null +++ b/PascalABCnet/div mod/вещественные числа.pas @@ -0,0 +1,12 @@ +program a7; +var a:real; +b:integer; + begin + ReadLn(a); + a:=a*100; + b:= Trunc (a); + b:=b mod 100; + writeln(b); + a:=(b div 10) + (b mod 10); + writeln(a); + end. \ No newline at end of file diff --git a/PascalABCnet/div mod/сложение цифр 3значных чисел.pas b/PascalABCnet/div mod/сложение цифр 3значных чисел.pas new file mode 100644 index 0000000..1124d84 --- /dev/null +++ b/PascalABCnet/div mod/сложение цифр 3значных чисел.pas @@ -0,0 +1,14 @@ +var a,dec,hun,one,k:integer; + begin + writeLn(' '); + writeln; + readln(a); + one:=a mod 10; + a:=a div 10; + dec:=a mod 10; + a:=a div 10; + hun:=a mod 10; + a:=a div 10; + K:=hun+dec+one; + write(k); + end. \ No newline at end of file diff --git a/PascalABCnet/div mod/цифры 2значного числа.pas b/PascalABCnet/div mod/цифры 2значного числа.pas new file mode 100644 index 0000000..e8f6a69 --- /dev/null +++ b/PascalABCnet/div mod/цифры 2значного числа.pas @@ -0,0 +1,12 @@ +var a,dec,hun,one:integer; + begin + writeLn(' '); + writeln; + readln(a); + one:=a mod 10; + a:=a div 10; + dec:=a mod 10; + a:=a div 10; + writeln(dec); + writeln(one); + end. \ No newline at end of file diff --git a/PascalABCnet/div mod/цифры числа 2.pas b/PascalABCnet/div mod/цифры числа 2.pas new file mode 100644 index 0000000..04eedf6 --- /dev/null +++ b/PascalABCnet/div mod/цифры числа 2.pas @@ -0,0 +1,15 @@ +var a,dec,hun,one:integer; + begin + writeLn(' '); + writeln; + readln(a); + one:=a mod 10; + a:=a div 10; + dec:=a mod 10; + a:=a div 10; + hun:=a mod 10; + a:=a div 10; + writeln(hun); + writeln(dec); + writeln(one); + end. \ No newline at end of file diff --git a/PascalABCnet/div mod/цифры числа.pas b/PascalABCnet/div mod/цифры числа.pas new file mode 100644 index 0000000..83d6a56 --- /dev/null +++ b/PascalABCnet/div mod/цифры числа.pas @@ -0,0 +1,18 @@ +var + n: integer; + a: array[byte] of byte; + i, j: byte; + +begin + i := 1; + readln(n); + while n > 0 do + begin + a[i] := n mod 10; + inc(i); + n := n div 10; + end; + j := i - 1; + for i := j downto 1 do + writeln(a[i]); +end. \ No newline at end of file diff --git a/PascalABCnet/procedure&function/процедуры.pas b/PascalABCnet/procedure&function/процедуры.pas new file mode 100644 index 0000000..f82032c --- /dev/null +++ b/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. \ No newline at end of file diff --git a/PascalABCnet/procedure&function/процедуры2.pas b/PascalABCnet/procedure&function/процедуры2.pas new file mode 100644 index 0000000..8bd505f --- /dev/null +++ b/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. + \ No newline at end of file diff --git a/PascalABCnet/procedure&function/функции.pas b/PascalABCnet/procedure&function/функции.pas new file mode 100644 index 0000000..e76fd7f --- /dev/null +++ b/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. + \ No newline at end of file diff --git a/PascalABCnet/while/While_task1.pas b/PascalABCnet/while/While_task1.pas new file mode 100644 index 0000000..3bb93e4 --- /dev/null +++ b/PascalABCnet/while/While_task1.pas @@ -0,0 +1,11 @@ +Program While_task_1; + Var a,b:integer; + Begin + ReadLn(b); + a:=1; + While ((an do + begin + WriteLn (' , '); + ReadLn(a); + end; + WriteLn(''); + end. \ No newline at end of file diff --git a/PascalABCnet/while/While_task7.pas b/PascalABCnet/while/While_task7.pas new file mode 100644 index 0000000..00f84ba --- /dev/null +++ b/PascalABCnet/while/While_task7.pas @@ -0,0 +1,15 @@ +Program While_Task7; + const n=10; + var a:integer; + begin + While a<> n do + Begin + writeln('hello'); + inc(a); + end; + a:=0; + repeat + writeln('hello'); + inc(a); + until a=n; + end. \ No newline at end of file diff --git a/PascalABCnet/while/While_task8.pas b/PascalABCnet/while/While_task8.pas new file mode 100644 index 0000000..0e2c726 --- /dev/null +++ b/PascalABCnet/while/While_task8.pas @@ -0,0 +1,10 @@ +Program While_Task8; + const n=25; + var a:integer; + begin + a:=3; + Repeat + Writeln(a); + inc(a); + until a>n; + end. \ No newline at end of file diff --git a/PascalABCnet/while/while2.pas b/PascalABCnet/while/while2.pas new file mode 100644 index 0000000..5aff7ea --- /dev/null +++ b/PascalABCnet/while/while2.pas @@ -0,0 +1,13 @@ +Program While4; +Var a,b,c:integer; + begin + ReadLn(a,b); + Write (a mod b); + { + while a mod b =0 do + begin + c:=a mod b; + end; + WriteLn(c); + } + end. \ No newline at end of file diff --git a/PascalABCnet/записи/записи.pas b/PascalABCnet/записи/записи.pas new file mode 100644 index 0000000..674e747 --- /dev/null +++ b/PascalABCnet/записи/записи.pas @@ -0,0 +1,38 @@ +program zap; + + type stud = record // record - + name : string; + year : record // record`e record :, = + D : 1..31; + M : string; + Y : integer; + end; + end; + var a :stud; // , a = stud + + begin + WriteLn(''); + ReadLn(a.name); + WriteLn(', , '); + with a.year do begin // with + ReadLn(D); + ReadLn(M); + ReadLn(Y); + end; + Case a.year.M of // a - , + '1a' : a.year.M:=''; + '2a' : a.year.M:=''; + '3a' : a.year.M:=''; + '4a' : a.year.M:=''; + '5a' : a.year.M:=''; + '6a' : a.year.M:=''; + '7a' : a.year.M:=''; + '8a' : a.year.M:=''; + '9a' : a.year.M:=''; + '10' : a.year.M:=''; + '11' : a.year.M:=''; + '12' : a.year.M:=''; + end; + WriteLn(a.name); + WriteLn(a.year.D,' ',a.year.M,' ',a.year.Y); + end. \ No newline at end of file diff --git a/PascalABCnet/массивы/бред.pas b/PascalABCnet/массивы/бред.pas new file mode 100644 index 0000000..598d82a --- /dev/null +++ b/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. + \ No newline at end of file diff --git a/PascalABCnet/массивы/массив.pas b/PascalABCnet/массивы/массив.pas new file mode 100644 index 0000000..1a8b573 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/PascalABCnet/массивы/сравнение char и массива с char.pas b/PascalABCnet/массивы/сравнение char и массива с char.pas new file mode 100644 index 0000000..65db45b --- /dev/null +++ b/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. \ No newline at end of file diff --git a/PascalABCnet/множества/множества.pas b/PascalABCnet/множества/множества.pas new file mode 100644 index 0000000..3c4d4d3 --- /dev/null +++ b/PascalABCnet/множества/множества.pas @@ -0,0 +1,13 @@ +program множества; + var A,B,C: set of 0..9;//0..9 значит, что значения могут быть от 0 и до 9 (включительно) + +begin + A:=[1,2,3]; + B:=[3,4,5]; + C:=A+B;// + объединение + WriteLn(C); + C:=A*B;// * пересечение + WriteLn(C); + C:=A-B;// - вычитание + WriteLn(C); +end. \ No newline at end of file diff --git a/PascalABCnet/остальное/randomiser.pas b/PascalABCnet/остальное/randomiser.pas new file mode 100644 index 0000000..c51d954 --- /dev/null +++ b/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(iy then writeln (''); + if x 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. \ No newline at end of file diff --git a/PascalABCnet/остальное/Счетчик.exe b/PascalABCnet/остальное/Счетчик.exe new file mode 100644 index 0000000..4df5f42 Binary files /dev/null and b/PascalABCnet/остальное/Счетчик.exe differ diff --git a/PascalABCnet/остальное/Счетчик.pas b/PascalABCnet/остальное/Счетчик.pas new file mode 100644 index 0000000..af5769d --- /dev/null +++ b/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. diff --git a/PascalABCnet/параметр цикла for/for1.pas b/PascalABCnet/параметр цикла for/for1.pas new file mode 100644 index 0000000..3bdfffa --- /dev/null +++ b/PascalABCnet/параметр цикла for/for1.pas @@ -0,0 +1,6 @@ +program for1; +var i,k,n:integer; + begin + Read(k,n); + For i:=1 to n do WriteLn(k); + end. \ No newline at end of file diff --git a/PascalABCnet/параметр цикла for/for2.pas b/PascalABCnet/параметр цикла for/for2.pas new file mode 100644 index 0000000..40a4c27 --- /dev/null +++ b/PascalABCnet/параметр цикла for/for2.pas @@ -0,0 +1,11 @@ +program for2; +var a,b,i,n:integer; + begin + Read(a,b); + For i:=a to b do + begin + WriteLn(i); + n:=n+1 + end; + writeln('n=' , n); + end. \ No newline at end of file diff --git a/PascalABCnet/параметр цикла for/for3.pas b/PascalABCnet/параметр цикла for/for3.pas new file mode 100644 index 0000000..903c677 --- /dev/null +++ b/PascalABCnet/параметр цикла for/for3.pas @@ -0,0 +1,6 @@ +program for3; +var k,n,i:integer; + begin + Read(k,n); + For i:=k to n do WriteLn(k); + end. \ No newline at end of file diff --git a/PascalABCnet/параметр цикла for/for4.pas b/PascalABCnet/параметр цикла for/for4.pas new file mode 100644 index 0000000..ba40d05 --- /dev/null +++ b/PascalABCnet/параметр цикла for/for4.pas @@ -0,0 +1,11 @@ +program for4; +var a,b,i,n:integer; + begin + read(a,b); + For i:=a to b do + begin + WriteLn(i); + inc(n); + end; + WriteLn(n); + end. \ No newline at end of file diff --git a/PascalABCnet/параметр цикла for/for5.pas b/PascalABCnet/параметр цикла for/for5.pas new file mode 100644 index 0000000..4d8e6d4 --- /dev/null +++ b/PascalABCnet/параметр цикла for/for5.pas @@ -0,0 +1,11 @@ +program for5; +var a,b,i,n:integer; + begin + read(a,b); + For i:=b-1 downto a+1 do + begin + WriteLn(i); + inc(n); + end; + WriteLn(n); + end. \ No newline at end of file diff --git a/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas b/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas new file mode 100644 index 0000000..69fbd86 --- /dev/null +++ b/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas @@ -0,0 +1,11 @@ +Program programma_kotoraia_smogla;// + Var x,y,z,a,b,c: Integer;// + Begin + WriteLn (', 5 ');// + ReadLn(x,y,z,a,b);// + c:=x-y+z*(a+b);// "c" + WriteLn(c);// + { + ctrl+ + } + End. \ No newline at end of file