david_s_pascal-seite
Inhaltsverzeichnis
David's Pascal-Seite
Taschenrechner Abfrage
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.
/home/http/wiki/data/pages/david_s_pascal-seite.txt · Zuletzt geändert: von 127.0.0.1
