[es] - Zeza me jedan zadatak

Tisma

Član broj: 13213
Poruke: 305
80.93.237.*

+1 Profil

^{15.01.2005. u 19:38 - pre 234 meseci}

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]}

Bolje jedno vruće pivo nego četri ladna!

Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com

+1 Profil

Re: Zeza me jedan zadatak

^{16.01.2005. u 00:24 - pre 234 meseci}

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);

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Odgovor na temu

Bojan Basic
Novi Sad

SuperModerator
Član broj: 6578
Poruke: 3996
*.dialup.neobee.net.

Jabber: bojan_basic@elitesecurity.org
ICQ: 305820253

+605 Profil

Re: Zeza me jedan zadatak

^{16.01.2005. u 00:34 - pre 234 meseci}

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.

Ljubičice crvena, što si plava kô zelena trava.

Odgovor na temu

Tisma

Član broj: 13213
Poruke: 305
80.93.237.*

+1 Profil

Re: Zeza me jedan zadatak

^{16.01.2005. u 13:56 - pre 234 meseci}

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.

Bolje jedno vruće pivo nego četri ladna!

Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
195.246.3.*

Profil

Re: Zeza me jedan zadatak

^{16.01.2005. u 16:59 - pre 234 meseci}

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.

When something is hard to do, then it's not worth doing.

Odgovor na temu

Tisma

Član broj: 13213
Poruke: 305
80.93.237.*

+1 Profil

Re: Zeza me jedan zadatak

^{16.01.2005. u 21:41 - pre 234 meseci}

@sasas

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

Bolje jedno vruće pivo nego četri ladna!

Odgovor na temu