PDA

Visualizza la versione completa : [PASCAL] Contare numeri positivi e negativi e fornire percentuali


tiratardi
05-11-2007, 18:11
ciao raga

ho un esercitazione in pascal che non sto riusciendo a svolgere...
vi scrivo la traccia nella speranza che qualcuno mi aiuti :zizi:

Dati in input una sequenza di numeri, contare quelli positivi e quelle negativi. Comunicare in output il numero dei positivi e dei negativi, e comunicare la percentuale dei positivi e dei negativi rispetto al totale dei numeri...

Il tutto con l'uso di While _ Do e IF...
senza repeat until...

"A parole" il procedimento lo saprei illustrare... :D
il problema è metterlo sul diagramma e codificarlo... :nonlodire

chi mi saprebbe aiutare?

grazie

:ciauz:

P.S. mi basterebbe "anche" (già è abbastanza se mi aiutate :D ) o solo il digramma o solo la codifica...

:ciauz:

LeleFT
05-11-2007, 18:18
Dov'è esattamente che non riesci a venirne fuori? L'esercizio mi sembra abbastanza banale...

PS: Correggo il titolo.


Ciao. :ciauz:

pallinopinco
05-11-2007, 18:20
Prova a buttare giù qualcosa, poi ci lavoriamo insieme... L'esercizio mi sembra molto banale.

tiratardi
05-11-2007, 18:38
banale...
ho fatto anche esercizi a scuola più difficili, e "ragionato" su errori di programmi più complicati insieme al professore, ma avrò le batterie scariche o mi starò bloccando sicuramente su una cazzata...

il problema che dopo che eseguo l'istruzione while _ do non riesco più ad andare avanti...
cioè è come se avessi un blocco, e non sto capendo la possibile soluzione... :dhò: :dhò: :dhò: :dhò:

che nervosooooooooooooo :dhò:

vi prego aiutatemi... :)

grazie

:ciauz:

LeleFT
05-11-2007, 18:51
Ribadisco quanto già detto da pallinopinco: mostra il codice di quanto fatto finora e vediamo di ragionarci su per andare avanti...


Questo è un forum non il supermercato delle soluzioni agli esercizi per casa.


Ciao. :ciauz:

tiratardi
05-11-2007, 19:06
Originariamente inviato da LeleFT
Ribadisco quanto già detto da pallinopinco: mostra il codice di quanto fatto finora e vediamo di ragionarci su per andare avanti...


Questo è un forum non il supermercato delle soluzioni agli esercizi per casa.


Ciao. :ciauz:
vabbè butto giù questo:



program asd;
Uses Crt;
Var numseq,numPo,numNe,numtot,num:integer;
percP,percN:real;

begin
clrscr;
numtot:=0;
numseq:=0;
num:=0;
writeln('la sequenza dei numeri è: ');
readln(numseq);
while numtot<=numseq do
begin
writeln('numero: ');
readln(num);
if num>0
then
begin
writeln('i numeri positivi sono: ' , //che cavolo metto?);
readln;
end
else
begin
writeln('i numeri negativi sono: ' , //che cavolo metto));
readln;
end;
end;
percP:=numseq/ //metterò l'insieme dei numeri positivi;
writeln('la media dei numeri positivi è: ' ,percPo);
readln;
percN:=numseq/ //metterò l'insieme dei numeri negativi;
writeln('la media dei numeri negativi è: ' , percNe);
readln();
end.



avevo buttato giù questo codice in fretta e in furia, e penso proprio che sia sbagliato

lo sbaglio starà dopo l'istruzione while_do ...
inoltre mi sa che forse non ho posto qualche variabile :=0... :master:

grazie

:ciauz:

tiratardi
05-11-2007, 19:08
Originariamente inviato da LeleFT
Questo è un forum non il supermercato delle soluzioni agli esercizi per casa.

mi sembra più che ovvio che non reputo questo forum come un supermercato...

però visto che stavo nella "confusione più totale", e il codice non stava bene ed era quasti tutto erronio non l'ho postato...

chiedo scusa... :)

:ciauz:

pallinopinco
05-11-2007, 19:10
Potresti modificare il tuo post inserendo il codice indentato in un blocco [CODE]? COsì non si capisce un granché...

king64
05-11-2007, 19:12
Questo potrebbe essere una bozza di come potrebbe essere il tuo programma



while esisteinput do
leggi numero
if Pari(numero) then
pari:=pari+1
else
dispari:=dispari+1
endif
paripercent=(pari/(pari+dispari) )*100
disparipercent=(dispari/(pari+dispari))*100
end:
end


Saluti :ciauz:

tiratardi
05-11-2007, 19:26
nonostante l'esempio di king64 continuo a non capire :cry: :cry:

non è giornata oggi... :cry:

Loading