Kindergeld

Hartzer · Hält's aus hier Beiträge: 3

Hi Leute, ich bräuchte ein Programm, mit dem man das Kindergeld berechnen kann, wenn man

für die ersten beiden Kinder jeweils 184 euro bekommt,
für das dritte kind 190
und für jedes weitere kind 215 euro bekommt.

damitsoll das kindergeld bei einer beliebig hohen kinderanzahl berechnet werden.

Davon bräucht ich bitte einen quelltext

danke ;-)

Paul

Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 03.12.2010 um 16:17

jaenicke · Verfasst: Fr 03.12.10 17:18

Hallo und

Und was ist jetzt die Frage oder das Problem? :gruebel:

Wenn jemand dir einen fertigen Quelltext schreiben soll, ist das ein Fall für die Jobbörse, nicht für das normale Forum.

Hobby-Programmierer · Verfasst: Fr 03.12.10 17:19

Dann schreib das doch schnell selbst :zwinker:

Hartzer · Hält's aus hier Beiträge: 3

Hobby-Programmierer hat folgendes geschrieben :

Dann schreib das doch schnell selbst :zwinker:

Leider weis ich garnicht wie das geht, aber ich bräuchte es einfach weil wir das als HA aufhatten, habe jedoch echt keine zeit für informatik weil ich in den nächsten 3 tagen 3 arbeiten schreibe.
bitte um verständnis danke

Hobby-Programmierer · Verfasst: Fr 03.12.10 17:27

Symbolisch:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  for Menge:= 1 to Max_Kids do begin
    wenn Menge < 3 dann Kohle:= Kohle + 184 €;
    wenn Menge = 3 dann Kohle:= Kohle + 190 €;
    wenn Menge > 3 dann Kohle:= Kohle + 215 €;
  end;

Gausi · Verfasst: Fr 03.12.10 17:29

Ich werf einfach mal sowas in die Runde, damit sollte sich was anfangen lassen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

case AnzahlKinder of
  0: Kindergeld := 0;
  1: Kindergeld := etwas_mehr;
  2: ...
  3: ...
else
  Kindergeld := ganz_viel;
end;

_________________
We are, we were and will not be.

jaenicke · Verfasst: Fr 03.12.10 17:30

Hartzer hat folgendes geschrieben :

Leider weis ich garnicht wie das geht, aber ich bräuchte es einfach weil wir das als HA aufhatten, habe jedoch echt keine zeit für informatik weil ich in den nächsten 3 tagen 3 arbeiten schreibe.

Dann sag das eben dem Lehrer, wenn du etwas nicht verstehst... :roll:

Hobby-Programmierer · Verfasst: Fr 03.12.10 17:33

jaenicke hat folgendes geschrieben :

Hartzer hat folgendes geschrieben :

Leider weis ich garnicht wie das geht, aber ich bräuchte es einfach weil wir das als HA aufhatten, habe jedoch echt keine zeit für informatik weil ich in den nächsten 3 tagen 3 arbeiten schreibe.

Dann sag das eben dem Lehrer, wenn du etwas nicht verstehst... :roll:

... oder einfach mal auf einem Blatt Papier aufschreiben und überlegen wie man 'mathematisch' da rangehen würde.
Ich verstehe aber auch net warum immer so hochkomplexe Themen in Info als Hausi aufgegeben werden. :mrgreen:

Bergmann89 · Verfasst: Fr 03.12.10 18:45

Hochkomplex :lol:

Ich dachte immer die 190€ gelten ab dem 3. Kind für jedes Kind, also 3*190€, oder bin ich da falsch informiert? Dann stimmt dein Code nämlich nicht, Hobby-Programmierer.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

Hartzer · Hält's aus hier Beiträge: 3

Hobby-Programmierer hat folgendes geschrieben :

jaenicke hat folgendes geschrieben :

Hartzer hat folgendes geschrieben :

Leider weis ich garnicht wie das geht, aber ich bräuchte es einfach weil wir das als HA aufhatten, habe jedoch echt keine zeit für informatik weil ich in den nächsten 3 tagen 3 arbeiten schreibe.

Dann sag das eben dem Lehrer, wenn du etwas nicht verstehst... :roll:

... oder einfach mal auf einem Blatt Papier aufschreiben und überlegen wie man 'mathematisch' da rangehen würde.
Ich verstehe aber auch net warum immer so hochkomplexe Themen in Info als Hausi aufgegeben werden. :mrgreen:

Wo du recht hast hast du recht.
Habs jetzt doch selbst gemacht und zwar so:

markieren

Delphi-Quelltext

1:
2:
3:

if intedit1.value < 3 then intedit2.value:=intedit1.value*184;
if intedit1.value = 3 then intedit2.value:=intedit1.value*184+190;
if intedit1.value > 3 then intedit2.value:=558+(intedit1.value-3)*215;

danke an alle ^^
mir is grad aufgefallen das das garnicht so wenig spaß macht :-)

Moderiert von Narses: Delphi-Tags hinzugefügt

platzwart · Verfasst: Fr 03.12.10 19:11

markieren

Delphi-Quelltext

1:
2:
3:

if intedit1.value < 3 then intedit2.value:=intedit1.value*184;
if intedit1.value = 3 then intedit2.value:=intedit1.value*184+190;
if intedit1.value > 3 then intedit2.value:=558+(intedit1.value-3)*215;

Diese Zeile ist mit Sicherheit falsch. Sonst bekommt man ja mit 3 Kindern 3 mal 184 plus nochmal 190 Euro Kindergeld :gruebel:

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

F34r0fTh3D4rk · Verfasst: Fr 03.12.10 20:08

Es sei denn, es handelt sich hier um die Anzahl der "Zusatzkinder" :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme