Mohli by ste mi prosím pomôcť s úlohou z Pascal-a, moje zadanie :
Napíšte program, ktorý zistí, či je dané číslo prvočíslo alebo nie je.
Absolútne sa neviem pohnúť s tým ani neviem aké príkazy by som mal použiť,prosím pomoc,dopredu ďakujem//K+
PASCAL úloha
Re: PASCAL úloha
A na hodinách si nedával pozor? Vieš čo je to pascal? Vieš kde a ako ho spustíš?
-
w00dy
Light Star
- Príspevky: 225
- Registrovaný: 21 feb 2011, 13:59
- Bydlisko: Žiar Nad Hronom
- Kontaktovať používateľa:
Re: PASCAL úloha
Mohol by si mi prosím ťa poslať návod? ĎakujemBX napísal:A na hodinách si nedával pozor? Vieš čo je to pascal? Vieš kde a ako ho spustíš?
potrebujem pomoc a nie aby si si zvýšil ego Re: PASCAL úloha
To nepotrebujem. Ale napísať "neviem čo s tým, poraďte" je na nič. Ako mám vedieť, či máš nejaký konkrétny problém, alebo ani nevieš, čo je to pascal a chceš od niekoho hotový kód, aby si mal?
http://www.hojko.com/post1965260.html#p1965260
http://www.hojko.com/post1965260.html#p1965260
Re: PASCAL úloha
http://stackoverflow.com/questions/4537 ... me-numbers
do pascalu to snad nebudes mat problem prepisat
do pascalu to snad nebudes mat problem prepisat
Re: PASCAL úloha
Skúšal si google ? Ja áno -> http://www.asuod.chytrak.cz/pascal.html
Je to tam aj so zdrojakom
Je to tam aj so zdrojakom
Re: PASCAL úloha
Tak, hadam bude stacit. Maximalna velkost je 65535 kvoli typu WORD. 
Kód: Vybrať všetko
Program PRVOCISLA;
uses Crt;
var
cislo,x,y,max: Word;
BEGIN
ClrScr;
Write('Zadaj max. cislo: ');
ReadLn(cislo);
for x := 1 to cislo do begin
max := Trunc(sqrt(x)) + 1;
for y := 2 to max do
if (x mod y) = 0 then
Break;
if y = max then
Write(x,',');
end;
END.