Fakultät mit "repeat until" "

[finalmaster2k]

HAbe im Form schon durch gesucht . anscheinden sehr heiße sache das mit dem Fakultät ^^ !!

Wollte mal fragen ob ihr mir lösungen für die Fakultät berechnung mit einem "repeat until" geben könntet ^^ ! danke ..

[alzaimar]

Wozu? Hausaufgabe? :mrgreen:

Code:

Fakultaet von N berechnen:
  Resultat ist 1
  Zaehler ist 1
  Wiederhole
     Multipliziere das Resultat mit dem Zaehler
     Erhöhe den Zaehler Eins dazu
  Bis der Zaehler größer als N ist

Hattest Du gesagt, in welcher Programmiersprache Du das haben wolltest? Ach ja, soll ja 'Repeat...Until' sein, Sorry:

Code:

Calculate Factorial of the Number:
  Result is 1
  Counter is 1
  Repeat
     Multiply the Result with the Counter 
     Increase the Counter by One
  Until the Counter is greater than the Number

[Phoenix]

Also Hausaufgaben machen wir eher nicht.

Repeate doch so lange, bis die zahl von 1 auf den Zielwert gelaufen ist.

Achtung: Pseudocode! Der taugt so nicht, ist nur zum zeigen wie's geht:

Delphi-Quellcode:

zahl := 1;

repeat

  inc(zahl);
until zahl >= fakultaet;

[finalmaster2k]

ja es ist Hausaufgabe :P..
Ich kriege momentan kopfschmerzen wie ich das noch hinkriegen soll ^^ ICh arbeite mit Delphi ^^.. hehe..

habe momentan so was erstellt

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var

 Z : extended;  (*_.+´      Zielzahl         `+._*)
 C : extended;  (*_.+´      Zeahler          `+._*)

begin

(*_.+´         TEXT KOPF              `+._*)

writeln;
writeln(' Fakultät Berechnung ');
writeln(' Bitte geben sie einen Wert für Fakultät an ');
writeln;
writeln;

(*_.+´            EINGABE             `+._*)

write(' Bitte geben sie eine Zahl an:      ');readln (Z);

(*_.+´            Verarbeitung             `+._*)



begin


  repeat

  until

  Z=C

end;

end.

[alzaimar]

Na, dann bist Du ja fast fertig, denn 96% des Codes ist schon fertig. Die paar Zeilen bekommst Du auch noch hin.

[finalmaster2k]

Jetzt habe ich echt ein paar fragen..

Wie mache ich denn, dass ich für jede wirderholung einen wert bekomme das ich dann das Ergebniss mal zähler machen kann.
Ich muss ja mit der 1 angangen die ist ja definiert. und so bald dann der Zähler < als die Ziehzahl ist muss (hier das Problem) ich doch irgendwie dazu bringen , das es dann merkt, das ich einmal gezählt habe also " 1 x Zähler" .

Bitte helft mir doch..

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var

 Z : extended;  (*_.+´      Zielzahl         `+._*)
 C : extended;  (*_.+´      Zeahler          `+._*)

begin

(*_.+´         TEXT KOPF              `+._*)

writeln;
writeln(' Fakultät Berechnung ');
writeln(' Bitte geben sie einen Wert für Fakultät an ');
writeln;
writeln;

(*_.+´            EINGABE             `+._*)

write(' Bitte geben sie eine Zahl an:      ');readln (Z);

(*_.+´            Verarbeitung             `+._*)



begin


  C := 1;

  repeat

  n:=C*2

  until

  Z=C

end;

end.

[Phoenix]

Delphi-Quellcode:

zahl := 1;
fakultaetvon := 5;
ergebnis := 1;

repeat
   ergebnis := ergebnis * zahl;
   zahl := zahl +1;
until zahl >= fakultaetvon;