Sieb des Eratosthenes
In diesem Programm werden mit Hilfe des Siebs von Eratosthenes die Primzahlen bestimmt. Leitet man die Ausgabe in eine LaTeX-Datei um, so erhält man:
| sieb.tex |
|---|
| \begin{tabular}{|c|c|c|c|c|c|c|c|c|c|} \hline 1 & 2 & 3 & $\not{4}$ & 5 & $\not{6}$ & 7 & $\not{8}$ & $\not{9}$ & $\not{10}$ \\ \hline 11 & $\not{12}$ & 13 & $\not{14}$ & $\not{15}$ & $\not{16}$ & 17 & $\not{18}$ & 19 & $\not{20}$ \\ \hline $\not{21}$ & $\not{22}$ & 23 & $\not{24}$ & $\not{25}$ & $\not{26}$ & $\not{27}$ & $\not{28}$ & 29 & $\not{30}$ \\ \hline 31 & $\not{32}$ & $\not{33}$ & $\not{34}$ & $\not{35}$ & $\not{36}$ & 37 & $\not{38}$ & $\not{39}$ & $\not{40}$ \\ \hline 41 & $\not{42}$ & 43 & $\not{44}$ & $\not{45}$ & $\not{46}$ & 47 & $\not{48}$ & $\not{49}$ & $\not{50}$ \\ \hline $\not{51}$ & $\not{52}$ & 53 & $\not{54}$ & $\not{55}$ & $\not{56}$ & $\not{57}$ & $\not{58}$ & 59 & $\not{60}$ \\ \hline 61 & $\not{62}$ & $\not{63}$ & $\not{64}$ & $\not{65}$ & $\not{66}$ & 67 & $\not{68}$ & $\not{69}$ & $\not{70}$ \\ \hline 71 & $\not{72}$ & 73 & $\not{74}$ & $\not{75}$ & $\not{76}$ & $\not{77}$ & $\not{78}$ & 79 & $\not{80}$ \\ \hline $\not{81}$ & $\not{82}$ & 83 & $\not{84}$ & $\not{85}$ & $\not{86}$ & $\not{87}$ & $\not{88}$ & 89 & $\not{90}$ \\ \hline $\not{91}$ & $\not{92}$ & $\not{93}$ & $\not{94}$ & $\not{95}$ & $\not{96}$ & 97 & $\not{98}$ & $\not{99}$ & $\not{100}$ \\ \hline 101 & $\not{102}$ & 103 & $\not{104}$ & $\not{105}$ & $\not{106}$ & 107 & $\not{108}$ & 109 & $\not{110}$ \\ \hline $\not{111}$ & $\not{112}$ & 113 & $\not{114}$ & $\not{115}$ & $\not{116}$ & $\not{117}$ & $\not{118}$ & $\not{119}$ & $\not{120}$ \\ \hline $\not{121}$ & $\not{122}$ & $\not{123}$ & $\not{124}$ & $\not{125}$ & $\not{126}$ & 127 & $\not{128}$ & $\not{129}$ & $\not{130}$ \\ \hline 131 & $\not{132}$ & $\not{133}$ & $\not{134}$ & $\not{135}$ & $\not{136}$ & 137 & $\not{138}$ & 139 & $\not{140}$ \\ \hline $\not{141}$ & $\not{142}$ & $\not{143}$ & $\not{144}$ & $\not{145}$ & $\not{146}$ & $\not{147}$ & $\not{148}$ & 149 & $\not{150}$ \\ \hline 151 & $\not{152}$ & $\not{153}$ & $\not{154}$ & $\not{155}$ & $\not{156}$ & 157 & $\not{158}$ & $\not{159}$ & $\not{160}$ \\ \hline $\not{161}$ & $\not{162}$ & 163 & $\not{164}$ & $\not{165}$ & $\not{166}$ & 167 & $\not{168}$ & $\not{169}$ & $\not{170}$ \\ \hline $\not{171}$ & $\not{172}$ & 173 & $\not{174}$ & $\not{175}$ & $\not{176}$ & $\not{177}$ & $\not{178}$ & 179 & $\not{180}$ \\ \hline 181 & $\not{182}$ & $\not{183}$ & $\not{184}$ & $\not{185}$ & $\not{186}$ & $\not{187}$ & $\not{188}$ & $\not{189}$ & $\not{190}$ \\ \hline 191 & $\not{192}$ & 193 & $\not{194}$ & $\not{195}$ & $\not{196}$ & 197 & $\not{198}$ & 199 & $\not{200}$ \\ \hline $\not{201}$ & $\not{202}$ & $\not{203}$ & $\not{204}$ & $\not{205}$ & $\not{206}$ & $\not{207}$ & $\not{208}$ & $\not{209}$ & $\not{210}$ \\ \hline 211 & $\not{212}$ & $\not{213}$ & $\not{214}$ & $\not{215}$ & $\not{216}$ & $\not{217}$ & $\not{218}$ & $\not{219}$ & $\not{220}$ \\ \hline $\not{221}$ & $\not{222}$ & 223 & $\not{224}$ & $\not{225}$ & $\not{226}$ & 227 & $\not{228}$ & 229 & $\not{230}$ \\ \hline $\not{231}$ & $\not{232}$ & 233 & $\not{234}$ & $\not{235}$ & $\not{236}$ & $\not{237}$ & $\not{238}$ & 239 & $\not{240}$ \\ \hline 241 & $\not{242}$ & $\not{243}$ & $\not{244}$ & $\not{245}$ & $\not{246}$ & $\not{247}$ & $\not{248}$ & $\not{249}$ & $\not{250}$ \\ \hline 251 & $\not{252}$ & $\not{253}$ & $\not{254}$ & $\not{255}$ & $\not{256}$ & 257 & $\not{258}$ & $\not{259}$ & $\not{260}$ \\ \hline $\not{261}$ & $\not{262}$ & 263 & $\not{264}$ & $\not{265}$ & $\not{266}$ & $\not{267}$ & $\not{268}$ & 269 & $\not{270}$ \\ \hline 271 & $\not{272}$ & $\not{273}$ & $\not{274}$ & $\not{275}$ & $\not{276}$ & 277 & $\not{278}$ & $\not{279}$ & $\not{280}$ \\ \hline 281 & $\not{282}$ & 283 & $\not{284}$ & $\not{285}$ & $\not{286}$ & $\not{287}$ & $\not{288}$ & $\not{289}$ & $\not{290}$ \\ \hline $\not{291}$ & $\not{292}$ & 293 & $\not{294}$ & $\not{295}$ & $\not{296}$ & $\not{297}$ & $\not{298}$ & $\not{299}$ & $\not{300}$ \\ \hline \end{tabular} |
Dies sieht wie folgt aus:
Und hier kommt das Programm:
| eratosthenes_sieb.pas |
|---|
| program Sieb; uses arithmetik; var n : integer; schrittweite : integer; i,j : integer; first : boolean; begin schrittweite:=10; n:=300; write('\begin{tabular}{|'); for i:=1 to schrittweite do write('c|'); writeln('} \hline'); for j:=0 to (n div schrittweite)-1 do begin for i:=(1+j*schrittweite) to ((j+1)*schrittweite) do begin if (istprim(i)) then begin if (i mod schrittweite = 0) then writeln(i, ' \\ \hline') else write(i, ' & '); end else begin if (i mod schrittweite = 0) then writeln('$\not{',i,'}$ \\ \hline') else write('$\not{',i,'}$ & '); end end; end; writeln('\end{tabular}'); end. |
Letzte Änderung: 26.04.2012: 17:23:52 von X. Rendtel
Dieses Werk bzw. Inhalt steht unter einer Creative Commons Namensnennung-Weitergabe unter gleichen Bedingungen 3.0 Unported Lizenz.
Beruht auf einem Inhalt unter www.rendtel.de.