- This topic has 2 hozzászólás, 3 résztvevő, and was last updated 19 years, 7 months telt el by
.
-
Bejegyzés
-
Nem egészen értem, bekérsz hátom számot, ezeket összeszorzod, hozzáadsz egyet, és utána kiírod az osztóit? Ezt csinálja az eredeti progid?
Mert akkor egyszerûen mindig ugyanazt a változót kéred be, és egy másikat szorzol vele, pl így:Code:var szam, eredmeny, db : longint;begin
Writeln(‘Hány számot akarsz szorozni?’);
Readln(db);
eredmeny:=1;
Repeat
Writeln(‘Kérek egy számot!’);
Readln(szam);
eredmeny:=eredmeny*szam;
db:=db-1;
Until db=1;
eredmeny:=eredmeny+1;
//ide pedig jöhet az osztóvizsgálat
end.Van egy apró progim, ami számok szorzatából prímszámot csinál (A*B*C+1), és ennek kiírja az osztóit. Mivel nem csak prím jön létre, ezért van szükség az osztók kiírására. A problémám az, hogyha mondjuk nem három, hanem négy szám szorzatából akarok kreálni, akkor ahhoz már egy másik progi kell. Kéne valami olyasmi, hogy meg lehessen határozni a változók számát, akár mátrixxal, akár a meghatározott változókból használandó darabszámmal, valami ilyesmi kellene. Mivel mások forráskódjaiból tanultam a Pascalt, így „guruk” kifejezéseit nem nagyon értem :wink1:
Elõre is köszönöm a segítséget: Zsombor
- Be kell jelentkezni a hozzászóláshoz.
legutóbbi hsz