Pi/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	\
2	1		π ist das Verhältnis des Umfangs eines Kreises zu seinem Durchmesser.\
3	2		Der Wert von π ist in etwa 3,14159265358979.\
4	3		Der Umfang eines Kreises wird enweder mit\
5	4		U = π (2 * r)\
6	5		oder mit\
7	6		U = π * d\
8	7		berechnet.\
9		-	\
	8	+
10	9		In Pascal ist pi eine Funktion, die den Wert von π zurückgibt.\
11		-	\
	10	+
12	11		π/4 ist das gleiche wie arctan(1).\
13		-	\
	12	+
14	13		Sämtliche Trigonometrische Funktionen (sin, cos, etc.) werden mit FPC im Bogenmass berechnet. Dies entspricht 360° = 2 * Pi.\
15		-	\
16		-	\
	14	+
17	15		Olaf 20:06, 20 November 2016 (CET)
18	16
19	17		## Pi hoch aufgelöst
20	18
21	19		Will man Pi sehr genau ausrechnen, kann man sich mit folgender Procedure behelfen.
22	20
23	21		``` pascal
24	22		program Project1;
25	23
26	24		uses
27	25		Crt;
28	26
29	27		var
30	28		stellen: integer;
31	29
32	30		procedure CalcPi;
33	31		var
34	32		r, p: string;
35	33		m, i, j, u, z: integer;
36	34
37	35		c: array of integer;
38	36		begin
39	37		SetLength(c, 10 * (Stellen + 1) div 3 + 1);
40	38		r := '';
41	39		p := '';
42	40		m := 10 * (Stellen + 1) div 3;
43	41		for i := 1 to m do begin
44	42		c[i] := 2;
45	43		end;
46	44		for j := 0 to Stellen do begin
47	45		if j mod 100 = 0 then begin
48	46		GotoXY(1, 1);
49	47		WriteLn('Stelle: ', j);
50	48		end;
51	49
52	50		u := 0;
53	51		for i := m downto 2 do begin
54	52		z := 10 * c[i] + u;
55	53		c[i] := z mod (i * 2 - 1);
56	54		u := z div (i * 2 - 1) * (i - 1);
57	55		end;
58	56		z := 10 * c[1] + u;
59	57		c[1] := z mod 10;
60	58		u := z div 10;
61	59		if u <= 8 then begin
62	60		r := r + p;
63	61		p := Chr(48 + u);
64	62		end;
65	63		if u = 9 then begin
66	64		p := p + Chr(48 + u);
67	65		end;
68	66		if u = 10 then begin
69	67		for i := 1 to Length(p) do begin
70	68		Val(p[i], z, u);
71	69		Inc(z);
72	70		if z = 10 then begin
73	71		z := 0;
74	72		end;
75	73		p[i] := Chr(48 + z);
76	74		end;
77	75		p := p + '0';
78	76		end;
79	77		end;
80	78		p := r[1] + '.' + Copy(r, 2, Length(r)) + p;
81	79		WriteLn(p);
82	80		SetLength(c, 0);
83	81		end;
84	82
85	83		begin
86	84		ClrScr;
87	85		Writeln('Bitte Stellen eingeben: ');
88	86		readln(stellen);
89	87		CalcPi;
90	88		end.
91	89		```
92	90
93	91		---
94	92		From the Free Pascal wiki, page "Pi/de", as it stood on 2018-02-11 after a change by Mathias, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
95	93		Category: Pascal/de

Back to history