Schullosung 2013: Gemeinsam auf den Weg machen, suchen und verändern
Programmierbeispiel S.38 Nr.3
Eine Versicherung erstattet ihren Mitgliedern einen Teil der Jahresprämie, und zwar bei mindestens fünfjähriger Mitgliedschaft 8%, andernfalls 4%. Ein Programm ist zu schreiben, das nach Eingabe von Mitgliedsdauer und Jahresprämie den Erstattungsbetrag ausgibt.
Lösung von M. Gutschmidt
program versicherung;
Uses wincrt;
VAR Zahl,Praemie:integer;
Rechnung:real;
Begin
Writeln('Jahresprämie');
Writeln('Sind sie länger als 5 Jahre Mitglied=1, weniger als 5 Jahre=2');
Readln(Zahl);
IF Zahl=1 Then Begin
Writeln('Wie hoch ist die Jahresprämie?');
Readln(Praemie);
Rechnung:=Praemie*8/100;
Writeln('Teil von Jahresprämie=',Rechnung:5:2);
End
Else Begin
Writeln('Wie hoch ist die Jahresprämie');
Readln(Praemie);
Rechnung:=Praemie*4/100;
Writeln('Teil von Jahresprämie=',Rechnung:5:2);
End;
END.
|
| |
|
Leitbild |
|
Das Medienkonzept der Evangelischen Schule finden Sie hier... |
|
|
Rahmenpläne |
|
Die Stoffverteilung im Informatikunterricht finden Sie hier... |
|
|
Unterricht |
Interessantes aus und über den Informatikunterricht
hier...
Onlineunterricht hier... |
|
|
Ganztagsangebot |
Die Homepage-AG unserer Schule
hier |
|
|
Partner |
Wohnfühlen in Neuruppin, eine Umfrage des LK Informatik gemeinsam mit der Stadt und dem Ruppiner Anzeiger
hier
Boinc - Verteiltes Rechnen
hier |
|
|
Schulleben |
Ein virtueller Rundgang durch die Schule hier... und Panoramaansichten, entstanden im Informatikunterrichthier...
Internetseiten von Schülern gestaltet hier... |
|
|
Wettbewerbe |
Bundeswettbewerb Informatik oder Informatik-Biber
hier... |
|
|
Fischnet |
|
Im Fischnet finden Schüler viele Ergebnisse aus dem Informatikunterricht, wie z.B. das Blind-Date oder Dark-Ages |
|
| |
