Hallo liebe Delphipraxis-Gemeinde
Ich steh vor einem Problem, wo ich mir seit 2 Tagen ein wenig den Kopf zerbreche.
wir müssen für die schule ein Prog machen das 2 Zufallszahlen zwischen 0 und 100 ausgibt und prüft ob sie über 50 liegen oder nicht.
is ja bis dahin ganz einfach
wir sind grade dabei die verschachtelung mit der for schleife zu machen und wir müssen in der schleife ein kleines diagramm machen dass die beiden zufallszahlen graphisch darstellt.
aus chars. also ich habe | genommen neben dem Y die taste
hier der quelltext:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a, b, zahl1, zahl2: integer;
zeichen:char;
diagramm1, diagramm2: string[100];
begin
randomize;
zeichen:='|';
zahl1 := random(100)+1;
zahl2 := random(100)+1;
label3.Caption:=inttostr(zahl1);
label4.caption:=inttostr(zahl2);
if zahl1 > 50 then
label5.caption:=('ja')
else
label5.caption:=('nein');
if zahl2 > 50 then
label6.caption:=('ja')
else
label6.caption:=('nein');
for a:= 1 to zahl1 do
diagramm1 := diagramm1+zeichen;
label7.caption:=(diagramm1);
for b:= 1 to zahl2 do
diagramm2 := diagramm2+zeichen;
label8.caption:=(diagramm2);
end;
end.
im anhang das bild dazu.
Das Problem liegt darin
wir müssen es so machen, dass der balken für die größere Zahl immer die ganze reihe füllt und die kleinere zahl immer prozentual zur ersten angezeigt wird
das heißt wenn die kleinere zahl 30 groß is, dass keine 30 zeichen kommen, sondern nur im verhältnis zur größeren.
ich könnte das mit gauge lösen und immer den maxwert ändern aber so sollen wir es nicht machen.
wie könnte ich das in das programm einbinden, kann ich sagen die eine zahl ist 100% oder sowas??
bin am verzweifeln
danke schonmal
Mfg widowmaker