Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- david_s_pascal-seite [2016-01-22 19:46:09] – angelegt manfred
+++ david_s_pascal-seite [2016-04-12 22:49:59] (aktuell) – Externe Bearbeitung 127.0.0.1
@@ Zeile 1: / Zeile 1: @@
+====== David's Pascal-Seite ======
+===== Taschenrechner Abfrage =====
+<file>
+program Parameter;
+var
+  a : LongInt;
+  b : LongInt;
+  d : String;
+begin
+    WriteLn('Bitte geben Sie die erste Zahl ein:');
+    readln(a);
+    WriteLn('Bitte geben Sie das Rechenzeichen (+; -; *; /) ein:');
+    readln(d);
+    WriteLn('Bitte geben Sie die zweite Zahl ein:');
+    readln(b);
+    if d = '+' then
+         begin
+              WriteLn(a , ' + ' , b , ' = ' , a + b);
+              readln();
+         end;
+    if d = '-' then
+         begin
+              WriteLn(a , ' - ' , b , ' = ' , a - b);
+              readln();
+         end;
+    if d = '*' then
+         begin
+              WriteLn(a , ' * ' , b , ' = ' , a * b);
+              readln();
+         end;
+    if d = '/' then
+         begin
+              WriteLn(a , ' / ' , b , ' = ' , a DIV b);
+              readln();
+         end
+    else
+        begin
+              WriteLn();
+        end;
+end.
+</file>