calcolatrice creata da me

ok sto usando il comando "if" che mi permette di dare una condizione, sarebbe , se premo 0 torna al menù se premo un qualsiasi altro tasto esce unico problema e che non so come far tornare al menù

abbiamo appena visto il while, c'è il case non mi piacciono gli if che finiscono lontano. Usa il while.

il guaio e che se uso il comando
case a of
e imposto il begin del menù con un qualsiasi numero mi da errore

Program calco;
uses CRT;
var a,b,c:longint;
var d,e:single;
var i:integer;
begin
case a of
9:
begin
textcolor(100);
textbackground(0);
clrscr;
writeln('CALCOLATRICE ODD V 0.2 BETA');
writeln('SCRIVERE UNO DEI SEGUENTI NUMERI PER ESEGUIRE L'' OPERAZIONE INDICATA POI');
writeln('POI PREMERE INVIO');
writeln('1 - addizione');
writeln('2 - sottrazione');
writeln('3 - moltiplicazione');
writeln('4 - divisione');
writeln('5 - extra');
writeln('6 - help');
writeln('7 - esci');
writeln('UNA VOLTA ESEGUITA L'' OPERAZIONE PREMERE 2 VOLTE INVIO PER USCIRE');
writeln;
writeln('Che opzione scegli? (1/6)');
readln(a);
case a of

mi dice "syntax error: ";" unxpected but "." found " e si riferisce al punto del end finale

no ok risolto l' errore ora resta solo il fatto che non so come indicare al while che deve tornare al punto 9 del case

Porca troia

e non hai visto niente

ok ora col comando case e of ho fatto in modo che il menu iniziale corrisponda al numero 9 ora come faccio a impostarlo in while ti prego sergio sto comando mi sta facendo impazzire

1:

begin
writeln('PROGRAMMA DI ADDIZIONE');
writeln('INSERISCI UN NUMERO E PREMI INVIO PER INSERIRNE UN ALTRO');
writeln('Scrivi i due numeri');
readln(d,e);
writeln;
writeln(d+e:1:2);
writeln('---------------------------');
writeln('PREMI "INVIO" PER USCIRE ');
readln;

per esempio qui il while dove lo dovrei mettere e come gli indico di tornare al numero 9 (menù)

Rasputin ha scritto:Porca troia

Mi ha massacrato ma ammiro la sua tenacia e allora sono contento se posso aiutarlo a Odd (che significa peculiare, bizzarro), ah ah!

e io ammiro la tua pazienza

oddvod56 ha scritto:e non hai visto niente

Eh lo so

1) metti il while all'inizio prima del case

2) assegna alla variabile della condizione il valore 0 (fallo assieme alla dichiarazione)
zero_si : integer = 0 ;

3) la prima volta entra fai tutto e stai per uscire ma

4) notifichi con writeln 'premere 0 per continuare'

5) leggi il carattere dalla tastiera che è? readln forse

6) se hai battuto 0 torni sul while e riprendi altrimenti esci verso end.

Program calco;
uses CRT;
var a,b,c:longint;
var d,e:single;
var i:integer;
var zero:integer=0;
begin
while zero do
case a of
0:
begin
textcolor(100);
textbackground(0);

mi da errore
"boolean espression expected but got shortint" e indica while dove si trova l' errore

while zero=0 do

che figura di *****

no no si fa ma non so con pascal

ok compilato ma adesso se vado a verificare se scrivo 0 alla fine di un operazione rimane bloccato

http://it.swoopshare.com/my/file/dc031f0c4b350d74cbef4d90ab359208
vedi tu

fanno cosi "while 1 do" e questo è un loop infinito e per uscire mettono dei "break;"

voi due...

non ho afferrato
devo mettere "while 1 do" al posto di "while zero=0 do" e poi....?

ah ah in questi casi per uscire si preme "cntr" e "c" insieme.

mandami il sorgente che l'eseguibile si incatasta ahah il colore adatto è ambra oppure verde, mi sembro matto per davvero ah ah.

No era per dirti che si mette anche "while 1", noi abbiamo usato lo 0 allora ci va il test zero=0, non cambiamo... mandami il sorgente

siete pazzi ahah

fratelli

subito
http://it.swoopshare.com/file/2077c5327cc12ff14b0f19363211534f/calcocrash+beta.txt.html
ecco qui

hooo si pero pensa una cosa rasp quelli che hanno creato windows/linux sono peggio di noi
se noi siamo pazzi loro che so

oddvod56 ha scritto:hooo si pero pensa una cosa rasp quelli che hanno creato windows/linux sono peggio di noi
se noi siamo pazzi loro che so

Era inteso in senso positivo

lo so per questo ho messo il jullare

1. abbiamo detto while zero=0

2. non vedo la fine di questo while

3. ci deve essere alla fine di questo while che è probabilmente l'ultimo end; (con punto e virgola) la seguente roba:

writeln('Batti 0 per continuare');
readln(zero);

no asp devo scrivere cosi

begin
while zero=1 do
end;
writeln ('batti 0 per continuare');
readln (zero);
case a of

oppure cosi ?

begin
while zero=1 do
writeln ('batti 0 per continuare')
readln (zero);
end;
case a of

???

oddvod56 ha scritto:no asp devo scrivere cosi

begin
while zero=1 do
end;
writeln ('batti 0 per continuare');
readln (zero);
case a of

oppure cosi ?

begin
while zero=1 do
writeln ('batti 0 per continuare')
readln (zero);
end;
case a of

???

begin
.while zero=0 do
..qui c'è tutto il programma
..queste sotto sono proprio le ultime 4 righel
..writeln ('batti 0 per continuare');
..readln (zero);
.end;
end.

ok ora succede questo, quando lo faccio partire una volta fatta l' operazione premo invio e mi compare il messaggio "scrivi 0 per continuare" lo scrivo e............niente bloccato di nuovo

se premi 1 esce se premi 0 ai incatasta... manda il sorgente

ho come l' impressione che fra poco mi mandi a quel paese

Odd, o mi hai mandato il file sbagliato o nok, ah ah mi sa che ti sei stancato.

begin
.while zero=0 do -- qui hai lasciato zero=1 non va bene
..qui c'è tutto il programma righa n
..qui c'è tutto il programma righa n+1
..v
..v
..v
..v
..v
..v
..v
..v
..e queste sotto sono proprio le ultime 4 righe, ultime!
..writeln ('batti 0 per continuare');
..readln (zero);
.end;
end.
programma finito.

infatti file sbagliato
http://it.swoopshare.com/file/ae8131a79570443a72df63d8064dbf51/calcocrash+beta.txt.html
questo e quello buono

we sergio io vado a dormire ci risentiamo domani, ciao
p.s. scusa la rottura di pa***

buona notte Odd

Devi controllare la struttura dei blocchi begin, end, case of, etc... non hai indentato.

Linee guida per il SW deve avere le seguenti caratteristiche il tuo PRG:

essere leggibile

essere commentato per farlo leggere da altri

avere i blocchi indentati ovvero tutto il contenuto di ogni blocco deve essere allineato alla colonna o tabulazione successiva

In pochi minuti sistemalo e forse troverai degli end messi male

ma di che parlate

Odd si è entusiasmato con un'applicazione software, facendo del codice in linguaggio pascal ed ha chiesto aiuto per i controlli. Così ho tentato di aiutarlo, poco perché non faccio SW io

SergioAD ha scritto:Odd si è entusiasmato con un'applicazione software, facendo del codice in linguaggio pascal ed ha chiesto aiuto per i controlli. Così ho tentato di aiutarlo, poco perché non faccio SW io

Haaaa ora ho capito

ho rimesso un po in ordine il codice e hai ragione ci sono degli end che non vanno bene ma se li tolgo mi da errore e l' unico modo e lasciarli cosi, secondo me e un problema del codice while
se riuscissi a indicare al codice che , premendo 0 ,deve tornare ad un punto specifico del case potrei riuscire a sistemarlo tutto dopo di che posso inserire i commenti anche perché mi sembra un po inutile inserire dei commenti quando il programma non funziona

ho usato pure notepad++ che mette lui in ordine

da cosi:

.
.
begin
while zero=0 do
case a of
0:
begin
textcolor(100);
textbackground(0);
.
.
fallo diventare così:

.
.
begin
while zero=0 do
begin
textcolor(100);
textbackground(0);
.
.

ovvero elimina:

case a of
0:

che non servono e riprova

FUNZIONA CAZZO FUNZIONAAAAAAA!!!
SEI UN GRANDE SEI UN GRANDEE,SEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEESEI UN GRANDE SEI UN GRANDEE

GRAZIEEEEEEEEEE!!!!!!!!!

ok ora devo solo far in modo che bisogna premere solo 0 una volta sola

ok fatto ora solo il fatto che non funziona il comando 7 del menù principale che ti fa uscire

da cosi:
7:
begin
end;
else writeln ('NUMERO NON VALIDO');

fallo diventare così:
else writeln ('NUMERO NON VALIDO');

questi non servono:
7:
begin
end;

si ma poi sarebbe impossibile uscire dal programma con un comando bisogna per forza premere la x in alto

potresti mettere l'istruzione "break", torva o crea il punto d'uscita e mettici un bel break; e quando l'utente premerà il numero per uscire andrà proprio lì.

Fatto!