Directory of image this file is from
This file as a plain text file
PROGRAM TANZPARTNERWAHL(IN,OUT);
CONST MAX=20;N=10;
TYPE STRING=ARRAY [1..MAX] OF CHAR;
EHELEUTE=ARRAY [1..N] OF STRING;
PAAR=ARRAY [1..10] OF INTEGER;
VAR HERR:EHELEUTE;DAME:PAAR;I,ANZAHL,Z:INTEGER;
PROCEDURE TREAD(VAR TEXT:STRING);
VAR I:INTEGER;
BEGIN
I:=1;
REPEAT
READ(TEXT[I]);
I:=I+1
UNTIL EOLN OR (I=MAX);
TEXT[I]:="@"
END;
PROCEDURE TWRITE(VAR TEXT:STRING);
VAR I:INTEGER;
BEGIN
I:=1;
REPEAT
WRITE(TEXT[I]);
I:=I+1
UNTIL TEXT[I]="@"
END;
FUNCTION ZUFALL(A,B:INTEGER):INTEGER;
BEGIN
ZUFALL:=TRUNC(RANDOM*(B-A))+1+A
END;
PROCEDURE TAUSCH(VAR O,P:INTEGER);
VAR Q:INTEGER;
BEGIN
Q:=O;O:=P;P:=Q
END;
PROCEDURE MISCHEN(VAR DAME:PAAR);
VAR I,WAHL:INTEGER;
BEGIN
FOR I:=1 TO ANZAHL-1 DO BEGIN
WAHL:=ZUFALL(I,ANZAHL);
WRITELN(WAHL);
TAUSCH(DAME[I],DAME[WAHL]);
END;
END;
BEGIN
WRITE("ANZAHL EHELEUTE?");READLN;READ(ANZAHL);
FOR I:=1 TO ANZAHL DO BEGIN
WRITELN("GEBEN SIE DEN NAMEN",I,".PAAR EIN");READLN;
TREAD(HERR[I]) END;
FOR I:=1 TO ANZAHL DO BEGIN
DAME[I]:=I;
MISCHEN(DAME);
WRITELN(DAME[I]);WRITELN(I);
END;
FOR I:=1 TO ANZAHL DO BEGIN
WRITELN("HERR ");TWRITE(HERR[I]);
Z:=DAME[I];
WRITE(" TANZT MIT FRAU ");TWRITE(HERR[Z])
END
END.
);
WRITE ("DRUCKUNTERSCHIED WIRD BERECHNET!");WRITELN;
H:=Z*0.98;
TM:=T+(0.325*H/100);
DP:=EXP((G*H)/(RL*TM)-1)*L;
LK:=L+DP;
WRITE ("GENAUERE ORTSHOEHE WIRD BERECHNET!");WRITELN;
P0:=DP+L;
HN:=18400*(1+AL*T)*LN(P0/L)/LN(10);
WRITELN("AUSGANGSWERTE:");
WRITELN("_________________________________________________");
WRITELN("SCHWEREBESCHLEUNIGUNG:",G:10:7," M/S2");
WRITELN("LUFTTEMPERATUR :",T:5:1," GRAD CELSIUS");
WRITELN("LUFTDRUCK ORTSHOEHE :",L:10:2," MBAR");
WRITELN("_________________________________________________");
WRITELN("LUFTDRUCK KORRIGIERT :",LK:10:2," MBAR");
WRITELN("ORTSHOEHE :",HN:8:1," M");
END.
PROGRAM SIEBZEHNUNDVIER(INPUT,OUTPUT);
TYPE STAPEL=ARRAY[1..32]OF INTEGER;
PLAYERS=ARRAY[1..5]OF INTEGER;
VAR KARTE:STAPEL;
SPIELER:PLAYERS;
ANTWORT:CHAR;
I,BEST,ANZAHLSPIELER,KARTENANZAHL:INTEGER;
PROCEDURE TAUSCHE (VAR X,Y:INTEGER);
VAR Z:INTEGER;
BEGIN Z:=X;X:=Y;Y:=Z END;
PROCEDURE AUSGANGSBELEGUNG (VAR KARTE:STAPEL);
VAR I:INTEGER;
BEGIN
FOR I:=1 TO 4 DO
BEGIN KARTE[I]:=2;KARTE[I+4]:=3;
KARTE[I+8]:=4;KARTE[I+12]:=7;
KARTE[I+16]:=8;KARTE[I+20]:=9;
KARTE[I+24]:=10;KARTE[I+28]:=11
END
END;
PROCEDURE MISCHEN (VAR KARTE:STAPEL);
VAR I:INTEGER;
BEGIN
WRITELN("MOMENT,ICH MUSS JETZT DIE KARTEN MISCHEN!");
FOR I:=1 TO 100 DO TAUSCHE(KARTE[32],KARTE[TRUNC(32*RANDOM)+1])
END;
PPROGRAM BELZ(IN,OUT);
CONST D=76;F=1200;A=70;
VAR F0,V,ASA,B,T:REAL;Z:INTEGER;
BEGIN
WRITE("F OK");READLN;READ(F0);
WRITE("ASA");READLN;READ(ASA);
WRITE("B");READLN;READ(B);
V:=A*F/(D*F0);
T:=V*V/(ASA*B);
IF T>1 THEN WRITELN("BT=",ROUND(T)," S") ELSE
WRITELN("BT= 1/",ROUND(1/T),"S");
END.
Messier-Catalog
Aequ:1975
M RA Dec Mag
h/m * '
1 0533 2200 8 PNEB.
2 2132 -0058 6 GL.CL.
3 1341 2832 6 GL.CL.
4 1622 -2627 6 GL.CL.
5 1517 0212 6 GL.CL.
6 1738 -3212 5 OP.CL.
7 1753 -3448 5 OP.CL.
8 1802 -2420 7 DNEB.
9 1717 -1829 7 GL.CL.
10 1656 -0404 7 GL.CL.
11 1849 -0618 6 OP.CL.
12 1646 -0154 7 GL.CL.
13 1641 3630 6 GL.CL.
14 1736 -0314 8 GL.CL.
15 2132 1202 6 GL.CL.
16 1817 -1347 6 OP.CL.
17 1818 -1611 8 DNEB.
18 1818 -1708 8 OP.CL.
19 1701 -2613 7 GL.CL.
20 1800 -2302 6 DNEB.
21 1803 -2230 7 OP.CL.
22 1834 -2537 6 GL.CL.
23 1755 -1901 7 OP.CL.
24 1817 -1826 5 OP.CL.
25 1830 -1916 - OP.CL.
26 1844 -0926 9 OP.CL.
27 1958 2238 8 PNEB.
28 1823 -2453 7 GL.CL.
29 2023 3825 7 OP.CL.
30 2139 -2320 8 GL.CL.
31 0041 4107 5 SP.GX.
32 0041 4043 9 EL.GX.
33 0132 3030 7 SP.GX.
34 0240 4239 6 OP.CL.
35 0607 2420 5 OP.CL.
36 0533 3408 6 OP.CL.
37 0550 3233 6 OP.CL.
38 0527 3549 7 OP.CL.
39 2132 4818 6 OP.CL.
40 - - - -
41 0646 -2044 5 OP.CL.
42 0534 -0524 6 DNEB.
43 0534 -0517 9 DNEB.
44 0838 1948 4 OP.CL.
45 0345 2402 2 OP.CL.
46 0741 -1445 6 OP.CL.
47 - - - -
48 0812 -0148 - OP.CL.
49 1228 0809 9 EL.GX.
50 0702 -0818 6 OP.CL.
51 1329 4721 8 SP.GX.
52 2323 6126 7 OP.CL.
53 1312 1820 8 GL.CL.
54 1853 -3031 8 GL.CL.
55 1938 -3100 5 GL.CL.
56 1916 3007 8 GL.CL.
57 1853 3300 9 PNEB.
58 1235 1158 9 SP.GX.
59 1241 1148 10 EL.GX.
60 1242 1143 9 EL.GX.
61 1220 0438 10 SP.GX.
62 1659 -3005 7 GL.CL.
63 1315 4211 10 SP.GX.
64 1255 2141 9 SP.GX.
65 1117 1317 9 SP.GX.
66 1119 1310 8 SP.GX.
67 0849 1155 6 OP.CL.
68 1238 -2636 8 GL.CL.
69 1829 -3222 9 GL.CL.
70 1841 -3220 10 GL.CL.
71 1952 1836 9 GL.CL.
72 2052 -1239 10 GL.CL