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.
vabbè butto giù questo:
codice:
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