Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Tastiera gaming MSI GK600 TKL: switch hot-swap, display LCD e tre modalità wireless
Tastiera gaming MSI GK600 TKL: switch hot-swap, display LCD e tre modalità wireless
MSI FORGE GK600 TKL WIRELESS: switch lineari hot-swap, tripla connettività, display LCD e 5 strati di fonoassorbimento. Ottima in gaming, a 79,99 euro
DJI Osmo Pocket 4: la gimbal camera tascabile cresce e ha nuovi controlli fisici
DJI Osmo Pocket 4: la gimbal camera tascabile cresce e ha nuovi controlli fisici
DJI porta un importante aggiornamento alla sua linea di gimbal camera tascabili con Osmo Pocket 4: sensore CMOS da 1 pollice rinnovato, gamma dinamica a 14 stop, profilo colore D-Log a 10 bit, slow motion a 4K/240fps e 107 GB di archiviazione integrata. Un prodotto pensato per i creator avanzati, ma che convince anche per l'uso quotidiano
Sony INZONE H6 Air: il primo headset open-back di Sony per giocatori
Sony INZONE H6 Air: il primo headset open-back di Sony per giocatori
Il primo headset open-back della linea INZONE arriva a 200 euro con driver derivati dalle cuffie da studio MDR-MV1 e un peso record di soli 199 grammi
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


Tastiera gaming MSI GK600 TKL: switch hot-swap, display LCD e tre modalità wireless Tastiera gaming MSI GK600 TKL: switch hot-swap, ...
DJI Osmo Pocket 4: la gimbal camera tascabile cresce e ha nuovi controlli fisici DJI Osmo Pocket 4: la gimbal camera tascabile cr...
Sony INZONE H6 Air: il primo headset open-back di Sony per giocatori Sony INZONE H6 Air: il primo headset open-back d...
Nutanix cambia pelle: dall’iperconvergenza alla piattaforma full stack per cloud ibrido e IA Nutanix cambia pelle: dall’iperconvergenza alla ...
Recensione Xiaomi Pad 8 Pro: potenza bruta e HyperOS 3 per sfidare la fascia alta Recensione Xiaomi Pad 8 Pro: potenza bruta e Hyp...
Annunciata la tuta di volo di Vast che s...
Vast presenta il nuovo Large Docking Ada...
Una denuncia getta ombre sulle batterie ...
DJI Avata 2 Fly Smart Combo a 526€: il d...
Alla guida della nuova auto elettrica ci...
GeForce RTX 3060 12 GB a giugno di nuovo...
Apple Music sarà sponsor ufficiale di Po...
The Mandalorian & Grogu: trailer fin...
Fedeltà record: Apple blinda gli utenti,...
Volkswagen ID.3 Neo: fino a 630 km di au...
GPU-Z mette i dati personali a rischio? ...
La PS6 potrebbe essere retrocompatibile ...
Amazfit Cheetah 2 Pro arriva in Italia: ...
Duolingo ammette l'errore dopo un anno: ...
Samsung Galaxy Tab S10 Lite a 249€: il t...
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: 06:36.


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