[delphi 7] Calcolare la media dei divisori di un numero

[xswat]

m aiutate a scrivere questo programma

scrivi un programma ke dato un numero intero n calcoli la media dei divisori di N

uses
  SysUtils;
  var n:integer;
begin
   write('inserisci un numero interno n   ');
   readln(n);
   for n:= 0 to n do
      if (n mod n)=0
      then writeln();
   readln;

io ho ftt una cosa così ma i divisori nn so proprio km farli,,,

grz in anticipo

[xswat]

è urgente pleaseeeee

[xswat]

al meno qlk per favoreeee

[123delphi321]

qualcosa del genere....(non e' testato!)

var 
 n:integer;
 i:integer;
 media:currency;
 conta:integer;
begin
write('inserisci un numero interno n   ');
readln(n);

conta:=0;
somma:=0;

for i:= 0 to n do
  begin
   if (n mod i)=0 then 
    begin
      conta:=conta+1;
      somma:=somma+i;
    end;
  end;

media:=somma/conta;

ciao

[xswat]

no nn mi da nulla,,,qnd scrive inserisci un num lo inserisco e poi la finestra scompare,,,please raga aiutatemi,,,

[LeleFT]

Urgente non esiste in nessun forum.
Il Regolamento è una cosa da leggere urgentemente.


Soprattutto per quanto riguarda titolo, modalità di posting del codice e tipologie di richeiste.
Sono accettate richieste di aiuto su un codice, ma non richieste di scrittura codice completo di programmi (esiste una sezione chiamata "Offro Lavoro / Collaborazione" per questo).

Correggo io per questa volta.


Ciao.

[123delphi321]

Originariamente inviato da xswat
no nn mi da nulla,,,qnd scrive inserisci un num lo inserisco e poi la finestra scompare,,,please raga aiutatemi,,,

suppongo che la finestra scompare perche' il programma termina.

prova a visualizare il valore media....

showmessage(media)

[xswat]

no nulla da fare,,,potresti gentilemnte controllare sul tuo delphi???(grz cmq dell'aiuto)

[123delphi321]

ciao,

apri un nuovo progetto di delphi
inserisci un button
inserisci un campo edit

metti questo codice nell'evento click del button

procedure TForm1.Button1Click(Sender: TObject);
var
 n:integer;
 i:integer;
 media:currency;
 conta:integer;
 somma:integer;
begin
n:=StrToInt(Edit1.Text);
conta:=0;
somma:=0;
for i:= 1 to n do
  begin
   if (n mod i)=0 then
    begin
      conta:=conta+1;
      somma:=somma+i;
    end;
  end;

media:=somma/conta;
ShowMessage(FormatCurr(',0.00',media));
end;

l'ho testato e funge.

ciao

[LeleFT]

Originariamente inviato da xswat
io ho ftt una cosa così ma i divisori nn so proprio km farli,,,

grz in anticipo

[...]

al meno qlk per favoreeee

[...]

qnd scrive inserisci un num lo inserisco e poi la finestra scompare

[...]

(grz cmq dell'aiuto)

Come da regolamento...

Anche il linguaggio usato nel messaggio deve essere comprensibile (evitare abbreviazioni da SMS e parole dialettali), ricontrollando che le frasi abbiano senso in modo che non si debbano scrivere decine di messaggi solo per stabilire il problema.

Ciao.