|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Junior Member
Iscritto dal: Jun 2014
Messaggi: 3
|
Aiuto Principiante
Scusate se vi disturbo ma ho appena iniziato a studiarlo e non trovo l'errore.Me la dareste una mano??
program calcolatrice; uses crt; var z,a,b,c,d,e:integer; begin writeln ('*Benvenuti nella calcolatrice di Mattia*'); readln; clrscr; writeln ('MENU:') ; writeln ('Addizione= 1'); writeln ('SOttrazione= 2'); writeln ('Moltiplica= 3'); writeln ('Divisione= 4'); writeln ('Fai quattro calcoli...= 5'); readln(z) case z of 1: begin writeln('Inserisci i due numeri che vuoi sommare!'); readln(a,b); c:=a+b; writeln('Il risultato è ',c); end; 2: begin writeln ('Inserisci i due numeri che vuoi sottrarre!'); readln (a,b); c:=a-b; writeln('Il risultato è ',c); end; 3: begin writeln('Inserisci i due numeri che vuoi moltiplicare!'); readln(a,b); c:=a*b; writeln('Il risultato è ',c); end; 4: begin writeln('Inserisci i due numeri che vuoi dividere!'); readln(a,b); c:=a/b; writeln('Il risultato è ',c); end; 5: begin writeln('Inserisci i due numeri che vuoi calcolare!'); readln(a,b); c:=a+b; d:=a-b; e:=a*b; f:=a/b; writeln('Il risultato è: Somma= ',c); writeln(' Sottrazione= ',d); writeln(' Moltiplica= ',e); end; else writeln ('SCELTA NON VALIDA'); end; end. |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Nov 2005
Città: Texas
Messaggi: 1722
|
Ciao
se posso permettermi, quando chiedi aiuto cerca di dare piu' informazioni possibili. D'altronde quando vai dal medico, non ti aspetti che indovini cos'abbia, ma glielo dici direttamente (vabbe' oppure te lo domanda, ma su un forum significa scriverti "cosa c'e' che non va?" e aspettare la risposta. Specifica anche il linguaggio nel titolo, o quanto meno nel messaggio, cosi' la gente sa di cosa parliamo. Comunque sembra che il tuo problema sia sintattico. Cosi' dovrebbe andare: Codice:
program calcolatrice;
uses crt;
var a,b,c,d,e,f:real;
z : integer;
begin
writeln ('*Benvenuti nella calcolatrice di Mattia*');
readln;
clrscr;
writeln ('MENU:') ;
writeln ('Addizione= 1');
writeln ('SOttrazione= 2');
writeln ('Moltiplica= 3');
writeln ('Divisione= 4');
writeln ('Fai quattro calcoli...= 5');
readln(z);
case z of
1:
begin
writeln('Inserisci i due numeri che vuoi sommare!');
readln(a,b);
c:=a+b;
writeln('Il risultato è ',c);
end;
2:
begin
writeln ('Inserisci i due numeri che vuoi sottrarre!');
readln (a,b);
c:=a-b;
writeln('Il risultato è ',c);
end;
3:
begin
writeln('Inserisci i due numeri che vuoi moltiplicare!');
readln(a,b);
c:=a*b;
writeln('Il risultato è ',c);
end;
4:
begin
writeln('Inserisci i due numeri che vuoi dividere!');
readln(a,b);
c:=a/b;
writeln('Il risultato è ',c);
end;
5:
begin
writeln('Inserisci i due numeri che vuoi calcolare!');
readln(a,b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('Il risultato è: Somma= ',c);
writeln(' Sottrazione= ',d);
writeln(' Moltiplica= ',e);
end;
else
writeln ('SCELTA NON VALIDA');
end;
end.
__________________
In God we trust; all others bring data |
|
|
|
|
|
#3 |
|
Junior Member
Iscritto dal: Jun 2014
Messaggi: 3
|
grazie mille e scusa l'omissione ma stavo sclerando perché era tutto il pomeriggio che cercavo l'errore e non ci ho pensato!
quindi in sostanza l'errore era solo che la variabile del "case of" andava in integer e le variabili di calcolo in real?? sisi,tieni presente che è il primissimo programma che stilo,pensavo di integrarlo in seguito con il ciclo. |
|
|
|
|
|
#4 | |
|
Senior Member
Iscritto dal: Nov 2005
Città: Texas
Messaggi: 1722
|
Quote:
Per quanto riguarda le variabili real, ho cambiato arbitrariamente perche' mi sembrava piu' sensato Avrebbe funzionato anche con le variabili intere, a patto di sostituire lo slash della divisione con la parola riservata DIV
__________________
In God we trust; all others bring data |
|
|
|
|
|
|
#5 | |
|
Junior Member
Iscritto dal: Jun 2014
Messaggi: 3
|
Quote:
|
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 08:18.




















