Einzelnen Beitrag anzeigen

finalmaster2k

Registriert seit: 11. Nov 2006
14 Beiträge
 
#6

Re: Fakultät mit "repeat until" "

  Alt 13. Nov 2006, 19:42
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.
  Mit Zitat antworten Zitat