[Delphi] prosti brojevi

[Delphi] prosti brojevi 09.12.2006. u 13:23 · pre 242 meseca #1

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;

Re: [Delphi] prosti brojevi 09.12.2006. u 13:56 · pre 242 meseca #2

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.

Re: [Delphi] prosti brojevi 09.12.2006. u 14:32 · pre 242 meseca #3

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.

Re: [Delphi] prosti brojevi 09.12.2006. u 15:28 · pre 242 meseca #4

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.

Re: [Delphi] prosti brojevi 09.12.2006. u 15:39 · pre 242 meseca #5

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...

Re: [Delphi] prosti brojevi 09.12.2006. u 17:06 · pre 242 meseca #6

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

Re: [Delphi] prosti brojevi 09.12.2006. u 17:10 · pre 242 meseca #7

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

Re: [Delphi] prosti brojevi 09.12.2006. u 19:32 · pre 242 meseca #8

Citat:

Causes the flow of control to exit a for, while, or repeat statement.

Znaci prekida izvrsavanje i izlazi iz for, while ili repeat petlje.

Forum kao aplikacija na telefonu

Srodne teme