Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
11.12.2001. Delphi
16.01.2002. Ispis "četvorocifrenih blizanaca" (pro..
16.01.2002. Prosti brojevi u kriptovanju
23.06.2002. :[Prosti Brojevi...]:
15.04.2004. Kineska teorema o ostacima
21.02.2004. Hitno! Delphi ne radi
05.11.2005. Da li je ikako moguce da Quick Report komponenta ..
20.11.2012. matematika-postavka zanimljiva zadatka
05.02.2005. OpenGL i Delphi?

Navigacija

Brisanje liste

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

[Delphi] prosti brojevi

[es] :: Pascal / Delphi / Kylix :: [Delphi] prosti brojevi

[ Pregleda: 2516 | Odgovora: 7 ] > FB > Twit

Autor

Vole Domu
Beograd

Član broj: 54957
Poruke: 478
*.adsl.beocity.net.

+67 Profil

[Delphi] prosti brojevi

^{09.12.2006. u 12:23 - pre 212 meseci}

Radim u delphiju neki program u kome korisnik zadaje neki broj a program proverava koliko ima prostih brojeva do tog broja...
e sad ja sam skapirao da to treba da izgleda otprilike ovako, ali nesto zapinjem ako neko moze da kaze gde je greska...

Code:

   begin
   for i:=1 to n do begin
   x:=false;
   for j:=2 to round(sqrt(i)) do
   if i mod j=0 then x:=false else x:=true;
   if x=true then brprbr:=brprbr+1; end;
   label2.Visible:=true;
   label2.caption:=inttostr(brprbr);  end;

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: [Delphi] prosti brojevi

^{09.12.2006. u 12:56 - pre 212 meseci}

Code:

{$APPTYPE CONSOLE}

const
  n = 10000;
var
  C1, C2 : Integer;
  prbr   : Boolean;
begin
  For C1 := 1 to n Do
  Begin
    prbr := TRUE;
    For C2 := 2 to Round(SQRT(C1)) Do
      If C1 mod C2 = 0 Then
      Begin
        prbr := FALSE;
        Break;
      End;
    If prbr Then
      WriteLn(C1);
  End;
end.

Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.dynamic.sbb.co.yu.

+1 Profil

Re: [Delphi] prosti brojevi

^{09.12.2006. u 13:32 - pre 212 meseci}

Ovu poruku bi trebalo brisati jer lici na resavanje domaceg zadatka. Sta to znaci: imam neki problem, gde je greska u ovom programu? Prvo treba da napises: startujem ga i prijavljuje mi tu i tu gresku, ili startujem ga ali mi ispisuje to i to umesto toga i toga pa da resavamo. Ovo mi lici na klasican primer prepisivanja koda pa ako ne radi da neko od nas trazi gde je problem.

Odgovor na temu

Vole Domu
Beograd

Član broj: 54957
Poruke: 478
*.adsl.beocity.net.

+67 Profil

Re: [Delphi] prosti brojevi

^{09.12.2006. u 14:28 - pre 212 meseci}

Ne razumem, prvo ovo je samo deo zadatka, nisam postavio tekst zadatka pa pitao nekoga da uradi... nego sam pitao gde gresim.... e sad samo trebalo je da napisem da kad upalim program i izvlacim rezultate u listbox prijavljuje brojeve koji nisu prosti (npr 8). Mislim za omi je ako je tako ispalo ali stvarno nisam znao kako drugacije da postavim, jer sam bas na tom delu zapeo.

Odgovor na temu

Vole Domu
Beograd

Član broj: 54957
Poruke: 478
*.adsl.beocity.net.

+67 Profil

Re: [Delphi] prosti brojevi

^{09.12.2006. u 14:39 - pre 212 meseci}

Cekaj, a sta je razlika izmedju ova dva koda....ja sam samo zadao for do unesenog n, a ti do 10000. cemu sluzi break;?
i ovo mi ne radi posao zato sto mi treba da racuna proste brojeve do uneshenog N a ne do 10000, ovako ce da izbaci sve proste do 10000 svaki put kad pokrenem/// help

edit: evo proradilo samo sam promenio da ide do zadatog n, ali i dalje ne kapiram u cemu je razlika?
nista svejedno hvala, puno i izvinjavam se ako ste ovo skapirali kao radjenje domaceg...

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: [Delphi] prosti brojevi

^{09.12.2006. u 16:06 - pre 212 meseci}

Pa onaj kod koji sam ti dao izvlaci sve proste brojeve od 1 do 10000, a ti posle menjaj kod da ide od 1 do n i dodaje u listbox... Ti u prvom postu nisi naveo da treba da punis listbox itd.. Otkud mi da znamo sta ti treba :)

Odgovor na temu

Vole Domu
Beograd

Član broj: 54957
Poruke: 478
*.adsl.beocity.net.

+67 Profil

Re: [Delphi] prosti brojevi

^{09.12.2006. u 16:10 - pre 212 meseci}

ma ne, ok je, hvala ti puno... ne bunim se ja nista....
nego reci mi cemu sluzi break;?
poz