Add Pascal learning files

2025-11-20 21:18:32 +02:00
parent 1ce193cc0d
commit 258f24570a
37 changed files with 587 additions and 0 deletions
@@ -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.