calcolatrice creata da me

alla grande funziona
grazie mille sergio , ti aggiungo tra gli autori del programma , il minimo per ripagarti

Prego odd, studia meglio i tipi, la formattazione.

Poi... dopo

Fai parlare due machine usa i socket i problemi d'interfaccia di aiuteranno.

Capisci i layers di comunicazione UDP, Multicast TCP.

sergio un ultimo aiuto se puoi
sto usando il comando while per far tornare, una volta finita l' operazione, al menu scrivendo 0
lo scritto dopo aver dichiarato le variabili
while :=0 do;
ma mi dice
syntax error: begin expected but while found
che significa?

come si fa su pascal il loop con le graffe o con una istruzione? il while... dove finisce? forse il "do" lo devi mettere alla fine.

ok credo di star per dire una cazzata con un istruzione per il resto non ricordo

ok mi arrendo come si fa?

allora while x do esegue l'istruzione seguente finché la condizione x è vera.

l'istruzione seguente termina con ";"

quando sono più di una istruzione allora vengono racchiuse in un blocco "begin end;"

lo vedi Odd?

I := I+2;
while i<=100 do
begin
WriteLn (’I =’,i);
I := I+2;
end;
X := X/2;
while x>=10e-3 do
X := X/2;

Spero sia giusto fai una verifica e studia che visto uno visti tutti.

non so se ho capito bene, in pratica quello che mia hai scritto tu sarebbe il comando seguente al while x do che dovrei mettere
dove x e ovviamente una variabile giusto?

x è la condizione per esempio i<=10

diventa

i=0
while i<=10 do
i := i+1;

esce quando i sarà 11

ho provato ma non va , non e che puoi scriverlo nel codice sorgente che ti ho dato e me lo incolli qui
cosi capisco meglio

dichiara la variabile "i" come intero
copia questo sotto

i := 0;
while i<=10 do
begin
WriteLn (’il contatore sta a ’,i);
i := i+1;
end;

io ho fatto cosi e mi da 2 errori
Program calco;
uses CRT;
var a,b,c:longint;
var d,e:single;
var i:integer;
i:=0;
while i<=10 do
begin
writeln ('il contatore sta a',i);
i:=i+1;
end;
begin
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);

gli errori sono "dublicate identifier "i" "
syntax error, ":" expected but ":="found

sposta quello che ti ho postato dopo il primo begin ed anche dopo il clrscr, altrimenti non vedresti il contatore. Avanti

escono sempre i due errori
senti ma una volta inserito che devo scrivere per far tornare al menù iniziale?

Il due errori sono per roba che sta nella zona delle dichiarazioni

"dublicate identifier "i" "
infatti i lo stavi usando prima del begin iniziale

syntax error, ":" expected but ":="found
infatti la dichiarazione va con : e non :=

1) devono comunque andare dopo il primo begin, devono far parte del programma e non delle dichiarazioni, ripeto io non faccio SW ma mi sembra così

2) controlla che la struttura sia coerente per ogni "begin" ci sia un "end;" meno l'ultimo mi pare di aver notato che debba essere "end."

ok compilato ma se lo faccio partire compare solo il testo e la barretta che scrive lampeggia e non mi fa scrivere niente

devo trovare un altro metodo questo qui non va

Questo era solo a scopo didattico, un esercitazione per capire come usare il while.

puoi fare così, i è la variabile che se è diversa da 0 fa uscire dal ciclo del while.

la metti a 0 ed entri nel while i=0 bla bla bla e l'ultima istruzione writeln 'premi 0 per continuare' ovviamente se premi qualsiasi altro tasto esci.

chi non fa SW utilizza un pseudo codice per farsi capire. I requisiti allora possono essere specificati in chiaro come un libro da leggere oppure con del pseudo codice che potrà capire solo un umano.

per facilitare la descrizione dei requisiti si utilizzano dei diagrammi ad esempio un metodo famoso è Unified Modelling Language dove con 7 simboli è possibile descrivere sistemi complessi.

ah ah basta così. Fai questo controllo per continuare che io per usare la tua calcolatrice e mica posso lanciare il programma ad ogni operazione.

ho fatto cosi ma indica un errore
Program calco;
uses CRT;
var a,b,c:longint;
var d,e:single;
var i:integer;

begin
textcolor(100);
textbackground(0);
clrscr;
i=0;
while i=0 do
writeln ('premi 0 per continuare');
i:= i+1;
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');


"illegal expression" quello in grassetto

se ho detto pseudo codice era proprio perché io scrivo "i=0" e tu inserisci "i:=0" ah ah l'avevo previsto Odd.

be capisci a me io non ho mai usato questo comando il massimo che facevamo a scuola era trovare l' area del triangolo o dell' esagono

a me manca solo sto fatto del tornare al menù scrivendo una cosa o premendo un tasto o altro

oddvod56 ha scritto:a me manca solo sto fatto del tornare al menù scrivendo una cosa o premendo un tasto o altro

dove vuoi che cicli metti un begin addizionale, la condizione, la stampa di notifica e la lettura del carattere, fatto.

capito
la condizione cosa potrei mettere?

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