Új hozzászólás Aktív témák

• #2308 -=Sziszi=- aktív tag

  Új Válasz 2009-01-10 13:46:09 #2308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  -=Sziszi=-

  aktív tag

  Hali Mindenkinek
  Nagyon érdekelt mindig is a programozás, így hát belefogtam most hogy van sok időm Régen tanítottak valamit középsoliban, de az lfasz se volt.
  Önbizalommal telve vágtam bele, hogy először egy kis pascal, hogy megismerjem az alapokat és utána megyek tovább.(Cél C++).
  Jelezném tudom, hogy olyan keveset tudok, hogy az semmi, de hát igyekszem.
  Ennek tudatába nézzétek ezt a progit amit teljesen magamtól írtam.
  Prím számokat keres. Egyenlőre csak egy ciklusmag féle, majd ki akarom bővíteni, hogy elegánsabban nézzen ki, meg hogy meg lehessen határozni a tartományt amiben keres stb.
  Íme az alkotás

  program primszam;
  uses crt;
  var a,b,maradek:longint;
  enter:string;
  valasz:boolean;
  begin
  repeat
  begin
  clrscr;
  writeln('Prˇmsz mok keres‚se');
  write('Keres‚s indˇt sa(ENTER)');
  readln(enter);
  valasz:=enter='';
  end;
  until valasz;
  for a:=2 to 32000000 do
  begin
  b:=1;
  begin
  begin
  repeat
  b:=b+1;
  if b<=a then
  begin
  maradek:=a mod b;
  end;
  until maradek=0;
  end;
  if a<>b then
  else
  writeln('Prim sz m:',a);
  end;
  end;
  readln;
  end.

  Biztos hogy lehet egyszerűbben, de még a moduláris programozásnál sem tartok a témában. Remélem jól számol a progi. Ha van valami észrevételetek, hogyan lehetne egyszerűbb, elegánsabb szívesen fogadom.

  Üdv Szisz

Új hozzászólás Aktív témák