Einzelnen Beitrag anzeigen

finalmaster2k

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

Re: Fakultät mit "repeat until" "

  Alt 13. Nov 2006, 19:28
ja es ist Hausaufgabe ..
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.
  Mit Zitat antworten Zitat