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

Pascal - prosti cinioci

[es] :: Pascal / Delphi / Kylix :: Pascal - prosti cinioci

[ Pregleda: 3603 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Goran Rakić
Beograd

Član broj: 999
Poruke: 3766

Sajt: blog.goranrakic.com


+125 Profil

icon Pascal - prosti cinioci04.12.2001. u 16:49 - pre 241 meseci
Imali smo kontrolni i jedan zadatak je bio da:
broj n rastavimo na proste cinioce i to lepo ispisemo na ekranu...
Ja sam napravio programce, preko DIV i MOD operacija, koje odredi cinioce, ali umesto da za n=12 uradi 2 2 3 uradi 2 3... to jest ne odredi koliko je puta neki cinilac cinilac:
evo i koda:

PROGRAM rastavi_na_cinioce;
VAR n,I,A,P:integer;
BEGIN
writeln ('Unesi broj n: ');
read (n);
FOR I:=2 TO (n DIV 2) DO BEGIN
P:=0;
IF n MOD I=0 THEN BEGIN
FOR A:=1 TO I DO BEGIN
IF I MOD A=0 THEN P:=P+1;
END;
IF P<=2 THEN writeln (I);
END;
END;
END.
http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja
 
Odgovor na temu

shaDy
Nikola J
-=BGD=-

Član broj: 1507
Poruke: 240
*.ppp-bg.sezampro.yu

Sajt: www.CikloBerza.com


Profil

icon Re: Pascal - prosti cinioci12.12.2001. u 00:34 - pre 241 meseci
Pogledo sam tvoj zadatak ali nisam imao vremena da provaljujem
kako si radio.
Ali evo srocio sam ti na sledeci nacin, mozda je malo prostije:


var n,k: integer;

begin
readln(n);
k:=2; { k je faktor}
while k<=n do
If n mod k = 0 then
begin
write(k,' ');
n:=n div k;
end
else inc(k);
end.

Nadam se da ti je pomoglo.

Poz

 
Odgovor na temu

Goran Rakić
Beograd

Član broj: 999
Poruke: 3766

Sajt: blog.goranrakic.com


+125 Profil

icon Re: Pascal - prosti cinioci12.12.2001. u 15:00 - pre 241 meseci
hvala
http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pascal - prosti cinioci

[ Pregleda: 3603 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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