Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Peugeot Polygon Concept: ecco il futuro delle utilitarie
Peugeot Polygon Concept: ecco il futuro delle utilitarie
Polygon è la concept car di Peugeot che mostra il futuro delle soluzioni del segmento B: tra design compatti e innovativi affiancati da dimensioni compatte uno scherzo dalla manovrabilità incredibile per le manovre a bassa velocità
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione
OPPO ha portato in Italia, dal 1° luglio 2026, Reno16 Pro: display AMOLED da 6,32 pollici a 144Hz, tripla fotocamera con sensore principale da 200 megapixel, chip Dimensity 8550 Super e batteria da 6000mAh, al prezzo di lancio di 899 euro. Lo abbiamo provato per due settimane insieme al nuovo accessorio Bubble, per capire se la formula compatta della serie regge ancora di fronte a un listino da 1099 euro
 Hisense 55U7SE: tuttofare e accessibile, il MiniLED per film, sport e gioco
Hisense 55U7SE: tuttofare e accessibile, il MiniLED per film, sport e gioco
MiniLED di fascia media con local dimming a 192 zone, 144 Hz nativi e audio firmato Devialet. La prova strumentale riscontra colori affidabili e gaming reattivo, per un prodotto molto accessibile e convincente. Ma la soundbar aggiuntiva è quasi d'obbligo
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 07-06-2014, 18:42   #1
Sbamma
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.
Sbamma è offline   Rispondi citando il messaggio o parte di esso
Old 07-06-2014, 19:31   #2
sottovento
Senior Member
 
L'Avatar di sottovento
 
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.
NOTA - secondo me andrebbe un pochino migliorato, nel senso che una volta fatta un'operazione potresti chiedere la successiva, fino a quando l'utente decide di finire
__________________
In God we trust; all others bring data
sottovento è offline   Rispondi citando il messaggio o parte di esso
Old 08-06-2014, 11:15   #3
Sbamma
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.
Sbamma è offline   Rispondi citando il messaggio o parte di esso
Old 08-06-2014, 15:57   #4
sottovento
Senior Member
 
L'Avatar di sottovento
 
Iscritto dal: Nov 2005
Città: Texas
Messaggi: 1722
Quote:
Originariamente inviato da Sbamma Guarda i messaggi
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.
Non ricordo esattamente tutti i punti, ma erano errori banali, puoi star tranquillo. Si trattava di qualche punto e virgola qua e la, e della variabile z non dichiarata.
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
sottovento è offline   Rispondi citando il messaggio o parte di esso
Old 08-06-2014, 17:53   #5
Sbamma
Junior Member
 
Iscritto dal: Jun 2014
Messaggi: 3
Quote:
Originariamente inviato da sottovento Guarda i messaggi
Non ricordo esattamente tutti i punti, ma erano errori banali, puoi star tranquillo. Si trattava di qualche punto e virgola qua e la, e della variabile z non dichiarata.
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
ok perfetto,Grazie mille!
Sbamma è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Peugeot Polygon Concept: ecco il futuro delle utilitarie Peugeot Polygon Concept: ecco il futuro delle ut...
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione Reno16 Pro: il compatto di OPPO punta su fotocam...
 Hisense 55U7SE: tuttofare e accessibile, il MiniLED per film, sport e gioco Hisense 55U7SE: tuttofare e accessibile, il Min...
Kindle Scribe Colorsoft: riduce le cornici e diventa a colori, ma il prezzo è alto Kindle Scribe Colorsoft: riduce le cornici e div...
L'IA cambia tutte le regole della sicurezza tra vulnerabilità e sorveglianza. Intervista al CEO di Proofpoint L'IA cambia tutte le regole della sicurezza tra ...
Intel conferma l'aumento dei prezzi su C...
In vendita Withings BodyFit, molto più d...
Inkterface: Steam Machine ospita un pann...
Stare seduti oltre 30 minuti di fila aum...
A Milano l'Italia ha firmato la sovranit...
Cos'è PeerTube, la piattaforma di...
In 12 articoli TOP c'è il meglio ...
La pirateria è l'unica tutela per...
Roomba Plus 516 Combo in offerta a 479€:...
ASUS ROG Strix G16 con RTX 5070 Ti super...
Google ammette il problema: la corsa all...
MOVA LiDAX Ultra 800 è un robot tagliaer...
iPhone 17 256GB oggi torna a soli 849€ s...
Dyson V8 Cyclone (aspira) scontata di 15...
Edge AI: NVIDIA Jetson raggiungerà...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 11:30.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v