[ Tisma @ 15.01.2005. 19:38 ] @
Treba mi pomoc oko jednog zadatka koji otprilike glasi:

Napisati program koji izracunava aritmeticku sredinu unteih
brojeva koji su savrseni (zbir delilaca jednak je tom broju
npr. 6=1+2+3 ili 28=1+2+4+7+14).
Ja sam to ovako pokusao da resim ali ne radi.

Code:

Program savrseni;
  uses crt;
  var
    broj,zbir,brojac,i,n,s,delilac:integer;
    AS:real;
  begin
    clrscr;
    brojac:=0;
    zbir:=0;
    delilac:=1;
    writeln ('Koliko brojeva unosite? '); readln (n);
      for i:=1 to n do
        begin
          write ('Unesite ',i ,'. broj ');
          readln (broj);
            for s:=2 to (broj-1) do
              if (broj mod s=0) then delilac:=delilac+s;
        if delilac=broj then
          begin
            brojac:=brojac+1;
            zbir:=zbir+broj;
          end;
        end;
    if brojac=0 then writeln ('Niste uneli ni jedan savrsen broj!');
    AS:=zbir/brojac;
    writeln ('Aritmeticka sredina unetih savrsenih brojeva je ',AS:5:2);
  readln
end.

Plz help!

[Ovu poruku je menjao Tisma dana 16.01.2005. u 14:57 GMT+1]
[ bancika @ 16.01.2005. 00:24 ] @
pa zezaj i ti njega :)...napisi prvo funkciju Savrsen(n: Integer): boolean;

onda:

Code:

for i := 1 to n do
 begin
   ReadLn(a[i]);
   if Savrsen(a[i]) then
    begin
      Inc(Uzeti); Suma := Suma + a[i];
    end;
  AS := Suma/Uzeti;
  WriteLn(AS:0:2);
[ Bojan Basic @ 16.01.2005. 00:34 ] @ 
Program savrseni;

  uses crt;

  var

    broj,zbir,brojac,i,n,s,delilac:integer;

    AS:real;

  begin

    clrscr;

    brojac:=0;

    zbir:=0;

    delilac:=1;

    writeln ('Koliko brojeva unosite? '); readln (n);

      for i:=1 to n do

        begin

          write ('Unesite ',i ,'. broj ');

          readln (broj);

            for s:=2 to (broj-1) do

              if (broj mod s=0) then delilac:=delilac+s;

        if delilac=broj then

          begin

            brojac:=brojac+1;

            zbir:=zbir+broj;

          end;

        end;

    if brojac=0 then writeln ('Niste uneli ni jedan savrsen broj!');

    AS:=zbir/brojac;

    writeln ('Aritmeticka sredina unetih savrsenih brojeva je ',AS:5:2);

  readln

end.
[ Tisma @ 16.01.2005. 13:56 ] @
Citat:
bancika: pa zezaj i ti njega :)...napisi prvo funkciju

Da ali još nismo radili funkcije i procedure!
Zato i pitam.

@Bojan Basic

To sam slucajno napisao jer sam prepravljao prvobitni zadatak gde je umesto broj pisalo n.Ali nije u tome greška.
[ sasas @ 16.01.2005. 16:59 ] @
Pitane i predlog:

1. Sta tacno ne radi?

2. u ovom delu kooda:

Code:

    delilac:=1;

    writeln ('Koliko brojeva unosite? '); readln (n);

      for i:=1 to n do


to delilac := 1 treba da spustis unutar ciklusa, posle ovog for i := ...

inace meni izgleda kao da ce da proradi.

ss.
[ Tisma @ 16.01.2005. 21:41 ] @
@sasas

Bio si u pravu za ovaj predlog.Sad radi tačno.
Hvala!