Erstellen einer Tabelle mit Sinus- und Cosinus Werten

[Kenny77]

Es geht eigentlich darum das ein leistungsschwacher Prozessor ( sagen wir für ne Maschine ) damit arbeiten kann und nicht zwingend ein Pentium4 für ne Bohrmaschine genutzt wird. falls du verstehst was ich meine

Nun zur Frage selbst :

Das mit der Tabelle (Index Vorzeichen) ist auch gut möglich aber irrelevant.
Denke du kannst das ruhigen gewissens auch so machen wie ich.
Er hat mir das auch abgezeichnet.

nur versuch es villeicht nicht mit

Code:

CosWert := v*sqrt(1-(SinWert*SinWert));

zu lösen, sondern versuch wie den Sinuswert auch den Cosinuswert aus der Tabelle zu lesen und zu berechnen.

Ähnlich wie ich es für das zeichnen gemacht habe

Code:

ySin := round(Ym-SinCos(x));
yCos := round(Ym-SinCos(x));

[hamptoncourt]

*lach* ja gut, ich verstehe was du meinst sehr anschauliches Beispiel

Ja, ich merk schon, ich bin halt doch mehr für Arbeiten in der Konstruktion geeignet (Berechnungen, Konstruieren etc.) als für den Bereich der Informatik ... Aber ist halt Pflicht :-/

Ja, habe das auch schon anders für mich umgesetzt. Hatte mir deinen Lösungsansatz durchgeguckt und es dann etwas abgeändert ... jetzt funzt es auch endlich mit der Tabelle ... jippiiiiii

Mit der Tabelle dachte ich auch eher, weil es explizit nochmal in der Aufgabenstellung erwähnt wurde :-S Werde es aber auch mal so versuchen

[Kenny77]

Schön das ich dir etwas helfen konnte.
Aber wie gesagt für die Prüfung ist es NOTWENDIG das selber zu machen und zu verstehen was passiert und warum etwas passiert.
Bei Fragen zu den Paktikas meld Dich einfach bei Kai im A-Zug.
Hab die Praktikumsaufgaben meist 2 Tage nach erscheinen schon fertig.

Gruß Kai

P.S. die nächste Aufgabe hab ich auch schon fertig

// @Admins -> Sry wegen dieser Unterhaltung im Forum

[hamptoncourt]

Manno ... jetzt läuft es doch wieder nicht Ich mache das glaub ich komplett falsch ... also er erstrellt die Datei, alles Super ... aber sobald ich in die Box nen Wert eingebe und auf den Button klicke, dass er das berechnen soll, kackt der ab ...

@ Kenny: Ich verstehe das auch nicht ganz, wie du das gemacht hast mit den Vorzeichen und so ... ne case Anweisung ist klar ... der guckt in welchem Quadranten und berechnet dann ob - oder + und so ... Aber der weiß doch in dieser Anweisung gar nicht, was x ist, oder???

Auf jeden Fall: Sobald ich den Button zum berechnen klicke, will er die Daten aus der TXT Datei auslesen. dann kommt aber gleich ein EConvertError:

" " is an invalid float

hmmm ... vielleicht habe ich es jetzt auch komplett falsch aufgebaut. Hier mal der Quelltext zum Auslesen der Daten ...

Delphi-Quellcode:

var
   s, c : String;
   x, v, i : Integer;
   rad, ErgSin, ErgCos : double;
begin
  assignfile(f,'Werte.txt');
  reset(f);

  for x:=0 to 900 do
   begin
    readln(f, s, c);
    sinWert[x] := strtofloat(s);
    cosWert[x] := strtofloat(c);
   end;

  closefile(f);

Hoffe, mir kann da noch jemand helfen ...

[hamptoncourt]

Update:
Wenn ich statt nur einer Tabelle 2 schreibe (eine mit nem Sinuswert, die anderen mit nem Cosinuswert) dann funktioniert alles ohne Probleme. Er schmeißt sogar die richtigen Werte raus ... voll cool ... aber warum funktioniert das nicht, wenn er daraus eine einzige Tabelle schreiben soll???

[Blup]

Mit "readln" werden vermutlich alle Zeichen bis zum Zeilenende in die erste String-Variable gelesen. Da bleibt für die zweite Variable nichts übrig.
Zwei Variablen in einer "readln"-Anweisung zu lesen funktioniert nur mit Variablen fester Länge.
Wie wird den die Datei erstellt?

[hamptoncourt]

Axo, ok ... ja, die Datei hatte ich auch mit writeln geschrieben ...