title image


Smiley Re: Anfänger will kleines Programm schreiben und wies nicht wie!!
Hier ist ein BeispielDer Aufruf save_binaer(8,'c:\tmp\binaer.txt') errechnet alle 8Bit-Kombinationen und speichert sie in die Datei c:\tmp\binaer.txt.//------------------------------------------------------------------------------//// Binärtabelle errechnen und abspeichern//// Parameter: b = Anzahl der Bits// FName = Dateiname mit Pfad//// Beispiel-Aufruf: save_binaer(8,'c:\tmp\binaer.txt');//------------------------------------------------------------------------------procedure save_binaer(b:integer;FName:string);var i,j,y,z:integer; F:Textfile; s:string;begin // dezimal-wert ausrechnen z:=1; for i:=1 to b do z:=z*2; z:=z-1; try AssignFile(F, FName); Rewrite(F); // Binärzahl errechnen for j:=0 to z do begin s:=''; y:=j; For i:=1 to b do begin if (y div 2)*2 =y then s:='0'+s else s:='1'+s; y:=y div 2; end; // Binärzahl speichern writeln(F,s); end; finally CloseFile(F); end;end;
Beste Grüsse von Coyote !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: