Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 13.09.2006 12:49:08 3475

Delphi-Programm Umwandlung Dezimal-Binär

Delphi Projekt zum Herunterladen

unit mDezBin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;      // Math wird für power-Funktion benötigt.

type
  TForm1 = class(TForm)
    edBinaer: TEdit;
    Label1: TLabel;
    btOK: TButton;
    Label2: TLabel;
    edDezimal: TEdit;
    procedure btOKClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btOKClick(Sender: TObject);
n, dez: Integer;
   bin: String;
begin
  // Eingabe
  dez := StrToInt(edDezimal.Text);

  // Umwandlung
  bin := '';
  for n:=7 downto 0 do
  begin
    if dez >= power(2,n) then
    begin
      bin := bin + '1';
      dez := dez - Round(power(2,n));
    end
    else
      bin := bin + '0';
  end;

  // Ausgabe
  edBinaer.Text := bin;
end;

end.

lokal