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

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.