Verfügbare Informationen zu "ergebnis immer null?"
Qualität des Beitrags: Beteiligte Poster: dragonstar - Dirty Oerty Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 5 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: ergebnis immer null? Letzte Antwort: vor 16 Jahren, 3 Monaten, 2 Tagen, 6 Stunden, 31 Minuten
Alle Beiträge und Antworten zu "ergebnis immer null?"
Re: ergebnis immer null?
dragonstar - 23.01.2008, 13:52ergebnis immer null?
also ich muss im rahmen meiner facharbeit ein selbst optimierendes programm prgrammieren...
aber irgendwas klappt net? naja vllt mag mal jmd drüberschaun was ich so falsch gemacht hab!
es ist für die Näherung des integrals von x*x mit hilfe der untersumme.
im grunde läuft es wohl richtig durch, da es am ende die nötigen teilintervalle n angibt, beispielsweise im interval [1;2] und der genauigkeit 0.0001 ist n= 2^14 = 16384
aber ergibt die untersumme als 0.000000000 an? also ka was da nicht stimmt!
hier is der quelltext:
program Untersumme;
uses crt;
var a, b, e, h :real;
U, s, u1 :real;
n, i, zaehler :longint;
function f(x:real) :real;
begin f:=sin(x) end;
procedure eingabe;
begin
writeln('Integral von f(x)=x^2) mithilfe der Untersumme');
write('Grenzen von a = '); readln(a);
write(' bis b = '); readln(b);
write('Geben sie die Genauigkeit ein!'); readln(e);
writeln;
end;
procedure berechnung1;
var x, u1 :real;
begin
u:=0;
repeat
u1:=u; zaehler:=zaehler+1;
n:=1;
for i:=0 to n-1 do begin
x:=a+i*h;
u1:=u1+f(x)
end;
u1:=u1*h; h:=h/2; n:=n*2;
until u1-u < e;
end;
begin
clrscr;
writeln;
eingabe;
h:=b-a; zaehler:=0;
berechnung1;
writeln('Untersumme = ',u1:1:12);
writeln('n = 2^',(zaehler-1));
readln;
end.
vielen dank!
lg
Re: ergebnis immer null?
dragonstar - 23.01.2008, 13:53
es muss natürlch bei funktion f:=x*x
heißen
funktioniert trotzdem net
Re: ergebnis immer null?
Dirty Oerty - 23.01.2008, 14:32
Hm, als erstes wären mal Codetags nützlich.
Re: ergebnis immer null?
dragonstar - 23.01.2008, 16:05
was sind denn codetags?
Re: ergebnis immer null?
Dirty Oerty - 23.01.2008, 16:28
Code: program Untersumme;
uses crt;
var a, b, e, h :real;
U, s, u1 :real;
n, i, zaehler :longint;
function f(x:real) :real;
begin f:=x*x end;
procedure eingabe;
begin
writeln('Integral von f(x)=x^2) mithilfe der Untersumme');
write('Grenzen von a = '); readln(a);
write(' bis b = '); readln(b);
write('Geben sie die Genauigkeit ein!'); readln(e);
writeln;
end;
procedure berechnung1;
var x, u1 :real;
begin
u:=0;
repeat
u1:=u; zaehler:=zaehler+1;
n:=1;
for i:=0 to n-1 do begin
x:=a+i*h;
u1:=u1+f(x)
end;
u1:=u1*h; h:=h/2; n:=n*2;
until u1-u < e;
end;
begin
clrscr;
writeln;
eingabe;
h:=b-a; zaehler:=0;
berechnung1;
writeln('Untersumme = ',u1:1:12);
writeln('n = 2^',(zaehler-1));
readln;
end.
So sieht das mit CodeTags aus
Für Codetags einfach sowas schreiben:
[_code_] HIER IST DER CODE [/_code_]
NUr ohne Unterstriche
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
Zähler in C - gepostet von mitti am Montag 14.05.2007
Knifflige fehler im kleinem programm - gepostet von aimheld am Samstag 23.09.2006
Variablen tauschen - gepostet von Joe am Samstag 03.11.2007
Turbo C Problem! (Umfrage nur nebenbei) - gepostet von ChillerT am Dienstag 06.02.2007
Tutorias für Grafiken in C - gepostet von mitti am Donnerstag 26.04.2007
Allokieren in PASCAL ? - gepostet von exbs am Montag 19.02.2007
Bilder - gepostet von BASIC am Mittwoch 31.05.2006
spätere jobs - gepostet von CRASH am Donnerstag 23.11.2006
UPN - gepostet von niki1 am Montag 14.01.2008
Turbo C - gepostet von Mei$ter A^ am Montag 24.04.2006
Ähnliche Beiträge wie "ergebnis immer null?"
Null- und Wenigposter - anamida (Freitag 28.04.2006)
immer diese scheiß zitate - Anonymous (Mittwoch 07.09.2005)
immer mal nen bissle was für die statistik tun - m00nchild (Donnerstag 23.11.2006)
1.22 - Immer wieder Mittwoch - ChantaL <3 (Donnerstag 26.10.2006)
Immer der selbe - west690 (Montag 02.07.2007)
Ergebnis-Thread - Lion from Klaa Paris (Dienstag 03.10.2006)
Immer wieder gut - Meli (Montag 06.11.2006)
Single für immer? - Takhisis (Dienstag 06.09.2005)
warum immer theorie?? - g®eg (Montag 30.01.2006)
Arbeit Arbeit Arbeit Immer nur Arbeit - Lilli (Mittwoch 21.02.2007)