Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Paskal zadatak II

[es] :: Pascal / Delphi / Kylix :: Paskal zadatak II

[ Pregleda: 1583 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Djuki
Djurdjevac Ivan
Pancevo

Član broj: 56
Poruke: 171
*.panet.co.yu

Jabber: djuki_mag@elitesecurity.org
ICQ: 66867882


Profil

icon Paskal zadatak II06.12.2001. u 17:24

Napisati program koji ce od datog niza da formira novi u kome ce se nalaziti savrsheni brojevi datog niza. Broj je savrsen ako je jednak zbiru svojih delioca iskljucucuci njega samog. Sa tastature se unosi niz brojeva sve dok se ne unese nula ili negativan broj.
Djuki
Home Page
Đukijev Blog
Preview Gadgets
06.12.2001. u 17:24 

random
Vladimir Vrzić
Senior Software Engineer, Vast.com
Stari Cerak

Tehnički konsultant
Član broj: 85
Poruke: 3846
194.106.163.*

Sajt: www.last.fm/user/vrza


Profil

icon Re: Paskal zadatak II06.12.2001. u 19:03
Analogno prethodnom zadatku, vrtiš istu petlju i delilac broja je ono i za koje je modul pri deljenju n / 1 jednak 0. Nađene delioce smeštaš u privremeni array, zatim po izlasku iz petlje sabereš sve članove tog niza i ako je zbir jednak n, upisuješ n u niz rešenja (ili ga odmah štampaš na ekran, whatever).
int rand(void);

Those who do not understand Unix are condemned to reinvent it, poorly.

Upali lampicu — koristi Jabber!
06.12.2001. u 19:03 

Makojdis
Stefanovic Milos
Kragujevac

Član broj: 78
Poruke: 296
*.ptt.yu



Profil

icon Re: Paskal zadatak II06.12.2001. u 19:29
n,i,suma:integer;

ovo je deo koji proverava da li je broj n savrsen
pa ako hoces da proveris za niz ispred stavis neku petlju
npr. n:=niz[j];

suma:=1;
for i:=2 to n div 2 do
if n mod i=0 then suma:=suma+i;
if suma=n then writeln(n); <<znaci br n je savrsen
06.12.2001. u 19:29 

Toni
Dorćol, Beograd

SuperModerator
Član broj: 15
Poruke: 625
*.verat.net

Jabber: toni@elitesecurity.org
ICQ: 16451419
Sajt: www.netizen.co.yu


Profil

icon Re: Paskal zadatak II07.12.2001. u 08:29
radio sam slican a mrzi me da prepravim.

Code:

program savrsen;
  var
    i,n,m,suma:longint;
  begin
    write('Unesi neki broj: ');readln(m);
    for n:=2 to m do
      begin
        suma:=1;
        for i:=2 to n div 2 do
          if n mod i=0
            then suma:=suma+i;
          if suma=n then writeln('Savrsen broj od 2 do ',m,' je ',n);
      end;
    readln
  end.
Jel potpis treba pisanim ili štampanim slovima?
_________________________________________
www.dizajnzona.com - www.netizenfaction.com
07.12.2001. u 08:29 

[es] :: Pascal / Delphi / Kylix :: Paskal zadatak II

[ Pregleda: 1583 | Odgovora: 3 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.