Taschenrechner hilfe

hy also bin recht neu bei programiiern und so und habe folgendes problem :
wenn ich 3 zahlen eingetippt habe z.B 20 dann 2 dann 2 dann ergibt das bei der divison ja 5 aber der schreibt irgendeine komische zahl hin wie z.B 0,20 oder so. Ich finde den Fehler nicht . Kann vielleicht einer helfen.
Und die Soustraction klappt auch nicht da macht er aus dem Resultat der eingegebenen Zahlen eine minus Zahl daraus und dann rechnet das Program erst die Soustraction.
Für manche Wirds wahrscheinlich bissl schwierig wegen dem Französichen aber ich hoffe jemand hat eine Lösung.
mfg

program myprogram;
{$APPTYPE CONSOLE}
uses
SysUtils;

var RES2,RES3 , RES4 , RES5 ,RES6 , RES7 ,RES8 ,RES9 : real;

var CHOIX, CHOIX2 , CHOIX3 , CHOIX4 , CHOIX5, I, NBR5 , NBR6 , NBR3: integer ;

////////////////////////////
procedure clear ;
begin
for I:=1 to 25 do writeln;
end;
////////////////////////////
begin

repeat
NBR3:=0;
NBR5:=0;
NBR6:=0;
RES2:=0;
RES3:=0;
RES4:=1;
RES5:=1;
RES6:=0;
RES7:=0;
RES8:=0;
RES9:=0;
CHOIX3:=0;
CHOIX4:=0;
clear ;
writeln(' Menu :');
writeln(' ======');
writeln;
writeln(' 1. Taschenrechner');
writeln(' 2. Exit');
readln(CHOIX);
case CHOIX of
1: begin
clear ;
writeln('Donnez le nombre des nombres');
readln(NBR5);
FOR I:= 1 to NBR5 do
begin
writeln('Donnez un nombre');
readln(NBR6);
RES2:= RES2 + NBR6;
RES3:= RES3 - NBR6;
RES4:= RES4 * NBR6;
RES5:= NBR6 / RES5;
end;

writeln(' 1. Addition');
writeln(' 2. Soustraction');
writeln(' 3. Multiplication');
writeln(' 4. Division');
readln(CHOIX2) ;
case CHOIX2 of
1: begin
clear;
//Addition
writeln('Le Resultat de l''addition des ',NBR5,' Nombres est de : ',RES2:0:2);
end;
2: begin
clear;
//Soustraction
writeln('Le Resultat de la soustraction des ',NBR5,' Nombres est de : ',RES3:0:2);
end;
3: begin
clear;
//Multiplication
writeln('Le Resultat de la multiplication des ',NBR5,' Nombres est de : ',RES4:0:2);
end;
4: begin
clear;
//Division
writeln('Le Resultat de la division des ',NBR5,' Nombres est de : ',RES5:0:2);
end;


end;
writeln;
writeln('Voulez vous faire un autre Calcul avec ce Resultat ?');
writeln('1. Oui');
writeln('2. Non');
readln(CHOIX4);
case CHOIX4 of
1:
begin
clear ;
writeln('Donnez votre Nombre que vouz voulez calcule avec le Resultat :');
readln(NBR3);
writeln('Quelle calcul voulez vous faire ?');
writeln(' 1. Addition');
writeln(' 2. Soustraction');
writeln(' 3. Multiplication');
writeln(' 4. Division');
readln(CHOIX5);
case CHOIX5 of
1: begin
clear;
//Addition
RES6 := RES2 + NBR3 ;
writeln('Le Resultat de l''addition des Nombres ',RES2:0:2,' et ',NBR3,' est de : ',RES6:0:2);
readln;
end;
2: begin
clear;
//Soustraction
RES7 := RES3 - NBR3 ;
writeln('Le Resultat de la soustraction des Nombres ',RES3:0:2,' et ',NBR3,' est de : ',RES7:0:2);
readln ;
end;
3: begin
clear;
//Multiplication
RES8 := RES4 * NBR3 ;
writeln('Le Resultat de la multiplication des Nombres ',RES4:0:2,' et ',NBR3,' est de : ',RES8:0:2);
readln;
end;
4: begin
clear;
//Division
RES9 := RES5 / NBR3 ;
writeln('Le Resultat de la division des Nombres ',RES5:0:2,' et ',NBR3,' est de : ',RES9:0:2);
readln ;
end;
end;

end;
2:
begin
writeln('exit');

end;
end;

end ;
2:
begin
clear;
writeln(' 1. Quitter');
writeln(' 2. Continuer');
readln(CHOIX3);

case CHOIX3 of
1: begin
write('exit');
end;
2:begin
end;
end;
end;
end;
until CHOIX3 = 1;
end.

 

Hey cobraviper!

Que c'est en français ça m'est plus ou moins égal. Mais pourrais-tu faire des insertions avec le code-tag?