Question

Elaborati un program in limbajul Pascal care va calcula suma,diferenta,catul si produsul a 3 numere intregi.​

Answer 1

Răspuns:

var

{ TODO: check and accomplish variable declarations }

uitkomst: Single;

keuze: string;

getalB: Longint;

getalA: Longint;

begin

uitkomst := 0;

writeln('Geef Een getal');

readln(getalA);

while (keuze<>'=') do

begin

writeln('+');

writeln('-');

writeln('*');

writeln('/');

writeln('=');

readln(keuze);

writeln('Geef een getal');

readln(getalB);

case (keuze) of

'+':

begin

uitkomst := getalA+getalB;

end;

'-':

begin

uitkomst := getalA-getalB;

end;

'*':

begin