Zahlenausgabe

elli1985

Halla, ich bins mal wieder!

Hab ja gestern schonmal gepostet, die Programme hab ich alle hinbekommen, jetz fehlt mir noch eins und zwar die Primzahlenberechnung. Wir sollen also die Primzahlen in einem bestimmten Intervall (Feld2 bis Feld3) berechnen. Hab dafür in der Anwendung ne Schaltfläche und die drei Textfelder eben verwendet. Klappt auch alles super, die Primzahlen werden berechnet, nur nicht ausgegeben. Immer nur die letzte kann mir einer sagen, wie ich den Quelltext ändern muss, damit es mir alle mit ein paar Freizeichen dazwischen ausgibt? Das müsste doch mit einem Feld oder einem Zeiger machbar sein, oder? Die einfachste Antwort wäre die beste, damit ich es auch nachvollziehen kann!

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Clear();
int i,n,c,d;
int a = StrToInt(Edit2->Text);
int b = StrToInt(Edit3->Text);
if (a>2) d=0;
else d=2;
for(i=a;i<=b;i++)
{
for(n=2;n<i;n++)
{
c=i%n;
if (c==0) break;
}

if (c!=0)
{
d=d+i;
Edit1->Text = IntToStr(d);
}
else Edit1->Text = IntToStr(0);
}
}

Also das d+i usw ist nur, weil ich porobieren wollte, ob die Summe stimmt und die stimmt.

YLIREBUS

Die Werte werden in dem Edit immer überschrieben.
Nimm doch ein Memo.
ansonsten probier mal das:

Edit1->Text +=" "+ IntToStr(d); 
} 
else Edit1->Text +=" "+ IntToStr(0); 
} 
}

akari

Hallo

du hast die Ausgabe immer wieder überschrieben, und du gibst den falschen Wert aus

Edit1->Clear();
int i,n,c;
int a = StrToIntDef(Edit2->Text,0);
int b = StrToIntDef(Edit3->Text,0);
for(i=a;i<=b;i++)
{
  for(n=2;n<i;n++)
  {
    c=i%n;
    if (c==0) break;
    }

  if (c!=0)
  {
    if (Edit1->Text != "") Edit1->Text = Edit1->Text + ", ";
    Edit1->Text = Edit1->Text + IntToStr(i);
    }
  }

/Edit : zu spät.. Server lahmt gerade

bis bald
akari

YLIREBUS

Edit1->Clear(); 
	int i,n,c;
	int a = StrToIntDef(Edit2->Text,0);
	int b = StrToIntDef(Edit3->Text,0);
	for(i=a;i<=b;i++)
	{
	  for(n=2;n<i;n++)
	  {
		 c=i%n;
		 if (c==0) break;
	  }

	  if (c!=0)
	  {

		 Memo1->Lines->Add(IntToStr(i));
	  }
	}

JAu habe auch gerade gesehen das da was nicht stimmt

elli1985

Danke, ich werd's mal ausprobieren ( also die Variante von YLIREBUS). Schreiben nämlich morgen nen Test, da muss ich fit in C++ sein.

Liebe Grüße, Elli.