LEKT771
FILE INFORMATION
FILENAME(S): LEKT771
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
9c3e425903b07d9eafad98ddfce448a5a04c45b0381220c1db0575be1a5be167
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL QUELLTEXT | LEKT771 | PRG | Curtcool, LPN | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 60 3C 24 00 FE 20 20 20 20 20 20 20 20 20 20 |.`<$.. |
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 31 28 49 4E 50 55 |AM LEKT771(INPU|
000000D0: 54 2C 4F 55 54 50 55 54 29 3B 20 20 20 20 20 20 |T,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 42 45 47 49 4E | BEGIN|
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 20 57 52 49 54 45 4C 4E | WRITELN|
000001F0: 28 22 43 4F 44 45 20 45 49 4E 47 45 42 45 4E 22 |("CODE EINGEBEN"|
00000200: 29 3B 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 52 45 41 44 4C 4E 28 43 4F 44 45 | READLN(CODE|
00000230: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |); |
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 49 46 20 43 4F 44 45 20 3C 3E 37 35 34 20 20 | IF CODE <>754 |
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 54 48 45 | THE|
000002A0: 4E 20 57 52 49 54 45 4C 4E 20 28 22 4B 45 49 4E |N WRITELN ("KEIN|
000002B0: 45 20 5A 55 47 41 4E 47 53 42 45 52 45 43 48 54 |E ZUGANGSBERECHT|
000002C0: 49 47 55 4E 47 22 29 20 20 20 20 20 20 20 20 20 |IGUNG") |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 45 4C 53 45 20 20 20 20 20 20 20 | ELSE |
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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 42 45 47 49 4E 20 20 20 20 | BEGIN |
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 57 52 49 54 45 20 28 22 46 41 4D | WRITE ("FAM|
00000410: 49 4C 49 45 4E 53 54 41 4E 44 2C 4C 45 44 49 47 |ILIENSTAND,LEDIG|
00000420: 3D 31 20 4F 44 45 52 20 56 45 52 48 2E 3D 32 2C |=1 ODER VERH.=2,|
00000430: 45 49 4E 47 45 42 45 4E 22 29 3B 20 20 20 20 20 |EINGEBEN"); |
00000440: 20 52 45 41 44 4C 4E 20 28 46 41 4D 49 4C 49 45 | READLN (FAMILIE|
00000450: 4E 53 54 41 4E 44 29 3B 20 20 20 20 20 20 20 20 |NSTAND); |
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 57 52 49 | WRI|
00000480: 54 45 20 28 22 4B 49 4E 44 45 52 5A 41 48 4C 20 |TE ("KINDERZAHL |
00000490: 41 4E 47 45 42 45 4E 20 20 22 29 3B 20 20 20 20 |ANGEBEN "); |
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 52 45 41 44 4C 4E 28 | READLN(|
000004C0: 4B 49 4E 44 45 52 29 3B 20 20 20 20 20 20 20 20 |KINDER); |
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 57 52 49 54 45 20 28 22 53 50 41 | WRITE ("SPA|
00000500: 52 4C 45 49 53 54 55 4E 47 20 41 4E 47 45 42 45 |RLEISTUNG ANGEBE|
00000510: 4E 20 20 44 4D 20 22 29 3B 20 20 20 20 20 20 20 |N DM "); |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 52 45 41 44 4C 4E 20 28 53 50 41 52 4C 45 49 | READLN (SPARLEI|
00000540: 53 54 55 4E 47 29 3B 20 20 20 20 20 20 20 20 20 |STUNG); |
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 45 4E 44 3B 20 | END; |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 42 45 47 49 4E 20 20 20 20 20 20 | BEGIN |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 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 49 46 20 46 41 4D 49 4C 49 45 4E 53 54 41 4E | IF FAMILIENSTAN|
00000630: 44 20 3D 31 20 20 20 20 20 20 20 20 20 20 20 20 |D =1 |
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 54 48 45 | THE|
00000660: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000680: 20 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 20 20 49 46 20 53 50 | IF SP|
000006A0: 41 52 4C 45 49 53 54 55 4E 47 3E 38 30 30 20 20 |ARLEISTUNG>800 |
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 20 20 20 20 54 48 45 4E 20 50 52 41 45 | THEN PRAE|
000006E0: 4D 49 45 3A 3D 20 38 30 30 2A 28 28 4B 49 4E 44 |MIE:= 800*((KIND|
000006F0: 45 52 2A 30 2E 30 32 29 2B 30 2E 31 34 29 20 20 |ER*0.02)+0.14) |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 20 45 4C 53 45 20 50 52 41 45 4D 49 45 3A | ELSE PRAEMIE:|
00000720: 3D 53 50 41 52 4C 45 49 53 54 55 4E 47 20 2A 28 |=SPARLEISTUNG *(|
00000730: 28 4B 49 4E 44 45 52 2A 30 2E 30 32 29 2B 30 2E |(KINDER*0.02)+0.|
00000740: 31 34 29 20 20 20 20 20 20 20 20 20 20 45 4C 53 |14) ELS|
00000750: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
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 20 20 49 46 20 53 50 | IF SP|
00000790: 41 52 4C 45 49 53 54 55 4E 47 20 3E 31 36 30 30 |ARLEISTUNG >1600|
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 20 20 54 48 45 4E 20 50 52 41 45 | THEN PRAE|
000007D0: 4D 49 45 3A 3D 31 36 30 30 2A 28 28 4B 49 4E 44 |MIE:=1600*((KIND|
000007E0: 45 52 2A 30 2E 30 32 29 2B 30 2E 31 34 29 20 20 |ER*0.02)+0.14) |
000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000800: 20 20 20 45 4C 53 45 20 50 52 41 45 4D 49 45 3A | ELSE PRAEMIE:|
00000810: 3D 53 50 41 52 4C 45 49 53 54 55 4E 47 2A 28 28 |=SPARLEISTUNG*((|
00000820: 4B 49 4E 44 45 52 2A 30 2E 30 32 29 2B 30 2E 31 |KINDER*0.02)+0.1|
00000830: 34 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |4) |
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 20 20 | END; |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008B0: 20 20 20 57 52 49 54 45 28 22 50 52 41 45 4D 49 | WRITE("PRAEMI|
000008C0: 45 20 20 20 44 4D 20 20 22 2C 50 52 41 45 4D 49 |E DM ",PRAEMI|
000008D0: 45 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |E); |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | E|
000008F0: 4E 44 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 |ND. |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 | |
.`<$..
<
>
PROGRAM LEKT
771(INPUT,OUTPUT);
VAR CODE, KINDER,SPARLEISTUNG,PRA
EMIE:REAL; FAMILIENSTAND
:INTEGER;
BEGIN
WRITELN("CODE EINGEBEN");
READLN(CODE
);
IF CODE <>754
THEN WRITEL
N ("KEINE ZUGANGSBERECHTIGUNG")
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