Ein kleiner Taschenrechner

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Ziel unserer ersten kleinen Übung ist die Gestaltung eines kleinen Taschenrechners, der die vier Grundrechenoperationen beherrscht.

==Beispiel Addition==
Addition von zwei reellen Zahlen.
<code id="4d36e1760883e">
var a,b,c:real;
function addiere():real;
begin
 c:= a+b;
 result:=c;
end;
</code>

<run id="4d36df45862a6">
a := StrToFloat(inputDialog('1. Summand'));
b := StrToFloat(inputDialog('2. Summand'));

writeln('Die Summe beträgt: '+addiere()+'.');
</run>

==Aufgabe 1: Subtraktion==

 Erstellen Sie nach dem obigen Muster ein Programm zur Subtraktion von zwei reellen Zahlen.

<code id="4d36e34d5076e">
var d,e,f: real;
function subtrahiere():real;
begin
  // hier den Programmtext ergänzen
end;
</code>
<run id="4d36e34d5082b">
d := StrToFloat(inputDialog('Minuend'));
e := StrToFloat(inputDialog('Subtrahend'));

writeln('Die Differenz beträgt: '+subtrahiere()+'.');
</run>

==Aufgabe 2: Multiplikaton==
 Erstellen Sie ein Programm zur Multiplikation zweier natürlicher Zahlen und überprüfen Sie anschließend Ihr Ergebnis indem Sie für
 x den Wert 3 und für y den Wert 5 eingeben!
<code id="4d36ef7229d34">
var x,y,z:integer;
function multipliziere():integer;
begin
  // hier den Programmtext ergänzen
end;
</code>
<check>
result :=(multipliziere()=15);
</check>
<run id="4d36e52b41bab">
x := StrToInt(inputDialog('1. Faktor'));
y := StrToInt(inputDialog('2. Faktor'));

writeln('Das Produkt beträgt: '+multipliziere()+'.');
</run>

==Aufgabe 3: Division==
 Erstellen Sie ein Programm zur Division von zwei reellen Zahlen.
<code id="4d36f48b2a794">
function dividiere():real;
var a,b,c:real;
begin
 c := a/b;
 result:=c;
end;
</code>
<run id="4d36f48b2a83d">
g := StrToFloat(inputDialog('Dividend'));
h := StrToFloat(inputDialog('Divisor'));

writeln('Die Summe beträgt: '+dividiere(g,h)+'.');
</run>