Soni's Blog

PROGRAM Zufallszahl2;
USES crt;
CONST max = 8;
TYPE TFeld = array [1..max] of byte;
VAR feld : TFeld;
        i, j, zahl : byte;
        gleich : boolean;

BEGIN
  textattr := 30;
  clrscr;
 
  For i := 1 To max Do feld[i] := 0;

  Randomize;

  For i := 1 To max Do
    begin
      Repeat
        gleich := false;
        zahl := random(max)+1;
        For j := 1 To i Do
          If (zahl=feld[j]) Then
            begin
               gleich := true;
               break;
            end;
      Until gleich = false;
      feld[i] := zahl;
      write(' ', feld[i]);
    end;

  ReadLn;
END.

von dthsoni um 01:50 | Kommentare (0) | Trackbacks (2)

Mein anderer Blog bei Multiply (http://www.multiply.com)

+++++++++++++++++++++++++++
+  http://ironbreaker.multiply.com  +
+++++++++++++++++++++++++++

von dthsoni um 20:06 | Kommentare (0) | Trackbacks (0)

PROBLEM: Mit der Funktion Randomize und random() werden die Zufallszahlen erzeugt.
                     Aber auch gleiche Zufallszahlen kommen vor.

BEISPIEL:
    Die durch Randomize erzeugten Zufallszahlen:
          4  5  2  2  1  4  3   ' 4 gleiche Zufallszahlen  (4 und 2)

    Eigentlich sollte es so aussehen:
          4  5  6  1  3  2  7    ' keine gleiche Zufallszahlen kommen vor
          5  7  2  3  4  6  1    ' keine gleiche Zufallszahlen kommen vor

LÖSUNG:

-----------------------------------------------------------------------------------------
PROGRAM Zufallszahl;
USES crt;
CONST max = 8;
TYPE TFeld = array [1..max] of byte;
VAR feld : TFeld;
         i,j,merk,index : byte;
         gleich : boolean;

BEGIN
  textattr := 30;  {gelbe Schriften, blauer Hintergrund}
  clrscr;  {Bildschirm löschen = ClearScreen}

  Randomize;  {erzeugt Zufallszahlen}
  For i := 1 To max Do
    begin
      feld[i] := random(max)+1;  {erzeugt Zufallszahlen von 1 bis max=8}
      write (' ', feld[i]);
    end;

  merk := 0;
  index := 0;

  Repeat
    gleich := false;
    For i := 1 To max Do  {äußere Schleife}
       begin
         merk := feld[i];
         feld[i] := 0;
         For j := 1 To max Do   {innere Schleife}
           If (merk = feld[j]) Then
             begin
               gleich := true;
               index := j;
               feld[j] := random(max)+1;
            end;

         feld[i] := merk;
         merk := 0;
      end;
  Until gleich = false;

  WriteLn;

  For i := 1 To max Do write (' ', feld[i]);
  ReadLn;
END.
----------------------------------------------------------------------------------------- 

von dthsoni um 19:47 | Kommentare (0) | Trackbacks (0)

--- Wie können Videos und Photos vom Camcorder auf Compter und DVD übertragen
     werden  ? ---
1. Software und Driver installieren (Picture Package)
     (Neustarten)

2. Camcorder und Computer per USB-Kabel anschließen
3. 'Picture Package DVD Viewer' starten
4. Wähle 'DVD' und 'DVD handy Cam'
5. Videos und Photos auf Festplatte kopieren

von dthsoni um 18:02 | Kommentare (0) | Trackbacks (0)

        cmd = Console (DOS)
        compmgmt.msc = Verwaltung
        control panel = Systemsteuerung
        control userpasswords
        control userpasswords2
        devmgmt.msc = Device- / Hardware-Management = START --> Systemsteuerung  (Control Panel) --> Hardware (Device-Manager)
        diskmgmt.msc = Diskmanagement
        fsmgmt.msc = Freigegebene Ordner
        gpedit.msc = Gruppenrichtlinien / Group-Policies
        lusrmgr.msc = Benutzer-Gruppen-Verwaltung
        logoff = Abmelden
        msconfig
        msconfig -6
        mspaint = Paint
        mstsc = Remote-Destop-Verbindung
        ntmsmgr.msc = Wechselmedien-Dienst
        regedit = Registry-Editor
        regsvr32
        shutdown = Herunterfahren
        shutdown -r -t 00 = Neustarten (Restart) - sofort
        services.msc = Services / Dienste
        taskmgr = Task-Manager
        winver = Windows-Version
        wmimgmt.msc = Windows-Verwaltungsinfrastrultur (WMI)
        -------------------------------------------------------
        desk.cpl
        firewall.cpl
        hdwwiz.cpl
        inetcpl.cpl
        mmsys.cpl = Lautsprecher
        ncpa.cpl = Netzwerkverbindungen
        powercfg.cpl
        sysdm.cpl = Systemeigenschaften
        timedate.cpl = Dateum-Uhrzeit-Programm
       

von dthsoni um 17:56 | Kommentare (0) | Trackbacks (1614)