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

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.