Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Roborock Qrevo Curv 2 Flow: ora lava con un rullo
Roborock Qrevo Curv 2 Flow: ora lava con un rullo
Qrevo Curv 2 Flow è l'ultima novità di casa Roborock per la pulizia di casa: un robot completo, forte di un sistema di lavaggio dei pavimenti basato su rullo che si estende a seguire il profilo delle pareti abbinato ad un potente motore di aspirazione con doppia spazzola laterale
Alpine A290 alla prova: un'auto bella che ti fa innamorare, con qualche limite
Alpine A290 alla prova: un'auto bella che ti fa innamorare, con qualche limite
Abbiamo guidato per diversi giorni la Alpine A290, la prima elettrica del nuovo corso della marca. Non è solo una Renault 5 sotto steroidi, ha una sua identità e vuole farsi guidare
Recensione HONOR Magic 8 Lite: lo smartphone indistruttibile e instancabile
Recensione HONOR Magic 8 Lite: lo smartphone indistruttibile e instancabile
Abbiamo provato a fondo il nuovo Magic 8 Lite di HONOR, e per farlo siamo volati fino a Marrakech , dove abbiamo testato la resistenza di questo smartphone in ogni condizione possibile ed immaginabile. Il risultato? Uno smartphone praticamente indistruttibile e con un'autonomia davvero ottima. Ma c'è molto altro da sapere su Magic 8 Lite, ve lo raccontiamo in questa recensione completa.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 07-06-2014, 19: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, 20: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, 12: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, 16: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, 18: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


Roborock Qrevo Curv 2 Flow: ora lava con un rullo Roborock Qrevo Curv 2 Flow: ora lava con un rull...
Alpine A290 alla prova: un'auto bella che ti fa innamorare, con qualche limite Alpine A290 alla prova: un'auto bella che ti fa ...
Recensione HONOR Magic 8 Lite: lo smartphone indistruttibile e instancabile Recensione HONOR Magic 8 Lite: lo smartphone ind...
Sony WF-1000X M6: le cuffie in-ear di riferimento migliorano ancora Sony WF-1000X M6: le cuffie in-ear di riferiment...
Snowflake porta l'IA dove sono i dati, anche grazie a un accordo con OpenAI Snowflake porta l'IA dove sono i dati, anche gra...
Arianespace potrebbe lanciare il primo r...
Google Pixel 10a disponibile al prezzo m...
Microsoft Copilot nei guai: email riserv...
AOC a 399€ su Amazon: QD-OLED 240 Hz e 0...
La Cina ha recuperato dal mare il primo ...
Boeing CST-100 Starliner: la NASA rende ...
hiop e TaDa uniscono le forze per trasfo...
Thermal Grizzly mostra il Ryzen 7 9850X3...
AMD Ryzen 'Olympic Ridge' Zen 6 per desk...
Donald Trump renderà pubbliche in...
Prezzo mai visto da mesi: ECOVACS DEEBOT...
Non solo S26, Samsung sta per lanciare a...
Windows 11 avrà a breve uno Speed...
Ask Intel: l'assistente IA che ti aiuta ...
Nasce Freedom.gov: il portale USA per ag...
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: 00:16.


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