PI

[stho]

Zitat von Medium:

Zitat von -Ptype-:

potenzen [...] mit nem string lösen

Dafür allein gehört er schon erschossen!

lass ihn doch Ich meine, wer versucht mit einem Besen zu fliegen bekommt kopfschmerzen
(Sturz auf den kopf tut nunmal weh ^^)

und wer versucht potenzen mit nem String zu lösen, der kriegt auch kopfschmerzen ^^
(nur in diesem fall auf eine andere art und weise )

[Medium]

Und wer sowas Schülern bei bringt, gehört erschossen.

[stho]

okay, da hast du recht

[Mithrandir]

Wir wollen hier aber nicht aktiv zur Gewalt aufrufen.

[Wolfgang Mix]

Lehrermord führt zu lebenslanger Haftstrafe, also gut überlegen

[-Ptype-]

Aja mein lehrer ist halt nicht der beste xD aber trotzdem war das jetzt mit den Potenzen nicht so schwer

Delphi-Quellcode:

begin
               n := 1; y:= zahl;
             repeat
               n := n+1;
               zahl := zahl * y;
             until n = zahl2;
             end;

[himitsu]

Zitat:

potenzen [...] mit nem string lösen

http://www.delphipraxis.net/internal...t.php?t=159592

Alles ist möglich, aber nicht grade effektiv und schnell.
Im Prinzip entspricht es dem, wie man es auch mit Stift und Zettel per Hand/Kopf lösen könnte.

Bei der Trial sind wohl keine Quellcodes dabei, aber die DCUs sind es und somit kann man die Unit Math auch einbinden/benutzen.


Aber mal ganz im Enst, wenn ihr grade mal vor einer Woche mit Delphi angefangen habt,
würde ich als Lehrer nicht jetzt schon mit sowas anfangen, sondern erstmal die wichtigsten Grundlagen, sowie das Debuggen lehren.
Auch wenn das wohl nicht grade ein spannendes Thema ist, aber IMHO gehört es dazu und ohne kann man eigentlich nicht "richtig" machen.

Zitat von Wolfgang Mix:

Lehrermord führt zu lebenslanger Haftstrafe, also gut überlegen

Moin Herr Lehrer,
ich dachte da kommt man Aufgrund besonderer Umstände und duch die Jahrelang ertragenen seelischen Grausamkeiten, auf Bewährung davon?

Zitat:

Delphi-Quellcode:

n := 1;
y:= zahl; 
repeat
  n := n+1;
  zahl := zahl * y;
until n = zahl2;

Versuch es mal mit einer While-Schlife, denn versuch mit deinem Code mal die Potenz 1 auszurechnen.
Wobei die Potenz 0 und alle Negativen auch noch nicht behandelt werden.

Delphi-Quellcode:

if zahl2 < 0 then
begin
  // hier einfach mal eine Fehlermeldung ausgeben
end
  if zahl2 > 0 then
  begin
    n := 1;
    y := zahl; 
    while n < zahl2 do
    begin
      zahl := zahl * y;
      n := n + 1;
    end;
  end
  else
    zahl := 1

[-Ptype-]

Zitat:

Aber mal ganz im Enst, wenn ihr grade mal vor einer Woche mit Delphi angefangen habt,
würde ich als Lehrer nicht jetzt schon mit sowas anfangen, sondern erstmal die wichtigsten Grundlagen, sowie das Debuggen lehren.
Auch wenn das wohl nicht grade ein spannendes Thema ist, aber IMHO gehört es dazu und ohne kann man eigentlich nicht "richtig" machen.

Sorry falls ich dumm frage aber was ist Debuggen? Vllt hab ichs schon gemacht weiß nur nicht was das heißt:S
Zudem haben wir zu Beginn eine Ampel programmiert so zum Einstieg und jetzt erst sind wir bei dem T-rechner.
Insgesamt hatt ich jetzt ca. 6 Schulstunden Informatik in dem es ums Programieren geht/ging und seit dem wir auch mit Delphi angefangen haben.

Achja und das ich soviele Fragen stelle ist nicht unbedingt für die Schule, denn das was ich für die Schule brauchte war einfach nur mit ner Schleife zu potenzieren weiter nichts. Das mit Pi, Sinus, Cosinus etc. mach ich eig nur füer mich weil ich Spaß am proggen habe

Zitat:

if zahl2 < 0 then
begin
// hier einfach mal eine Fehlermeldung ausgeben
end
if zahl2 > 0 then
begin
n := 1;
y := zahl;
while n < zahl2
zahl := zahl * y;
n := n + 1;
end;
end
else
zahl := 1

Soweit so gut jetzt kommt bei mir ein Fehler :

Delphi-Quellcode:

begin 
  // hier einfach mal eine Fehlermeldung ausgeben 
end 
  if zahl2 > 0 then 
  begin 
    n := 1; 
    y := zahl; 
    while n < zahl2 
      zahl := zahl * y; 
      n := n + 1; 
    end; 
  end 
  else 
    zahl := 1 // hier kommt en Fehler

Fehler:Konstantenausdruck erwartet

[BUG]

Zitat von himitsu:

würde ich als Lehrer nicht jetzt schon mit sowas anfangen, sondern erstmal die wichtigsten Grundlagen, sowie das Debuggen lehren.

Bis jetzt habe ich in keiner Schulform (incl. Uni bis jetzt) debugging praktisch erläutert bekommen, im Gymnasium wurde es nicht einmal erwähnt (genau wie OOP ). Dabei ist es dort noch am einfachsten zu zeigen, da alle die gleiche IDE benutzen.

Zitat von -Ptype-:

Sorry falls ich dumm frage aber was ist Debuggen?

Hier gibt es ein Tutorial.

Zitat von -Ptype-:

mach ich eig nur füer mich weil ich Spaß am proggen habe

Das ist die richtige Einstellung

[Wolfgang Mix]

Dein
while n < zahl2 müsste eigentlich besser so funktionieren

Delphi-Quellcode:

while n < zahl2 do
begin
  ... Anweisungen
end;