TURBO PASCAL, INTERVALL, MATHE, RECHNEN, RATIONAL, WURZEL
Hi,
ich arbeite zur Zeit an einem
Programm um Intervallschachtelungen für irrationale Zahlen zu erstellen, das ganze mit
Turbo Pascal, weil ich mich mit Programmieren nicht so gut auskenne, hab ich mit TP angefangen.
Ich weiß leider nicht, wie ich die grezen der Schachtelung am Anfang festlegen kann und wie das Programm sowohl Halbierungs-, Dezimal- und andere Schachtelungen machen kann!!!
Bitte Helfen!!!
Danke
Der Programmtext:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
| program intervalator;
uses crt;
var zahl, ziel, groesse, summe, mitte, quadrat, grenze1, grenze2, faktor: real;
begin
ClrScr;
Writeln ('Intervalator v1.00 Copyright by Holger Pigerl');
Writeln (' ');
Writeln (' ');
Writeln ('Mit welcher Zahl soll die Intervallschachtelung durchgefhrt werden?');
Readln (zahl);
Writeln (' ');
Writeln ('Wie klein soll das Intervall werden (z.B. 0.1, 0.001)?');
Readln (ziel);
Writeln (' ');
Writeln ('Was soll der Faktor fr die Verkleinerung der Intervalle sein?');
Readln (faktor);
Writeln (' ');
grenze1 := 3;
grenze2 := 4;
summe := grenze1 + grenze2;
groesse := grenze2 - grenze1;
While groesse >= ziel do
begin
mitte := summe / faktor;
quadrat := mitte * mitte;
If quadrat < zahl then grenze1 := mitte
else grenze2 := mitte;
Writeln (grenze1:15:10,'... < ', zahl:15:10,'... < ', grenze2:15:10,'...');
summe := grenze1 + grenze2;
groesse := grenze2 - grenze1;
end;
readln;
end. |
Moderiert von 
Christian S.: B- durch Delphi-Tags ersetzt.
