LEKT772 P
FILE INFORMATION
FILENAME(S): LEKT772 P
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
73dc693c50abfbead467cbd6eeef177861b36eff95d0774dfa6e837c666d6813
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL QUELLTEXT | LEKT772 P | PRG | Curtcool, LPN | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 60 3C 34 00 FE 20 20 20 20 20 20 20 20 20 20 |.`<4.. |
00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 3C 20 20 20 20 20 20 20 20 20 20 20 20 | < |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3E 20 | > |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 50 52 4F 47 52 | PROGR|
000000C0: 41 4D 20 20 4C 45 4B 54 37 37 32 50 20 28 49 4E |AM LEKT772P (IN|
000000D0: 50 55 54 2C 4F 55 54 50 55 54 29 3B 20 20 20 20 |PUT,OUTPUT); |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 56 41 52 20 43 4F 44 45 2C | VAR CODE,|
00000100: 20 4B 49 4E 44 45 52 2C 53 50 41 52 4C 45 49 53 | KINDER,SPARLEIS|
00000110: 54 55 4E 47 2C 50 52 41 45 4D 49 45 3A 52 45 41 |TUNG,PRAEMIE:REA|
00000120: 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |L; |
00000130: 20 20 20 46 41 4D 49 4C 49 45 4E 53 54 41 4E 44 | FAMILIENSTAND|
00000140: 20 3A 49 4E 54 45 47 45 52 3B 20 20 20 20 20 20 | :INTEGER; |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 20 20 | BEGIN |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 22 43 4F | WRITELN("CO|
00000230: 44 45 20 45 49 4E 47 45 42 45 4E 22 29 3B 20 20 |DE EINGEBEN"); |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 52 45 41 44 4C 4E 28 43 4F 44 45 29 3B 20 20 | READLN(CODE); |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 | BEG|
000002A0: 49 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |IN |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 20 20 20 20 20 49 46 20 43 4F 44 45 | IF CODE|
000002E0: 20 3C 3E 37 35 34 20 20 20 20 20 20 20 20 20 20 | <>754 |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 54 48 45 4E 20 20 20 20 20 20 20 | THEN |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 57 52 49 54 45 4C 4E 20 28 22 4B 45 49 4E 45 20 |WRITELN ("KEINE |
000003A0: 5A 55 47 41 4E 47 53 42 45 52 45 43 48 54 49 47 |ZUGANGSBERECHTIG|
000003B0: 55 4E 47 22 29 3B 20 20 20 20 20 20 20 20 20 20 |UNG"); |
000003C0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 20 20 | END; |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 | ELS|
00000480: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B|
00000530: 45 47 49 4E 20 20 20 20 20 20 20 20 20 20 20 20 |EGIN |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 | WRI|
00000570: 54 45 20 28 22 46 41 4D 49 4C 49 45 4E 53 54 41 |TE ("FAMILIENSTA|
00000580: 4E 44 2C 4C 45 44 49 47 3D 31 20 4F 44 45 52 20 |ND,LEDIG=1 ODER |
00000590: 56 45 52 48 2E 3D 32 2C 45 49 4E 47 45 42 45 4E |VERH.=2,EINGEBEN|
000005A0: 22 29 3B 20 20 20 20 20 20 52 45 41 44 4C 4E 20 |"); READLN |
000005B0: 28 46 41 4D 49 4C 49 45 4E 53 54 41 4E 44 29 3B |(FAMILIENSTAND);|
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 57 52 49 54 45 20 28 22 4B 49 4E | WRITE ("KIN|
000005F0: 44 45 52 5A 41 48 4C 20 41 4E 47 45 42 45 4E 20 |DERZAHL ANGEBEN |
00000600: 20 22 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 | "); |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 20 52 45 41 44 4C 4E 28 4B 49 4E 44 45 52 29 3B | READLN(KINDER);|
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 | WRI|
00000660: 54 45 20 28 22 53 50 41 52 4C 45 49 53 54 55 4E |TE ("SPARLEISTUN|
00000670: 47 20 41 4E 47 45 42 45 4E 20 20 44 4D 20 22 29 |G ANGEBEN DM ")|
00000680: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; |
00000690: 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 20 | READLN |
000006A0: 28 53 50 41 52 4C 45 49 53 54 55 4E 47 29 3B 20 |(SPARLEISTUNG); |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 45 4E 44 3B 20 20 20 20 20 20 20 20 20 | END; |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 | BEG|
00000750: 49 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |IN |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 20 20 20 20 20 49 46 20 46 41 4D 49 | IF FAMI|
00000790: 4C 49 45 4E 53 54 41 4E 44 20 3D 31 20 20 20 20 |LIENSTAND =1 |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 20 20 20 20 20 54 48 45 4E 20 20 20 20 20 20 20 | THEN |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000800: 20 20 20 49 46 20 53 50 41 52 4C 45 49 53 54 55 | IF SPARLEISTU|
00000810: 4E 47 3E 38 30 30 20 20 20 20 20 20 20 20 20 20 |NG>800 |
00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 | T|
00000840: 48 45 4E 20 50 52 41 45 4D 49 45 3A 3D 20 38 30 |HEN PRAEMIE:= 80|
00000850: 30 2A 28 28 4B 49 4E 44 45 52 2A 30 2E 30 32 29 |0*((KINDER*0.02)|
00000860: 2B 30 2E 31 34 29 20 20 20 20 20 20 20 20 20 20 |+0.14) |
00000870: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 | ELSE |
00000880: 50 52 41 45 4D 49 45 3A 3D 53 50 41 52 4C 45 49 |PRAEMIE:=SPARLEI|
00000890: 53 54 55 4E 47 20 2A 28 28 4B 49 4E 44 45 52 2A |STUNG *((KINDER*|
000008A0: 30 2E 30 32 29 2B 30 2E 31 34 29 20 20 20 20 20 |0.02)+0.14) |
000008B0: 20 20 20 20 20 45 4C 53 45 20 20 20 20 20 20 20 | ELSE |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 49 46 20 53 50 41 52 4C 45 49 53 54 55 | IF SPARLEISTU|
00000900: 4E 47 20 3E 31 36 30 30 20 20 20 20 20 20 20 20 |NG >1600 |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 | T|
00000930: 48 45 4E 20 50 52 41 45 4D 49 45 3A 3D 31 36 30 |HEN PRAEMIE:=160|
00000940: 30 2A 28 28 4B 49 4E 44 45 52 2A 30 2E 30 32 29 |0*((KINDER*0.02)|
00000950: 2B 30 2E 31 34 29 20 20 20 20 20 20 20 20 20 20 |+0.14) |
00000960: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 | ELSE |
00000970: 50 52 41 45 4D 49 45 3A 3D 53 50 41 52 4C 45 49 |PRAEMIE:=SPARLEI|
00000980: 53 54 55 4E 47 2A 28 28 4B 49 4E 44 45 52 2A 30 |STUNG*((KINDER*0|
00000990: 2E 30 32 29 2B 30 2E 31 34 29 20 20 20 20 20 20 |.02)+0.14) |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009E0: 20 45 4E 44 3B 20 20 20 20 20 20 20 20 20 20 20 | END; |
000009F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A10: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 | WRITE|
00000A20: 28 22 50 52 41 45 4D 49 45 20 20 20 44 4D 20 20 |("PRAEMIE DM |
00000A30: 22 2C 50 52 41 45 4D 49 45 29 3B 20 20 20 20 20 |",PRAEMIE); |
00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A50: 20 20 20 20 20 20 20 45 4E 44 2E 20 20 20 20 20 | END. |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CE0: 20 20 20 20 20 20 20 20 20 20 20 | |
.`<4..
<
>
PROGRAM LEKT
772P (INPUT,OUTPUT);
VAR CODE, KINDER,SPARLEISTUNG,PRA
EMIE:REAL; FAMILIENSTAND
:INTEGER;
BEGIN
WRITELN("CO
DE EINGEBEN");
READLN(CODE);
BEGIN
IF CODE <>754
THEN
WRITELN
("KEINE ZUGANGSBERECHTIGUNG");
END;
ELSE
BEGIN
WRITE ("FAM
ILIENSTAND,LEDIG=1 ODER VERH.=2,EINGEBEN
"); READLN (FAMILIENSTAND);
WRITE ("KIN
DERZAHL ANGEBEN ");
READLN(KINDER);
WRITE ("SPA
RLEISTUNG ANGEBEN DM ");
READLN (SPARLEISTUNG);
END;
BEGIN
IF FAMILIENSTAND =1
THEN
IF SPARLEISTUNG>800
THEN PRAE
MIE:= 800*((KINDER*0.02)+0.14)
ELSE PRAEMIE:=SPARLEISTUNG *(
(KINDER*0.02)+0.14) ELSE
IF SPARLEISTUNG >1600
THEN PRAE
MIE:=1600*((KINDER*0.02)+0.14)
ELSE PRAEMIE:=SPARLEISTUNG*((
KINDER*0.02)+0.14)
END;
WRITE("PRAEMI
E DM ",PRAEMIE);
END.
> CLICK IMAGE PREVIEW FOR FULL MODAL