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.