File indexing completed on 2024-05-12 04:02:11
0001 PROGRAM MKFILE; 0002 0003 USES crt,algebra; 0004 0005 TYPE dt = record e : record name : string [15]; 0006 zeichen : string [2]; 0007 ozahl : byte; 0008 amasse : string [9]; 0009 ent : array [1..4] of string [70] 0010 end; 0011 0012 c : record txt : array [1..10] of string [40]; 0013 radien : array [1..2] of string [6]; 0014 elneg : string [7]; 0015 kladung : string [5] 0016 end; 0017 0018 p : record smt : string [8]; 0019 sdt : string [8]; 0020 dichte : string [15]; 0021 volmol : string [13]; 0022 end; 0023 0024 u : record bio : array [1..13] of string [30]; 0025 hauf : array [1..4] of string [30]; 0026 geo : array [1..6] of string [30]; 0027 end; 0028 0029 s : record n : byte; 0030 bele : array [1..7] of byte; 0031 end; 0032 0033 i : record first : word; 0034 last : word; 0035 c1 : array [1..100] of byte; 0036 c2 : array [1..100] of byte; 0037 c3 : array [1..100] of byte; 0038 c4 : array [1..100] of byte; 0039 hzeit : array [1..100] of array [1..2] of string [7]; 0040 end; 0041 end; 0042 0043 cfg = record pse : string; 0044 bgi : string; 0045 info : string; 0046 end; 0047 0048 0049 VAR i : dt; 0050 h : file of dt; 0051 0052 t : cfg; 0053 u : file of cfg; 0054 0055 zstr : string; 0056 ozahl : byte; 0057 0058 PROCEDURE MKELEMENT (ozahl:byte); 0059 BEGIN CASE ozahl OF 0060 1 : i.e.name:='Wasserstoff'; 0061 2 : i.e.name:='Helium'; 0062 3 : i.e.name:='Lithium'; 0063 4 : i.e.name:='Beryllium'; 0064 5 : i.e.name:='Bor'; 0065 6 : i.e.name:='Kohlenstoff'; 0066 7 : i.e.name:='Stickstoff'; 0067 8 : i.e.name:='Sauerstoff'; 0068 9 : i.e.name:='Fluor'; 0069 10 : i.e.name:='Neon'; 0070 11 : i.e.name:='Natrium'; 0071 12 : i.e.name:='Magnesium'; 0072 13 : i.e.name:='Aluminium'; 0073 14 : i.e.name:='Silicium'; 0074 15 : i.e.name:='Phosphor'; 0075 16 : i.e.name:='Schwefel'; 0076 17 : i.e.name:='Chlor'; 0077 18 : i.e.name:='Argon'; 0078 19 : i.e.name:='Kalium'; 0079 20 : i.e.name:='Calzium'; 0080 21 : i.e.name:='Scandium'; 0081 22 : i.e.name:='Titan'; 0082 23 : i.e.name:='Vanadium'; 0083 24 : i.e.name:='Chrom'; 0084 25 : i.e.name:='Mangan'; 0085 26 : i.e.name:='Eisen'; 0086 27 : i.e.name:='Cobalt'; 0087 28 : i.e.name:='Nickel'; 0088 29 : i.e.name:='Kupfer'; 0089 30 : i.e.name:='Zink'; 0090 31 : i.e.name:='Gallium'; 0091 32 : i.e.name:='Germanium'; 0092 33 : i.e.name:='Arsen'; 0093 34 : i.e.name:='Selen'; 0094 35 : i.e.name:='Brom'; 0095 36 : i.e.name:='Krypton'; 0096 37 : i.e.name:='Rubidium'; 0097 38 : i.e.name:='Strontium'; 0098 39 : i.e.name:='Yttrium'; 0099 40 : i.e.name:='Zirconium'; 0100 41 : i.e.name:='Niob'; 0101 42 : i.e.name:='Molybd„n'; 0102 43 : i.e.name:='Technetium'; 0103 44 : i.e.name:='Ruthenium'; 0104 45 : i.e.name:='Rhodium'; 0105 46 : i.e.name:='Paladium'; 0106 47 : i.e.name:='Silber'; 0107 48 : i.e.name:='Cadmium'; 0108 49 : i.e.name:='Indium'; 0109 50 : i.e.name:='Zinn'; 0110 51 : i.e.name:='Antimon'; 0111 52 : i.e.name:='Tellur'; 0112 53 : i.e.name:='Iod'; 0113 54 : i.e.name:='Xenon'; 0114 55 : i.e.name:='Caesium'; 0115 56 : i.e.name:='Barium'; 0116 57 : i.e.name:='Lanthan'; 0117 58 : i.e.name:='Cer'; 0118 59 : i.e.name:='Praseodym'; 0119 60 : i.e.name:='Neodym'; 0120 61 : i.e.name:='Promelthium'; 0121 62 : i.e.name:='Samarium'; 0122 63 : i.e.name:='Europium'; 0123 64 : i.e.name:='Gadolinium'; 0124 65 : i.e.name:='Terbium'; 0125 66 : i.e.name:='Dysprosium'; 0126 67 : i.e.name:='Holmiuim'; 0127 68 : i.e.name:='Erbium'; 0128 69 : i.e.name:='Thulium'; 0129 70 : i.e.name:='Ytterbium'; 0130 71 : i.e.name:='Lutetium'; 0131 72 : i.e.name:='Hafnium'; 0132 73 : i.e.name:='Tanal'; 0133 74 : i.e.name:='Wolfram'; 0134 75 : i.e.name:='Rhenium'; 0135 76 : i.e.name:='Osmium'; 0136 77 : i.e.name:='Iridium'; 0137 78 : i.e.name:='Platin'; 0138 79 : i.e.name:='Gold'; 0139 80 : i.e.name:='Quecksilber'; 0140 81 : i.e.name:='Thalium'; 0141 82 : i.e.name:='Blei'; 0142 83 : i.e.name:='Wissmut'; 0143 84 : i.e.name:='Polonium'; 0144 85 : i.e.name:='Astat'; 0145 86 : i.e.name:='Radon'; 0146 87 : i.e.name:='Francium'; 0147 88 : i.e.name:='Radium'; 0148 89 : i.e.name:='Actinium'; 0149 90 : i.e.name:='Thorium'; 0150 91 : i.e.name:='Protactinium'; 0151 92 : i.e.name:='Uran'; 0152 93 : i.e.name:='Neptunium'; 0153 94 : i.e.name:='Plutonium'; 0154 95 : i.e.name:='Americum'; 0155 96 : i.e.name:='Curium'; 0156 97 : i.e.name:='Berkelium'; 0157 98 : i.e.name:='Californium'; 0158 99 : i.e.name:='Einsteinium'; 0159 100 : i.e.name:='Fermium'; 0160 101 : i.e.name:='Mendelevium'; 0161 102 : i.e.name:='Nobelium'; 0162 103 : i.e.name:='Lawrencium'; 0163 104 : i.e.name:='Rutherfordium'; 0164 105 : i.e.name:='Dubnium'; 0165 END; 0166 0167 CASE ozahl OF 0168 1 : i.e.zeichen:='H'; 0169 2 : i.e.zeichen:='He'; 0170 3 : i.e.zeichen:='Li'; 0171 4 : i.e.zeichen:='Be'; 0172 5 : i.e.zeichen:='B'; 0173 6 : i.e.zeichen:='C'; 0174 7 : i.e.zeichen:='N'; 0175 8 : i.e.zeichen:='O'; 0176 9 : i.e.zeichen:='F'; 0177 10 : i.e.zeichen:='Ne'; 0178 11 : i.e.zeichen:='Na'; 0179 12 : i.e.zeichen:='Mg'; 0180 13 : i.e.zeichen:='Al'; 0181 14 : i.e.zeichen:='Si'; 0182 15 : i.e.zeichen:='P'; 0183 16 : i.e.zeichen:='S'; 0184 17 : i.e.zeichen:='Cl'; 0185 18 : i.e.zeichen:='Ar'; 0186 19 : i.e.zeichen:='K'; 0187 20 : i.e.zeichen:='Sa'; 0188 21 : i.e.zeichen:='Sc'; 0189 22 : i.e.zeichen:='Ti'; 0190 23 : i.e.zeichen:='V'; 0191 24 : i.e.zeichen:='Cr'; 0192 25 : i.e.zeichen:='Mn'; 0193 26 : i.e.zeichen:='Fe'; 0194 27 : i.e.zeichen:='Co'; 0195 28 : i.e.zeichen:='Ni'; 0196 29 : i.e.zeichen:='Cu'; 0197 30 : i.e.zeichen:='Zn'; 0198 31 : i.e.zeichen:='Ga'; 0199 32 : i.e.zeichen:='Ge'; 0200 33 : i.e.zeichen:='As'; 0201 34 : i.e.zeichen:='Se'; 0202 35 : i.e.zeichen:='Br'; 0203 36 : i.e.zeichen:='Kr'; 0204 37 : i.e.zeichen:='Rb'; 0205 38 : i.e.zeichen:='Sr'; 0206 39 : i.e.zeichen:='Y'; 0207 40 : i.e.zeichen:='Zr'; 0208 41 : i.e.zeichen:='Nb'; 0209 42 : i.e.zeichen:='Mo'; 0210 43 : i.e.zeichen:='Tc'; 0211 44 : i.e.zeichen:='Ru'; 0212 45 : i.e.zeichen:='Rh'; 0213 46 : i.e.zeichen:='Pd'; 0214 47 : i.e.zeichen:='Ag'; 0215 48 : i.e.zeichen:='Cd'; 0216 49 : i.e.zeichen:='In'; 0217 50 : i.e.zeichen:='Sn'; 0218 51 : i.e.zeichen:='Sb'; 0219 52 : i.e.zeichen:='Te'; 0220 53 : i.e.zeichen:='I'; 0221 54 : i.e.zeichen:='Xe'; 0222 55 : i.e.zeichen:='Cs'; 0223 56 : i.e.zeichen:='Ba'; 0224 57 : i.e.zeichen:='La'; 0225 58 : i.e.zeichen:='Ce'; 0226 59 : i.e.zeichen:='Pr'; 0227 60 : i.e.zeichen:='Nd'; 0228 61 : i.e.zeichen:='Pm'; 0229 62 : i.e.zeichen:='Sm'; 0230 63 : i.e.zeichen:='Eu'; 0231 64 : i.e.zeichen:='Gd'; 0232 65 : i.e.zeichen:='Tb'; 0233 66 : i.e.zeichen:='Dy'; 0234 67 : i.e.zeichen:='Ho'; 0235 68 : i.e.zeichen:='Er'; 0236 69 : i.e.zeichen:='Tm'; 0237 70 : i.e.zeichen:='Yb'; 0238 71 : i.e.zeichen:='Lu'; 0239 72 : i.e.zeichen:='Hf'; 0240 73 : i.e.zeichen:='Ta'; 0241 74 : i.e.zeichen:='W'; 0242 75 : i.e.zeichen:='Re'; 0243 76 : i.e.zeichen:='Os'; 0244 77 : i.e.zeichen:='Ir'; 0245 78 : i.e.zeichen:='Pt'; 0246 79 : i.e.zeichen:='Au'; 0247 80 : i.e.zeichen:='Hg'; 0248 81 : i.e.zeichen:='Tl'; 0249 82 : i.e.zeichen:='Pb'; 0250 83 : i.e.zeichen:='Bi'; 0251 84 : i.e.zeichen:='Po'; 0252 85 : i.e.zeichen:='At'; 0253 86 : i.e.zeichen:='Rn'; 0254 87 : i.e.zeichen:='Fr'; 0255 88 : i.e.zeichen:='Ra'; 0256 89 : i.e.zeichen:='Ac'; 0257 90 : i.e.zeichen:='Th'; 0258 91 : i.e.zeichen:='Pa'; 0259 92 : i.e.zeichen:='U'; 0260 93 : i.e.zeichen:='Np'; 0261 94 : i.e.zeichen:='Pu'; 0262 95 : i.e.zeichen:='Am'; 0263 96 : i.e.zeichen:='Cm'; 0264 97 : i.e.zeichen:='Bk'; 0265 98 : i.e.zeichen:='Cf'; 0266 99 : i.e.zeichen:='Es'; 0267 100 : i.e.zeichen:='Fm'; 0268 101 : i.e.zeichen:='Md'; 0269 102 : i.e.zeichen:='No'; 0270 103 : i.e.zeichen:='Lr'; 0271 104 : i.e.zeichen:='Rf'; 0272 105 : i.e.zeichen:='Db'; 0273 END; 0274 END; 0275 0276 PROCEDURE MKBELE (ozahl:byte); 0277 BEGIN IF (ozahl>2) THEN i.s.bele[1]:=2; 0278 0279 IF (ozahl>9) THEN i.s.bele[2]:=8; 0280 0281 IF (ozahl>28) THEN i.s.bele[3]:=18; 0282 0283 IF (ozahl>69) THEN i.s.bele[4]:=32; 0284 0285 IF (ozahl>87) THEN i.s.bele[7]:=2; 0286 0287 IF (ozahl>0) and (ozahl<3) THEN BEGIN i.s.n:=1; 0288 i.s.bele[1]:=ozahl; 0289 END; 0290 0291 IF (ozahl>2) and (ozahl<11) THEN BEGIN i.s.n:=2; 0292 i.s.bele[2]:=ozahl-2; 0293 END; 0294 0295 IF (ozahl>10) and (ozahl<19) THEN BEGIN i.s.n:=3; 0296 i.s.bele[3]:=ozahl-10; 0297 END; 0298 0299 IF (ozahl>18) and (ozahl<21) THEN BEGIN i.s.n:=4; 0300 i.s.bele[3]:=8; 0301 i.s.bele[4]:=ozahl-18; 0302 END; 0303 0304 IF (ozahl>20) and (ozahl<24) THEN BEGIN i.s.n:=4; 0305 i.s.bele[3]:=ozahl-12; 0306 i.s.bele[4]:=2; 0307 END; 0308 0309 IF (ozahl=24) THEN BEGIN i.s.n:=4; 0310 i.s.bele[3]:=13; 0311 i.s.bele[4]:=1; 0312 END; 0313 0314 IF (ozahl>24) and (ozahl<29) THEN BEGIN i.s.n:=4; 0315 i.s.bele[3]:=ozahl-12; 0316 i.s.bele[4]:=2; 0317 END; 0318 0319 IF (ozahl>28) and (ozahl<37) THEN BEGIN i.s.n:=4; 0320 i.s.bele[4]:=ozahl-28; 0321 END; 0322 0323 IF (ozahl>36) and (ozahl<39) THEN BEGIN i.s.n:=5; 0324 i.s.bele[4]:=8; 0325 i.s.bele[5]:=ozahl-36; 0326 END; 0327 0328 IF (ozahl>38) and (ozahl<41) THEN BEGIN i.s.n:=5; 0329 i.s.bele[4]:=ozahl-30; 0330 i.s.bele[5]:=2; 0331 END; 0332 0333 IF (ozahl>40) and (ozahl<46) THEN BEGIN i.s.n:=5; 0334 i.s.bele[4]:=ozahl-29; 0335 i.s.bele[5]:=1; 0336 END; 0337 0338 IF (ozahl=46) THEN BEGIN i.s.n:=4; 0339 i.s.bele[4]:=18; 0340 END; 0341 0342 IF (ozahl>46) and (ozahl<55) THEN BEGIN i.s.n:=5; 0343 i.s.bele[4]:=18; 0344 i.s.bele[5]:=ozahl-46; 0345 END; 0346 0347 IF (ozahl>54) and (ozahl<57) THEN BEGIN i.s.n:=6; 0348 i.s.bele[4]:=18; 0349 i.s.bele[5]:=8; 0350 i.s.bele[6]:=ozahl-54; 0351 END; 0352 0353 IF (ozahl=57) or (ozahl=64) THEN BEGIN i.s.n:=6; 0354 i.s.bele[4]:=ozahl-39; 0355 i.s.bele[5]:=9; 0356 i.s.bele[6]:=2; 0357 END; 0358 0359 IF ((ozahl>57) and (ozahl<64)) or ((ozahl>64) and (ozahl<71)) 0360 THEN BEGIN i.s.n:=6; 0361 i.s.bele[4]:=ozahl-38; 0362 i.s.bele[5]:=8; 0363 i.s.bele[6]:=2; 0364 END; 0365 0366 IF (ozahl=64) THEN BEGIN i.s.n:=6; 0367 i.s.bele[4]:=25; 0368 i.s.bele[5]:=9; 0369 i.s.bele[6]:=2; 0370 END; 0371 0372 IF (ozahl>70) and (ozahl<78) THEN BEGIN i.s.n:=6; 0373 i.s.bele[5]:=ozahl-62; 0374 i.s.bele[6]:=2; 0375 END; 0376 0377 IF (ozahl>77) and (ozahl<80) THEN BEGIN i.s.n:=6; 0378 i.s.bele[5]:=ozahl-61; 0379 i.s.bele[6]:=1; 0380 END; 0381 0382 IF (ozahl>79) and (ozahl<87) THEN BEGIN i.s.n:=6; 0383 i.s.bele[5]:=18; 0384 i.s.bele[6]:=ozahl-78; 0385 END; 0386 0387 IF (ozahl>86) and (ozahl<89) THEN BEGIN i.s.n:=7; 0388 i.s.bele[5]:=18; 0389 i.s.bele[6]:=8; 0390 i.s.bele[7]:=ozahl-86; 0391 END; 0392 0393 IF (ozahl>88) and (ozahl<91) THEN BEGIN i.s.n:=7; 0394 i.s.bele[5]:=18; 0395 i.s.bele[6]:=ozahl-80; 0396 END; 0397 0398 IF ((ozahl>90) and (ozahl<94)) or (ozahl=96) 0399 THEN BEGIN i.s.n:=7; 0400 i.s.bele[5]:=ozahl-71; 0401 i.s.bele[6]:=9; 0402 END; 0403 0404 IF (ozahl>93) and (ozahl<96) THEN BEGIN i.s.n:=7; 0405 i.s.bele[5]:=ozahl-70; 0406 i.s.bele[6]:=8; 0407 END; 0408 0409 IF (ozahl>96) and (ozahl<103) THEN BEGIN i.s.n:=7; 0410 i.s.bele[5]:=ozahl-70; 0411 i.s.bele[6]:=8; 0412 END; 0413 0414 IF (ozahl>102) and (ozahl<106) THEN BEGIN i.s.n:=7; 0415 i.s.bele[5]:=32; 0416 i.s.bele[6]:=ozahl-94; 0417 END; 0418 END; 0419 0420 BEGIN Assign (u,'install.cfg'); 0421 Reset (u); 0422 Read (u,t); 0423 Close (u); 0424 0425 clrscr; 0426 0427 FOR ozahl:=1 TO 105 DO 0428 BEGIN INTSTR(ozahl,zstr); 0429 0430 assign (h,t.info + zstr + '.pse'); 0431 write (t.info + zstr + '.pse'); 0432 rewrite (h); 0433 reset (h); 0434 0435 i.e.ozahl:=ozahl; 0436 MKELEMENT(ozahl); 0437 MKBELE(ozahl); 0438 0439 write (h,i); 0440 close (h); 0441 0442 Writeln ('.......Erstellt'); 0443 END; 0444 readkey; 0445 END.