405 :CPP: TG 12 Klassenarbeit vom 12.06.2001 Lösung

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"		// Aufgabe 1
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int ZahlenArray [10];	// Das Array für die Zahlen
int AnzElt =0;		// Die Anzahl der Zahlen im Array, die Länge

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{				// Initalisierung
  Edit1->Text="";		// Aufgabe 2
  Label1->Caption="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonInArrayClick(TObject *Sender)
{				// Aufgabe 3
  int i =0;
  while (i< Memo1->Lines->Count) {
    ZahlenArray[i]= StrToInt(Memo1->Lines->Strings[i]);
    i++;
  }
  AnzElt = i;
  Label1->Caption=AnzElt;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonMaximumClick(TObject *Sender)
{				// Aufgabe 4
int i=1,j=0,max=0;
  max= ZahlenArray[0];
  while (i< AnzElt) {
    if (ZahlenArray[i]>max){
      max= ZahlenArray[i];
      j=i;
    }
    i++;
  }
  Edit1->Text=max;		// Aufgabe 5
  while (j<AnzElt-1) {	// Aufgabe 6
    ZahlenArray[j]=ZahlenArray[j+1];
    j++;
  }
  AnzElt = j;
  i=0;
  Memo1->Clear();		// Aufgabe 7
  while (i< AnzElt) {
    Memo1->Lines->Add(ZahlenArray[i]);
    i++;
  }
  Label1->Caption=AnzElt;
}