Fehler beim Programmieren

[Binary]

Hallo Zusammen!

Mir sind beim Programmieren Fehler :wall: unterlaufen :cheers: , ich füge euch auch noch ein Bild vom Programm rein, hier der qeulltext:

Code:

procedure Tf_such.b_erzeugeClick(Sender: TObject);
i : integer;
begin
 randomize;
 For i : 1 to 100 do
     begin
     zahlenfeld[i,0] := random(500)
     sg_suche.cells[i-1] := StrToInt(zahlenfeld[i]);
    end;

procedure Tf_such.b_normsucheClick(Sender: TObject);
var
date, ergebnis : integer;
begin
     date := StrToInt(e_gesucht.text)
     ergebnis := suche(date);
     If ergebnis < -1
        then e_pos.text := IntToStr(ergebnis)
        else e_pos.text := Nicht gefunden;
end;

[BluesKid]

Moin moin,

wo, wie wenn, was geht denn nicht?

Fehlermeldungen?

Vorneweg aber mal zwei Hinweise:

1.) Randomize nur ein mal aufrufen und nicht bei jedem Buttonclick. Besser ins onCreate deines Forms.
2.) Strings in einfache Anführungszeichen


schönen Gruß
Sam

[Jelly]

1. Was ist der Fehler. Kriegs du ne Exception, oder rechnet er falsch. Was wird eigentlich gerechnet rsp. gesucht.
2. Was ist die Funktion "Suche". Da steckt doch wohl das Wesentlich drin.

Wir sind hier keine Hellseher :???:

[Binary]

ich kopier euch einfach mal den gesamten quelltext das porb. is das ich es noch nich in delphi geschrieben habe, mache das hier mit mehreren Leuten hat bisher noch keiner ins Delphi übertragen,

Delphi-Quellcode:

var
  f_lotto: Tf_lotto;
  lotto, zufall: array[1..6] of integer;
  urne: array [1..49] of integer;

implementation

{$R *.DFM}



procedure Tf_lotto.b_endClick(Sender: TObject);
begin
     close;
end;

procedure Tf_lotto.b_lottoClick(Sender: TObject);
var       i,j, zufallszahl, tausche :integer;


begin
     lotto [1] := sp_1.value;
     lotto [2] := sp_2.value;
     lotto [3] := sp_3.value;
     lotto [4] := sp_4.value;
     lotto [5] := sp_5.value;
     lotto [6] := sp_6.value;

     for i:= 1 to 6 do

         begin
         repeat
         zufallszahl:=random (49)+1;
         until urne[zufallszahl]>0;
         urne[zufallszahl]:=0;
         zufall[i]:=zufallszahl;
         end;



     for i:= 1 to 6 do

         begin
              for j := 1 to 6 -i do
                  begin
                       if zufall [j] > zufall [j+1]
                          then
                              begin
                                   tausche := zufall[j];
                                   zufall[j] := zufall[j+1];
                                   zufall[j+1] := tausche;
                              end;
                  end;
        

         end;


         for i:= 0 to 5 do

            sg_lotto.cells[i,0]:=IntToStr(zufall[i+1]);


end;

procedure Tf_lotto.b_urneClick(Sender: TObject);

var i:integer;

begin
     for i:= 1 to 49 do
        urne[i]:=i;
end;

procedure Tf_lotto.Beenden1Click(Sender: TObject);
begin
     close;
end;

procedure Tf_lotto.FormCreate(Sender: TObject);
var
i:integer;
begin


         for i:=1 to 49 do
         urne [i]:=i;

end;

procedure Tf_lotto.b_neuClick(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 5 do
    sg_lotto.cells[i,0]:='';

for i:=1 to 49 do
    urne[i]:=i;


end;

procedure Tf_lotto.e_auswertenClick(Sender: TObject);
          var i,j:integer;
          richtige:integer;
begin

     richtige:=0;

     for i:=0 to 6 do
         begin
             for j:=1 to 6 do
             begin
                  if lotto[i]=zufall[j]
                      then richtige:=richtige+1;
         end;
         end;
         e_ausgabe.text:= 'Sie haben ' + inttostr (richtige)+ ' Richtige';
         end;


end.

[Jelly]

Damit können wir immer noch nix mit anfangen. In welchem Zusammenhand steht denn deine zuerst geposteter Code mit dem aus vorigem Beitrag. Was soll das Programm denn eigentlich berechnen. Wenn du denkst, daß wir hier für dich die Umschreibarbeit übernehmen, da muss ich dich enttäuschen. :cry:

[Binary]

nene, pass auf, also der erste code sind paar ausschnitte vom gesamten, der andere is der komplette,

wollt ihr die aufgaben auch noch?

b) Korrigieren Sie den Quelltext:
- Beim Programmieren der Funktion suche Prozedur b_erzeugeClick haben sich 7 Fehler, bei der Programmierung von b_normsucheClick haben sich 3 Fehler eingeschlichen. Finden und korrigieren Sie die Fehler.
- Die Prozedur b_sortiereClick soll die Zahlen in dem Array Zahlenfeld sortieren. Obwohl es beim Kompilieren keine Fehlermeldung gibt, behauptet eine Schülerin, dass die Prozedur nicht das Gewünschte leistet. Stimmt das?

[BluesKid]

klick

[Jelly]

Zitat:

Zitat von Binary

nene, pass auf, also der erste code sind paar ausschnitte vom gesamten, der andere is der komplette

Das kann ich in den Codeschnippsel aber nicht erkennen.

Zitat:

Zitat von Binary

Korrigieren Sie den Quelltext:
- Beim Programmieren der Funktion suche Prozedur b_erzeugeClick haben sich 7 Fehler, bei der Programmierung von b_normsucheClick haben sich 3 Fehler eingeschlichen. Finden und korrigieren Sie die Fehler.
- Die Prozedur b_sortiereClick soll die Zahlen in dem Array Zahlenfeld sortieren. Obwohl es beim Kompilieren keine Fehlermeldung gibt, behauptet eine Schülerin, dass die Prozedur nicht das Gewünschte leistet. Stimmt das?

Siehe ein 2 Beiträge höher. Wir sind nicht hier um deine Hausaufgaben zu machen. Entweder du wirst jetzt konkreter, was dein Problem ist, oder ich brech für meinen Teil die Diskussion hier ab.

[Binary]

sry ich glaube ich nerv euch, ich habe jetzt selber alles geschafft, sitze gerade in Informatik, machen Gruppenarbeit, trotzdem Danke für eure Hilfe! :-D

[sakura]

Ändere bitte mal den Titel, da der aktuelle keine inhaltliche Aussage liefert ;)

...:cat:...

[runger]

Hallo,

wieder das Gleiche! Hausaufgabenlösungsforum!
Leute lasst das Ihr macht das ganze Forum kaputt!
Mich nervts jedenfalls tierisch!

Rainer

[Luckie]

Wenn du fesstellst, dass es ein Hausaufgaben Thread ist, dann guck doch einfach nicht mehr in den entsprechenden Thread rein.

[SubData]

Das sieht man ja vorher nich immer Luckie... Ausserdem heißt Hausaufgaben-Thread ja nicht, dass die Person es nicht wenigstens selbst versucht und nur ein wenig "Denkanstoß" beim Lösen braucht :wink:

[Binary]

habs ja zum Schluss auch selbst hingekriegt, aber gibs ein extra Forum dafür?

Oder sollte ich es wirklich in den Thread schreiben?

[phXql]

Zitat:

Zitat von Binary

habs ja zum Schluss auch selbst hingekriegt, aber gibs ein extra Forum dafür?

Oder sollte ich es wirklich in den Thread schreiben?

nein gibts nich. "bitte erledige meine hausaufgaben"-threads sind hier nicht sehr beliebt ;).. hättest du die AGB gelesen, wüsstest du das auch ^^

[Binary]

muss ja nich bitte erledige meine Hausaufgaben, sondern villeicht Hausaufgaben - Hilfe heissen, nur mal son Vorschlag

[Kernel32.DLL]

Zitat:

muss ja nich bitte erledige meine Hausaufgaben, sondern villeicht Hausaufgaben - Hilfe heissen, nur mal son Vorschlag

Wie bereits gesagt wurde: Das is' hier kein Hausaufgaben-Forum. Insofern wird es auch soetwas hier wohl nicht geben. Könnte mir vorstellen, dass Daniel das wohl nicht gefiele...

Übrigens, mit ein bissel Geschick muss ja nicht jeder gleich mitkriegen, dass es sich um Hausaufgaben handelt.
(Ähm... Kann bei mir net vorkommen, hab' schon seit 'nem halben Jahr kein Informatik mehr, waren einfach zu wenig Interessenten)
Aber wie gesagt, es gehört sprachliches Geschick dazu....

[Tubos]

@Kernel32.DLL: Ich glaube, du hast das etwas falsch verstanden. Es hat niemand was dagegen wenn jemand eine konkrete Frage stellt, egal ob es sich um eine Hausaufgabe oder etwas anderes handelt.

Nicht erwünscht sind lediglich Threads, in denen nach einer kompletten Lösung gefragt wird.

Das hier war sicher kein kein "bitte macht meine hausaufgabe"-Forum.

[Kernel32.DLL]

Zitat:

Zitat von Tubos

@Kernel32.DLL: Ich glaube, du hast das etwas falsch verstanden. Es hat niemand was dagegen wenn jemand eine konkrete Frage stellt, egal ob es sich um eine Hausaufgabe oder etwas anderes handelt.

Jetzt, glaube ich, hast du mich falsch verstanden. Es war schon so gemeint, dass hier keine Hausaufgabe komplett gelöst werden (oder zu 75%)! Daher ist auch keine extra "Hausaufgabe" - Sparte nötig!

Dürften hier keine konkreten Fragen gestellt werden, wäre das Forum ja überflüssig!

mfg
Daniel

[Tubos]

Ok, mein Fehler ;)

[Kernel32.DLL]

Zitat:

Zitat von Tubos

Ok, mein Fehler ;)

no prob... :wink: