Alters Kommentator

ridom · Verfasst: Fr 13.03.09 12:14

Hi leute(hoffe das ich im richtigen bereich bin) wir haben als Hausaufgabe in der Schule ein Programm auf bekommen
das zu einem gewissen alter zwischen 0 und 100 einen Kommentar abgeben soll
doch wir sollten verschiedenen blöcke machen also zum BSP von 0-6 das ganze soll in einer if/else geschichte passieren ich denke es gibt zwar bestimmt was leichteres aber ich kann nur mit den mitteln arbeiten die ich kenne

bin halt noch Anfänger

Hier mal noch wie ich dachte das es geht :roll:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var alter, satz: integer;
begin
  alter:= StrToint(LabelEdEdit1.Text);
  satz:= StrToInt(Label1.Caption);
    If alter = 0..5 then
    label1.Caption:='Kommentar'
    else
      if alter = 6..15 then
      label1.Caption:='Kommentar'
      else
        if alter = 16 then
        label1.Caption:='Kommentar'
        else
          if alter = 17 then
          label1.Caption:='Kommentar'
          else
            if alter = 18..27 then
            label1.Caption:='Kommentar'
            else
              if alter = 28..66 then
              label1.Caption:='Kommentar'
              else
                if alter = 67..85 then
                label1.Caption:='Kommentar'
                else
                  if alter = 85..100 then
                  label1.Caption:='Kommentar';
  Label1.Caption:= IntToStr(satz);
end;

aber so gehts anscheind nicht also pls help

Nersgatt · Verfasst: Fr 13.03.09 12:16

Packe bitte Deinen Code in die Delphi-Tags, damit er besser lesbar ist.

Du solltest mit größer (>) und kleiner (<) arbeiten:

markieren

Delphi-Quelltext

1:
2:

IF (alter >= 0) and (alter <= 6) Then
  {machwas}

Beachte, dass Du dann die Klammern setzen musst!

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

ridom · Verfasst: Fr 13.03.09 12:21

Wie geht das mit den Delphi-Tags???

werde es gleich mal probieren mit dem größer kleiner

freak4fun · Verfasst: Fr 13.03.09 12:25

Versuch es mal mit Case.

_________________
"Ich werde auf GAR KEINEN Fall…!" - "Keks?" - "Okay, ich tu's."
i++; // zaehler i um 1 erhoehen

Marc. · Verfasst: Fr 13.03.09 12:27

freak4fun hat folgendes geschrieben :

Versuch es mal mit Case.

ridom hat folgendes geschrieben :

das ganze soll in einer if/else geschichte passieren ich denke es gibt zwar bestimmt was leichteres aber ich kann nur mit den mitteln arbeiten die ich kenne

Zu den Delphi-Tags: [delphi] Code [/delphi]

ene · Verfasst: Fr 13.03.09 12:28

Bei mehreren Anweisungen wäre Case besser. Du kannst deinen Code in Tags setzten [delphi] und am Ende ein /delphi ebenfalls in [].

_________________
Wir, die guten Willens sind, geführt von Ahnungslosen, Versuchen für die Undankbaren das Unmögliche zu vollbringen.
Wir haben soviel mit so wenig so lange versucht, daß wir jetzt qualifiziert sind, fast alles mit Nichts zu bewerkstelligen.

ridom · Verfasst: Fr 13.03.09 12:30

Habs jetzt mal mit dem größer und kleiner bereich gemacht dort beschwert er sich wenigstens nicht beim compilieren wenn ich aber dann zum bsp 23 einegebe dann kommt der Fehler>>Meldung: '''ist keine Integer wert hab ich das irgendwas beim IntToStr falsch gemacht?

Nersgatt · Verfasst: Fr 13.03.09 12:33

An welcher Zeile tritt der Fehler denn auf? Was steht in Label1.Caption? Und warum Konvertierst Du erst Die Caption in einen Integer um es ganz am Schluss wieder zurück zu konvertieren?

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

jfheins · Beiträge: 918 Erhaltene Danke: 158 Win 10 VS 2013, VS2015

Du könntest auch sowas machen:

markieren

Delphi-Quelltext

1:	If alter in [0..5] then

Viele Wege führen nach Rom

freak4fun · Verfasst: Fr 13.03.09 12:38

Marc. hat folgendes geschrieben :

freak4fun hat folgendes geschrieben :

Versuch es mal mit Case.

ridom hat folgendes geschrieben :

das ganze soll in einer if/else geschichte passieren ich denke es gibt zwar bestimmt was leichteres aber ich kann nur mit den mitteln arbeiten die ich kenne

Dann bringt er sich das bei! So schwer ist das nicht. Du nimmst ja auch keine Holzräder für dein Auto, nur weil du keine nurmalen Reifen hast. xD

_________________
"Ich werde auf GAR KEINEN Fall…!" - "Keks?" - "Okay, ich tu's."
i++; // zaehler i um 1 erhoehen

ridom · Verfasst: Fr 13.03.09 12:40

Er zeigt mir nicht an in welcher Zeile er zeigt mir nur die Fehldermldung wenn ich das Programm ausprobieren möchte und wenn ich dann 12 als Zahl eingebe dann kommt die oben genannte Fehlermeldung im Label1.Caption soll nachher der satz drin stehen zu dem jeweiligen alter

Nersgatt · Verfasst: Fr 13.03.09 12:42

Dann sehe ich den Sinn in Deiner Zeile 4 und Zeile 28 oben nicht. Nimm beide Zeilen mal raus.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

ridom · Verfasst: Fr 13.03.09 12:49

@ Nersgatt genau das war der Fehler dankeschön weiss eigentlich selbst nicht so recht warum ich die dort hin gemacht habe

und danke @ all ^^

hier bekommt man schnell geholfen

_________________
Gestern standen wir noch kurz vor dem Abgrund...
...heute sind wir einen schritt weiter

Nersgatt · Verfasst: Fr 13.03.09 12:57

Wenn Du jetzt noch in der Schule glänzen willst, dann gib mal 101 oder -1 ein und überlege, wie Du das sinnvoll abfangen willst ;-)

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

ridom · Verfasst: Fr 13.03.09 13:34

^^auf 101 und -1 reagiert das programm garnicht

_________________
Gestern standen wir noch kurz vor dem Abgrund...
...heute sind wir einen schritt weiter

wazap · Beiträge: 25

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

case Alter of
  0..5: { mach was };
  6..12: { mach was };
  15: { mach was };
  else {mach was };
end;

Dude566 · Verfasst: Fr 13.03.09 13:53

So z.B. kannst du es machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
   alter : integer;
begin
alter := StrToInt(Edit1.Text);
      case Alter of
           0..6: ShowMessage('0-6');
           7..15: ShowMessage('7-15');
           16..23: ShowMessage('16..23');
           {...}
      else ShowMessage('Net da.');
      end;
end;

Edit: Oh wazap hatte ja auch schon den Lösungsweg.

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

ridom · Verfasst: Fr 13.03.09 14:04

danke an euch beide aber der Vorschlag mit der größer gleich variante funktioniert
auch wenn ich denke das euer Lösungs weg der elgantere ist sollte ich "noch" bei den sachen bleiben wo ich überhaupt verstehe was ich da mache :wink:

und nicht einfach abschreiben

_________________
Gestern standen wir noch kurz vor dem Abgrund...
...heute sind wir einen schritt weiter

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme