salve ho questo programma che mi calcola le 4 operzioni fondamentali, come con il C ho problemi, sul fatto che faccio un'addizione, e non mi torna all menu iniziale, continua fino
alla sottrazione e poi chiude il programma
ecco il codice:
program calcolatrice;
uses crt;
var
piu,piu2,s,moltiplicazione,divisione,meno:real;
i,errore,scegli2,meno2:integer;
scegli:string;
piu3:string;
begin
clrscr;
i:=0;
for i:= 1 to 80 do
write(char( 205));
gotoxy(20,2);
writeln('Le quattro operazioni da eseguire');
textcolor(10);
textcolor(10);
for i:=1 to 80 do
write (char(205));
textcolor(9);
for i:=1 to 3 do
write(' ');
gotoxy(20,7);
write ('1-Addizione');
gotoxy(20,9);
write ('1-Sottrazione');
gotoxy(20,11);
write ('1-Moltiplicazione');
gotoxy(20,13);
write ('1-Divisione');
gotoxy(20,15);
writeln ('1-Fine programma');
repeat
writeln(' SCEGLI');
readln(scegli);
val (scegli,scegli2,errore);
if errore <>0 then
writeln('errore inserisci un numero in cifre')
else
if scegli2 <0 then
writeln('errore inserisci un numero uguale o superiore a 0');
until (scegli2>=0) and (errore=0);
if scegli2 =1 then
begin
clrscr;
textcolor(yellow);
for i:= 1 to 80 do
write(char(205));
gotoxy (20,4);
writeln ('ADDIZIONE');
for i:= 1 to 80 do
write (char(205));
gotoxy(20,8);
write('Dammi il primo numero');
readln(piu);
gotoxy(20,8);
write('Dammi il secondo numero');
readln(piu2);
s:=piu+piu2;
gotoxy(20,12);
write( 'somma =',s:0:2 );
readln;
readln;
end;
begin
clrscr;
if scegli2=2 then
textcolor(red);
for i:= 1 to 80 do
write(char(205));
gotoxy(20,4);
Writeln('Sottrazioni');
for i:= 1 to 80 do
write(char(205));
write('dammi il primo numero');
readln(meno);
write('Damm il secondo numero');
readln (meno2);
s:=meno-meno2;
gotoxy(20,12);
writeln('somma =', s:0:2);
readln;
end;
end.
