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

17
PascalABCnet/case..of/case1.pas Normal file
View File

@@ -0,0 +1,17 @@
Program case_of;
Var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>');
ReadLn(a);
case a of
1: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
2: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
3: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
4: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
5: WriteLn('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>');
6: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
7: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
else WriteLn('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>!!!')
end;
end.

20
PascalABCnet/case..of/case2.pas Normal file
View File

@@ -0,0 +1,20 @@
program case2;
var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(a);
case a of
1: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
2: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
3: WriteLn('<27><><EFBFBD><EFBFBD>');
4: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
5: WriteLn('May');
6: WriteLn('<27><><EFBFBD><EFBFBD>');
7: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
9:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
10:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
11:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
12:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
else WriteLn('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!!')
END;
end.

11
PascalABCnet/case..of/case3.pas Normal file
View File

@@ -0,0 +1,11 @@
program case_;
var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 1 <20><> 50');
ReadLn(a);
Case a of
1,21,31,41:WriteLn(a,' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
2..4,22..24,32..34,42..44:WriteLn(a,' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>a');
5..20,25..30,35..40,45..50:WriteLn(a,' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end.

12
PascalABCnet/case..of/case4.pas Normal file
View File

@@ -0,0 +1,12 @@
program case_adult;
var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(a);
Case a of
1,21,31,41,51,61,71,81,91,101,121,131,141,151,161,171,181,191:writeln('<27><><EFBFBD> ',a,' <20><><EFBFBD>');
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('<27><><EFBFBD> ',a,' <20><><EFBFBD><EFBFBD>');
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('<27><><EFBFBD> ',a,' <20><><EFBFBD>');
else WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!!');
end;
end.

12
PascalABCnet/char/char1.pas Normal file
View File

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

13
PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas Normal file
View File

@@ -0,0 +1,13 @@
program div_mod;
var a,one,dec,hun,rec:integer;
begin
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
ReadLn (a);
one:=a mod 10;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',one);
dec:=(a div 10) mod 10;
rec:= dec*10+one;
WriteLn ('<27> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',rec);
Write ('Enter');
ReadLn;
End.

16
PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas Normal file
View File

@@ -0,0 +1,16 @@
program div_mod;
var a,one,dec,hun,rec:integer;
begin
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
ReadLn (a);
one:=a mod 10;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',one);
dec:=(a div 10) mod 10;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ', dec);
hun:= a div 100;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ', hun);
rec:= hun*100+dec*10+one;
WriteLn ('<27> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',rec);
Write ('Enter');
ReadLn;
End.

9
PascalABCnet/div mod/Div и Mod.pas Normal file
View File

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

8
PascalABCnet/div mod/k div mod d.pas Normal file
View File

@@ -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('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',k,' <20><> ',d,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',r,'(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',s,')');
end.

12
PascalABCnet/div mod/вещественные числа.pas Normal file
View File

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

14
PascalABCnet/div mod/сложение цифр 3значных чисел.pas Normal file
View File

@@ -0,0 +1,14 @@
var a,dec,hun,one,k:integer;
begin
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
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.

12
PascalABCnet/div mod/цифры 2значного числа.pas Normal file
View File

@@ -0,0 +1,12 @@
var a,dec,hun,one:integer;
begin
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
writeln;
readln(a);
one:=a mod 10;
a:=a div 10;
dec:=a mod 10;
a:=a div 10;
writeln(dec);
writeln(one);
end.

15
PascalABCnet/div mod/цифры числа 2.pas Normal file
View File

@@ -0,0 +1,15 @@
var a,dec,hun,one:integer;
begin
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
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.

18
PascalABCnet/div mod/цифры числа.pas Normal file
View File

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

18
PascalABCnet/procedure&function/процедуры.pas Normal file
View File

@@ -0,0 +1,18 @@
program procedura;
var c:char;
//---------------------------------------------------
procedure zv; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
var i:integer; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
WriteLn('*******************************'); // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end;
//---------------------------------------------------
begin
c:='0';
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>? Y/N');
ReadLn(c);
If c = 'Y' then zv; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> zv;
end.

23
PascalABCnet/procedure&function/процедуры2.pas Normal file
View File

@@ -0,0 +1,23 @@
program procedura;
var r,r1,s2:integer;
//---------------------------------------------------
procedure zv(a,b:integer; var s:integer); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> s, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
s:=a+b; //<-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
WriteLn(a,' ',b);
end;
//------------------------------------------------
begin
r:=random(5000000);
r1:=random(5000000); // <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
WriteLn(r,' ',r1);
zv(r,r1,s2);
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> = ',s2);
end.

21
PascalABCnet/procedure&function/функции.pas Normal file
View File

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

11
PascalABCnet/while/While_task1.pas Normal file
View File

@@ -0,0 +1,11 @@
Program While_task_1;
Var a,b:integer;
Begin
ReadLn(b);
a:=1;
While ((a<b) or (a=b)) do
begin
WriteLn(a);
inc (a);
end;
end.

13
PascalABCnet/while/While_task3.pas Normal file
View File

@@ -0,0 +1,13 @@
Program While_Task3;
const n=5;
var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> 5');
ReadLn(a);
While a<>n do
begin
WriteLn ('<27><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>');
ReadLn(a);
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end.

15
PascalABCnet/while/While_task7.pas Normal file
View File

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

10
PascalABCnet/while/While_task8.pas Normal file
View File

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

13
PascalABCnet/while/while2.pas Normal file
View File

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

38
PascalABCnet/записи/записи.pas Normal file
View File

@@ -0,0 +1,38 @@
program zap;
type stud = record // record - <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
name : string;
year : record // <20> record`e record <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> :, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> =
D : 1..31;
M : string;
Y : integer;
end;
end;
var a :stud; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> a = <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> stud
begin
WriteLn('<27><><EFBFBD>');
ReadLn(a.name);
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>');
with a.year do begin // with <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ReadLn(D);
ReadLn(M);
ReadLn(Y);
end;
Case a.year.M of //<2F><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> a <20><><EFBFBD><EFBFBD><EFBFBD> <20><> - <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'1a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'2a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'3a' : a.year.M:='<27><><EFBFBD><EFBFBD>';
'4a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'5a' : a.year.M:='<27><><EFBFBD>';
'6a' : a.year.M:='<27><><EFBFBD><EFBFBD>';
'7a' : a.year.M:='<27><><EFBFBD><EFBFBD>';
'8a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'9a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'10' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'11' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
'12' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
WriteLn(a.name);
WriteLn(a.year.D,' ',a.year.M,' ',a.year.Y);
end.

13
PascalABCnet/массивы/бред.pas Normal file
View File

@@ -0,0 +1,13 @@
program summof30;
const n=30;
type My=array [1..30] of integer; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 30 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
var a: my;
s,i:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> ',n,' <20><><EFBFBD><EFBFBD><EFBFBD>');
for i:=1 to n do ReadLn(a[i]);//<2F><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [i], <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
s:=0;
for i:=1 to n do s:=s+a[i]; //<2F><><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> [i], <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
WriteLn(s);
end.

8
PascalABCnet/массивы/массив.pas Normal file
View File

@@ -0,0 +1,8 @@
program idea;
var m:array [1..10] of integer; // <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (!<21><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> 1 - 10!)
i:integer;
begin
WriteLn(m); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> 10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
m[2]:=2; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [2] <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 2
WriteLn(m); // <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 2
end.

25
PascalABCnet/массивы/сравнение char и массива с char.pas Normal file
View File

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

13
PascalABCnet/множества/множества.pas Normal file
View File

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

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.

6
PascalABCnet/параметр цикла for/for1.pas Normal file
View File

@@ -0,0 +1,6 @@
program for1;
var i,k,n:integer;
begin
Read(k,n);
For i:=1 to n do WriteLn(k);
end.

11
PascalABCnet/параметр цикла for/for2.pas Normal file
View File

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

6
PascalABCnet/параметр цикла for/for3.pas Normal file
View File

@@ -0,0 +1,6 @@
program for3;
var k,n,i:integer;
begin
Read(k,n);
For i:=k to n do WriteLn(k);
end.

11
PascalABCnet/параметр цикла for/for4.pas Normal file
View File

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

11
PascalABCnet/параметр цикла for/for5.pas Normal file
View File

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

11
PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas Normal file
View File

@@ -0,0 +1,11 @@
Program programma_kotoraia_smogla;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
Var x,y,z,a,b,c: Integer;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD>
Begin
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> 5 <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ReadLn(x,y,z,a,b);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
c:=x-y+z*(a+b);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "c"
WriteLn(c);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
{
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ctrl+ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
}
End.