Prímszámok kiírása Pascalban?
válasza: válasza:Ha nem tudod, mi az a ciklus, hogyan írtál prímszám vizsgálatot?
Pascal-ban van 3 féle ciklus is (for, do..while és repeat..until), a feladat mindhárommal megoldható.
Tanulgass:
válasza: válasza:És amúgy ezt kéne összeraknod:
ciklus i megy 1-től 1000-ig
.. prímvizsgálat(i)
ciklus vége
program primszam;
var x,i,db: longint;
begin
for i:=1 to 100 do
begin
for i:=1 to x do
if (x mod i)=0 then inc(db);
if db=2 then writeln('Prím')
else writeln('Nem prím');
end;
readln;
end.
Na eddig jutottam de már ég az agyam lol szóval egy kis segítséget,tudom h ez nem jó ami jó az csak a z utolsó szám (100) ról mondja meg h a nem prím szóval mit tegyek mesterek :D
program primszam;
var x,i,db: longint;
begin
repeat
begin
random (101);
for i:=1 to x do
if (x mod i)=0 then inc(db);
if db=2 then writeln('Prím')
else writeln('Nem prím');
end;
until x=101;
readln;
end.
Na itt a második változat,elindul de az összesre "nem prím"et írt miért?
program primszam;
var x,i,db: longint;
begin
repeat
begin
x:= random (100);
for i:=1 to x do
if (x mod i)=0 then inc(db);
if db=2 then writeln('Prím')
else writeln('Nem prím');
end;
until x=99;
readln;
end.
Na a V3 is elkészült pár hiba javítva,tovább dolgozom rajta de egy kis segítség akár skypon is jól jönne
program primszam;
var x,i,db:longint;
begin
repeat
begin
for x:= random (100) to 100 do
for i:=1 to x do
if (x mod i)=0 then inc(db);
if db=2 then writeln('Prím')
else writeln('Nem prím');
end;
until x=99;
readln;
end.
NA jó azt hiszem lassacskán h az egész prim kereső egy kuka pls HELP!
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!