| | |
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Autor | Správa |
---|
Registrovaný: 14.12.08 Prihlásený: 07.01.21 Príspevky: 34 Témy: 12 | Napísal noff: 15.12.2008 17:08 | |
|
Ahojte!
Mam vytvorit algoritmus na výpis prvých n prvočísel
Vypisuje mi stale <16,1>syntax error, ";" expected but "UNTIL" found
a uz neviem ze co sa mu v tom riadku nepaci
Kód: program N_prvocisel; uses CRT; var N, I, PP, PD, C: integer; begin ClrScr; writeln(‘Zadaj pocet prvocisel: ‘); readln(N);
PP:=0;
for I:=1 to C do
if C mod I=0 then PD:=PD+1;
if PD=2 then begin
writeln(C,‘ ‘); PP:=PP+1 end; until PP=N; %<16,1> readln; end.
Dakujem
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 |
Chyba ti tam repeat, taktiez neviem co tam ma znamenat to %, tym si myslel ako konjunkciu? Aj tak myslim, ze by ten algoritmus nefungoval (odhliadnuc od syntaktickych chyb)
|
|
Registrovaný: 14.12.08 Prihlásený: 07.01.21 Príspevky: 34 Témy: 12 | Napísal autor témy noff: 15.12.2008 17:14 | |
|
Do rici
Diki pekne
|
|
Registrovaný: 14.12.08 Prihlásený: 07.01.21 Príspevky: 34 Témy: 12 | Napísal autor témy noff: 15.12.2008 17:15 | |
|
noff píše: Do rici Diki pekne
nie tim % len som oznacil ten riadok co mi tam vypisal ako chybny
ale presne tak..neide mi to
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 |
Tak to mozes spravit napr. takto
Kód: program noff; var N, I, J:integer; je_prvocislo: boolean; pocet: integer; begin readln(N); pocet:=0; I:=1;
writeln('Prvych ', N, ' prvocisel: ');
while (pocet<>N) do begin I:=I+1; je_prvocislo:=true; pocet:=pocet+1; for J:=2 to trunc(sqrt(I)) do if (I mod J)=0 then je_prvocislo:=false; if je_prvocislo then writeln(I) else pocet:=pocet-1; end;
readln; end.
...alebo pouzit Eratostenovo sito, co je asi efektivnejsie
|
|
Registrovaný: 14.12.08 Prihlásený: 07.01.21 Príspevky: 34 Témy: 12 | Napísal autor témy noff: 16.12.2008 10:24 | |
|
Diki pekne !!!
|
|
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| pascal pomoc v Assembler, C, C++, Pascal, Java | 7 | 689 | 31.08.2009 14:04 juho | | pascal pomoc v Assembler, C, C++, Pascal, Java | 0 | 923 | 12.06.2007 13:07 gorky22 | | Pascal pomoc v Assembler, C, C++, Pascal, Java | 2 | 843 | 14.12.2008 11:11 noff | | pomoc pascal pole [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 31 | 3503 | 31.01.2009 11:24 neutronmind | | Prosim o pomoc v PASCAL-e v Assembler, C, C++, Pascal, Java | 5 | 1004 | 13.05.2007 22:31 audiotrack | | Pascal podmienka ak lezi v poli... pomoc v Assembler, C, C++, Pascal, Java | 2 | 379 | 11.12.2011 13:42 Blackhair | | Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 385 | 19.12.2014 13:18 Styracoz | | pascal v Assembler, C, C++, Pascal, Java | 11 | 1289 | 07.04.2007 16:50 programator | | Pascal [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 40 | 1473 | 11.12.2016 22:08 viki | | pascal v Assembler, C, C++, Pascal, Java | 0 | 707 | 03.05.2009 12:35 ebb | | pascal... v Assembler, C, C++, Pascal, Java | 5 | 906 | 18.10.2008 19:02 redog | | pascal v Assembler, C, C++, Pascal, Java | 6 | 731 | 08.01.2009 17:45 majka090 | | pascal v Assembler, C, C++, Pascal, Java | 19 | 3060 | 30.04.2007 19:54 nikita | | pascal v Assembler, C, C++, Pascal, Java | 2 | 1106 | 09.03.2007 14:08 misolax | | Pascal v Assembler, C, C++, Pascal, Java | 4 | 2066 | 01.03.2018 8:02 MTK | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 832 | 14.05.2011 20:04 F3RY |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|