Integer Arrays vergleichen & Primzahlen aus Array löschen?

[tommy_mey]

Hallo,
ich bin Schüler der 13. Klasse und soll bis Dienstag (26.10.04) ein Programm geschrieben haben,welches zwei Arrays vergleicht - das erste (zz) enthält Zufallszahlen, das zweite Array (hilfs) enthält Quadratzahlen die in einer Procedure berechnet werden.

Mein erstes Problem ist nun, ich will die beiden Arrays so vergleichen, dass ein drittes Array (hilfs2) automatisch mit den Werten aus dem Array (zz) aber ohne die Werte aus (hilfs) gefüllt wird...Die Ausgabe soll dann in einer Listbox erfolgen.

Dazu habe ich mir folgenden Algorithmus überlegt
um die Quadratzahlen zu berechnen und ins array (hilfs) zu schreiben

Delphi-Quellcode:

globale Variablen   const max=100;
                          zzA=100;
                          hilfsA=10;
                          hilfsmax=8;
                    var zz:Array[1..zzA] of integer;
                        hilfs:Array[1..hilfsA] of integer;
                        hilfs2:Array[1..zzA] of Integer;

procedure....
var a,z,t:integer;
begin
a:=1;
for z:=1 to hilfsmax do
 begin
  inc(a);
  hilfs[z]:=sqr(a+1);
  listbox3.items.add(inttostr(hilfs[z]));
 end;
end.

hat jemand einen Quelltext um die Arrays zu vergleichen (siehe Einleitung)?

Mein zweites Problem ist:
über eine andere Procedur sollen alle Primzahlen aus dem array (zz) gelöscht werden, davon hab ich keine Ahnung, hat jemand eine Procedure die Primzahlen errechnen kann, welche dann wieder in ein Array gepackt werden? Ich würde dann das Primzahlarray mit dem array (zz), wie bereits oben erwähnt vergleichen wollen, kann mir irgend jemand helfen?


Mein kompletter Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button3: TButton;
    Button4: TButton;
    ListBox3: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

  const max=100;
        zzA=100;
        hilfsA=10;
        hilfsmax=8;
  var zz:Array[1..zzA] of integer;
      hilfs:Array[1..hilfsA] of integer;
      hilfs2:Array[1..zzA] of Integer;
      anzahl:cardinal;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

procedure quicksort(li,re:integer); //Sortieren
var i,j,Mitte,hilf:integer;
begin
 i:=li;
 j:=re;
 Mitte:=zz[(re+li)DIV 2];
repeat
   while zz[i]<Mitte do i:=i+1;
   while Mitte<zz[j] do j:=j-1;
   if i<=j
    then
     begin
      hilf:=zz[i];
      zz[i]:=zz[j];
      zz[j]:=hilf;
      i:=i+1;
      j:=j-1;
     end;
until i>j;
if li < j then quicksort(li,j);
if i < re then quicksort(i,re);
end;

procedure TForm1.Button1Click(Sender: TObject); //Zufallszahlen erzeugen und in Array (zz) ablege
var i:Integer;
begin
  for i:=1 to max do
  begin
   zz[i]:=random(100)+1;
   listbox1.Items.add(inttostr(zz[i]));
   end;
end;




procedure TForm1.Button2Click(Sender: TObject); //Löschen der Listbox
begin
listbox1.Clear;
listbox2.Clear;
listbox3.clear;
end;

procedure TForm1.Button3Click(Sender: TObject); //Löschen von ungeraden Zahlen
var i:Integer;
begin
for i:=1 to max do
    begin
     if zz[i] mod 2 <> 1
      then
       begin
           quicksort(1, 100);
           listbox2.Items.add(inttoStr(zz[i]));
       end;
    end;
end;

procedure TForm1.Button4Click(Sender: TObject); //Das soll mal die Quadratzahlprocedure werden
var a,i,k,z,t:integer;
begin
a:=1;
for z:=1 to hilfsmax do //Hier werden die Quadratzahlen berechnet
 begin
  inc(a);
  t:=sqr(a+1);
  hilfs[z]:=t;
  listbox3.items.add(inttostr(hilfs[z]));
 end;
                        //Hier muss die Procedure mit dem Vergleich weitergeführt werden
end.

[edit=Christian Seehase]Weitere Delphi-Tags gesetzt. Code- durch Delphi-Tags ersetzt. Mfg, Christian Seehase[/edit]