Hledání prvočísel v matici - funkce – Pascal – Fórum – Programujte.com

Dobrý den, 

chtěla bych vás požádat o pomoc. Můj úkol zní: Naplňte matici A náhodnými čísly. Určete sumu všech prvočísel v matici. Matici a sumu vypište.

Naplnit a vypsat matici mi problém nedělá, jenže nemůžu se dostat přes hledání prvočísel v matici za pomocí funkce. Jsem v tom nová a nemohla jsem nic najít co by mi pomohlo, tak prosím o popostrčení :-)

můj kód vypadá zatím takto: (začátek funkce vypadá dost šíleně ale ta matice mi dělá opravdu problém :-( )

program project1;

const
  M = 10;
  N = 10;

type
  matice = array [1..M,1..N] of integer;

var
  i,j,:integer;
  A:matice;
procedure napln (var x:matice);
begin

  for i := 1 to M do
        for j := 1 to N do
           x[i,j] := random(100);

end;
procedure vypis (x:matice);
begin
  for i := 1 to M do
       begin
        for j := 1 to N do
           write(x[i,j],' ');
        writeln;
       end;
end;
function prvocislo(x:matice):integer;
begin
     for i:=1 to M do
     for j:=1 to N do
     begin
     if x[i,j] <= 1 then
     else if x[i,j] mod 2 = 0 then
     else if x[i,j] mod 3 = 0 then
     else if x[i,j] mod 5 = 0 then
     else if x[i,j] mod 7 = 0 then
     else
     writeln(x[i,j]);
     end;
end;

#1 Nikolishe
Zkus si projít následující program http://www.ms.mff.cuni.cz/…vocislo.html a udělej si z něho funkci, která místo toho výpisu, pokud to bude prvočíslo, ho přičte do nějaké proměnné soucet, ve které se budou ta prvočísla sčítat.

Jinak bych ještě v tom plnění natice to udělal takto: x[i,j] := random(99)+1; (pak ti to bude matici plnit čísly od 1 do 99) (tobě to teď plní matici čísly od 0 do 99) a pak ještě výpis

write(x[i,j],' '); zkus přepsat na write(x[i,j] :3);

Děkuji. Předělala jsem ten uvedený program na funkci, všechno mi funguje tak jak má, tak jsem se pustila do předělávání mojí práce, ale nedaří se mi s maticí.

Při spuštění mí program vypíše(sečte) poslední číslo v matici pokud je zrovna prvočíslo a ostatní čísla v matici mi ignoruje. Nevím jak napsat kód aby mi vyhledával s sčítal prvočísla v celé matici.

Útržek mého kódu vypadá takto:

var
  i,j,D,pocet,soucet:integer;
  A:matice;

function prvocislo(x:matice):integer;
begin
  prvocislo:= x[1,1];
  for i := 1 to M do
        for j := 1 to N do
            if x[i,j] <= 0 then
            else if x[i,j] = 1 then
            else begin
                pocet := 0;
                D := 2;
                soucet:=0;
                while (pocet = 0) and (D < sqrt(x[i,j])) do begin
                        if x[i,j] mod D = 0 then pocet := pocet + 1;
                        D := D + 1;
                        end;
                if pocet = 0 then
                begin
                soucet:=soucet + x[i,j];
                end;
            end;
end;

begin

   randomize;
   napln(A);
   vypis(A);
   writeln;
   prvocislo(A);
   writeln('Soucet: ', soucet);
   readln;

end.

Tak jsem zjistila že ten kód v tom odkazu je špatně, protože tvrdí i na složené číslo že je prvočíslo, takže jsem opět na začátku :-( Prosím Vás kdyby někdo měl nějaký nápad poraďte, už to pomalu začínám vzdávat

#4 Nikolishe
Kód v odkazu je asi správně, a tobě to sčítá jen poslední číslo, protože součet prvočísel nuluješ kde? Před zkoumáním každého jednoho čísla z matice...

#4 Nikolishe
Je to sice trapné, už si ale nepamatuju jak se pracuje s prvočísly. Ovšem pokud tam dáte místo tohoto:

while (pocet = 0) and (D < sqrt(x[i,j])) do begin

bez odmocniny:

while (pocet = 0) and (D < x[i,j]) do begin

tak by to mělo fungovat. Logicky bude číslo dělitelné maximálně půlkou, takže bych to vydělil dvěma:

while (pocet = 0) and (D < x[i,j] / 2) do begin

určitě existují efektivnější algoritmy, jak zjistit prvočíslo, tohle by ale mělo fungovat.

V tom programu se nějak vůbec nevyznám. Chtělo by to vyřešit to po kouscích.

První krok: napiš si funkci, která ti řekne, jestli dané číslo je prvočíslo:

function JePrvocislo(cislo:integer):boolean;
Begin
...
End;

Odzkoušej ji v samostatném prográmku, ve kterém ji budeš ručně krmit různými čísly a sledovat, jestli z ní vypadne true nebo false:

writeln('konci se zadanim nuly');
 repeat
 write('cislo k otestovani: ');
 readln(cislo);
 if JePrvocislo(cislo) then writeln('je')
                       else writeln('neni');
 until cislo=0;

Jakmile si budeš jistá, že funkce funguje správně, pusť ji na tu matici. Projdi všechny prvky matice a u každého otestuj, jestli je prvočíslo. Jestli jo, přičti ho k součtu. Jestli ne, nedělej nic.

soucet:=0;
for i:=1 to m do
 for j:=1 to n do if JePrvocislo(matice[m,n]) then ...

Na konci budeš mít hledaný součet všech prvočísel v matici.

Jinak k tomu určování prvočíselnosti: číslo je prvočíslo, pokud se nedá ničím vydělit beze zbytku. Tedy pokud dělením všemi čísly od 2 do toho čísla dají nenulový mod. Stačí na to jeden cyklus typu for a jedna proměnná typu boolean. Tu na začátku nastav na true (předpokládáme, že to je prvočíslo) a kdykoli ti vyjde nulový mod, změň ji na false (není to prvočíslo). Pokud na true vydržela až do konce, prvočíslo to je.

Rozsah cyklu můžeme zkrátit. Třeba když zkoušíme číslo 7 dělit dvojkou, vyjde nám trojka a nějaký zbytek. Pak už ho nemusíme dělit trojkou, protože by nám vyšla dvojka a tu už jsme jednou testovali (3*2=2*3). Takže můžeme skončit ve chvíli, kdy nám dělitel začne převyšovat podíl, tedy na odmocnině z toho testovaného čísla (sqrt). Výsledek bude stejný, jenom se počítač míň nadře a bude to mít dřív hotové.

Děkuji moc všem :-)) od všech jsem si něco vzala a konečně se mi povedlo projekt dokončit. Kód na určování prvočísla není zrovna efektivní ale přepočítavala jsem 4x součty a výsledek byl správně.

Tady dávám konečný kód:

program project1;

const
  M = 10;
  N = 10;

type
  matice = array [1..M,1..N] of integer;

var
  i,j,D,soucet:integer;
  A:matice;

procedure napln (var x:matice);
begin

  for i := 1 to M do
        for j := 1 to N do
           x[i,j] := random(99)+1;

end;
procedure vypis (x:matice);
begin
  for i := 1 to M do
       begin
        for j := 1 to N do
           write(x[i,j] :3);
        writeln;
       end;
end;
function prvocislo(x:matice):integer;
begin
  soucet:= 0;
  for i := 1 to M do
        for j := 1 to N do
            if x[i,j] <= 0 then
            else if x[i,j] = 1 then
            else begin
                D := 2;
                while x[i,j] mod D <> 0 do
                        D := D + 1;
                if D = x[i,j] then
                begin
                soucet:=soucet + x[i,j];
                end;
            end;
end;

begin

   randomize;
   napln(A);
   vypis(A);
   writeln;
   prvocislo(A);
   writeln('Soucet prvocisel je ', soucet);
   readln;

end.