Hallo Community,
ich bin seit ungefähr einer Woche neu hier und bin mir nicht sicher, ob ich diesen Beitrag in das richtige Subforum poste. Nun, ich habe seit ungefähr einem halben Jahr Informatikunterricht in der Sekundarstufe II und versuche gelegentlich anhand von Textaufgaben die jewiligen Programme zu programmieren, um dann halt auch außerhalb der Schule fit zu bleiben. Nun habe ich eine Aufgabe gefunden, bei der ich einfach keinen richtigen Ansatz finde. Angefangen habe ich schon, aber ich bezweifle, dass an dem jetzigen Quellcode nichts auszusetzen ist.
So, ich poste den hier mal, vllt. könntet ihr mir ja weiterhelfen. Die Aufgabe habe ich als png Datei angehängt.
Vielen Dank im Voraus.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x:Integer;
y:Integer;
begin
x:=StrToInt(Edit1.Text);
If (x <= 3)
Then Edit3.Text:='100'
Else
If (x > 3) and (x < 10)
Then
Begin
y:=100;
Case x of
4..9: y:=y*(x-1)+50 // Ich dachte mir, dass man eine Rekursion verwenden kann, indem man immer den vorherigen Wert mit 50 addiert, Umsetzung war aber ein wenig erfloglos :-D
end;
Edit3.Text:=IntToStr(y);
end;
Die Aufgabe lautet: Formuliere ein Algorithmus zur Berechnung der prämie und erstellen sie das dazugehörige Pascal-Programm