Soni's Blog

+++ PASCAL +++ Zufallszahlen 2

nospam@example.com (dthsoni) — Fri, 10 Aug 2007 01:50:34 +0200

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.

+++ Multiply +++ Ironbreaker

nospam@example.com (dthsoni) — Tue, 07 Aug 2007 20:06:29 +0200

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

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

+++ Pascal +++ Zufallszahlen 1

nospam@example.com (dthsoni) — Tue, 07 Aug 2007 19:47:48 +0200

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.
-----------------------------------------------------------------------------------------

Camcorder Sony DCR-DVD203E PAL

nospam@example.com (dthsoni) — Sun, 05 Aug 2007 18:02:11 +0200

--- 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

Windows-Befehle

nospam@example.com (dthsoni) — Sun, 05 Aug 2007 17:56:49 +0200

        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