Wertetabelle in Turbo Pascal

Catcher · Hält's aus hier Beiträge: 3

hallo,

ich weiss zwar nicht, ob ich hier richtig damit bin, aber ich schreib einfach mal drauf los.
Wir sollen in der Schule mit Turbo Pascal ein Programm schreiben, welches eine Wertetabelle ausgibt. vorher müssen ja die Werte von der funktion F(x) eingegeben werden.
Es soll sich um eine Kostenfunktion handeln. also ax³-bx²+c*+d.
Wie bekomme ich das jetzt hin??
Ich steh irgendwie voll auf dem Schlauch.
Für eure Hilfe wäre ich sehr dankbar.
VG

Moderiert von Christian S.: Topic aus VCL (Visual Component Library) verschoben am Di 06.12.2005 um 18:19

F34r0fTh3D4rk · Verfasst: Di 06.12.05 18:16

das hier ist ein delphi forum, mit turbo pascal kenn ich mich garnet aus, aber was genau bekommst du nicht hin ? die rechnung, die ausgabe ?

ich würds so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  a, b, c, d, x: integer;
begin
  for x:= 0 to 10 do
    writeln(inttostr(x) + ' / ' + inttostr(a*x*x*x-b*x*x+c*x*x+d));
end;

hansa · Beiträge: 3079 Erhaltene Danke: 9

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

readln (a);
readln (b);
readln (c);

Ergebnis := a*?? + ?????

writeln (Ergebnis);

Da diese Frage wohl gestellt wurde, weil vorher schon Variablen dran waren, dürfte der Rest wohl klar sein.

_________________
Gruß
Hansa

Kroni · Beiträge: 720 Win 98, Win ME, Win2k, Win XP D3 Pro

Nja, les doch einfach die Koeffizienten a, b, c, d ein...und dann machste mit ner Schleife
von minimalem x wert zu maximalen x wert mit der Schrittweite von 0,5 oder je nachdem was du haben willst....und berechnest dann den wert (einfach die Zahlen einstezen) und gibts das ganze dann aus....
was isn da so schwer dran?

Das Prinzip, die Befehle in Pascal oda wie?

Edit: Hmmm zu spät...naja mach ansatt Integer Variablen extended;-) gibt ja auch noch ungerade Koeffizienten^^

Catcher · Hält's aus hier Beiträge: 3

Anke für die schnellen antworten!!
Wie setzte ich denn die werte in die funktion ein?

ich lese den linken wert z.b. -5 und den rechten wert z.b. 5 ein
und schreibe dann:

markieren

Delphi-Quelltext

1:
2:
3:
4:

x:=-5
repeat
x := x+1
until x=5

oder wie?
Hmmm kein plan...

Moderiert von Christian S.: Delphi-Tags hinzugefügt.

Kroni · Beiträge: 720 Win 98, Win ME, Win2k, Win XP D3 Pro

Jo genauso kannst du das machen....oder du sagst

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

x:=minx;
repeat
wert:=a**x*x*x+b*x*x+......... //usw
x:=x+Schrittweite;
until (x>=maxx);

Dann musste natürlcih noch Schrittweite, minx, maxx und a,b,c,d einlesen....

dann hast du das ganze allgemein

Catcher · Hält's aus hier Beiträge: 3

Danke!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme