http://mars.merhot.dk/w/index.php?action=history&feed=atom&title=Perl_check_program_opl%C3%A6g 2026-05-13T06:48:49Z Revision history for this page on the wiki MediaWiki 1.29.0 http://mars.merhot.dk/w/index.php?title=Perl_check_program_opl%C3%A6g&diff=9888&oldid=prev 2009-11-09T12:50:46Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr style='vertical-align: top;' lang='en'> <td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td> <td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 12:50, 9 November 2009</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Line 1:</td> <td colspan="2" class="diff-lineno">Line 1:</td></tr> <tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2">&#160;</td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>#Lav subrutine der kan udskrive en teksten på en check.</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>#Lav subrutine der kan udskrive en teksten på en check.</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>##Først mellem 0,00 kr og 99,50 kroner</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>##Først mellem 0,00 kr og 99,50 kroner</div></td></tr> <tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l27" >Line 27:</td> <td colspan="2" class="diff-lineno">Line 26:</td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>} while ($tal &lt; 100);</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>} while ($tal &lt; 100);</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>&lt;/source&gt;</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>&lt;/source&gt;</div></td></tr> <tr><td colspan="2">&#160;</td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:Perl]]</ins></div></td></tr> </table>

Heth http://mars.merhot.dk/w/index.php?title=Perl_check_program_opl%C3%A6g&diff=9884&oldid=prev 2009-11-09T12:42:25Z

<p>New page: #Lav subrutine der kan udskrive en teksten på en check. ##Først mellem 0,00 kr og 99,50 kroner #Hvis du kan nå det op til 999,50 kroner &lt;source lang=perl&gt; my $tal; my @Enere = qw/nul...</p> <p><b>New page</b></p><div><br /> #Lav subrutine der kan udskrive en teksten på en check.<br /> ##Først mellem 0,00 kr og 99,50 kroner<br /> #Hvis du kan nå det op til 999,50 kroner<br /> <br /> <br /> &lt;source lang=perl&gt;<br /> my $tal;<br /> my @Enere = qw/nul en to tre fire fem seks syv otte ni/;<br /> my @TiTilNitten = qw/ti elve tolv tretten fjorten femten seksten sytten atten nitten/;<br /> my @Tiere = qw /tyve tredive fyrre halvtreds tres halvfjerds firs halvfems/;<br /> <br /> do {<br /> print &quot;\nIndtast et tal mellem 0 og 99: &quot;;<br /> $tal = &lt;STDIN&gt;;<br /> if ( $tal &lt; 10 ) {<br /> print $Enere[$tal];<br /> } elsif ( $tal &lt; 20 ) {<br /> print $TiTilNitten[$tal-10];<br /> } elsif ( $tal &lt; 100 ) {<br /> if ( ($tal%10) == 0 ) {<br /> print $Tiere[($tal/10)-2];<br /> } else {<br /> print $Enere[$tal%10], &quot;og”, $Tiere[(($tal-$tal%10)/10)-2];<br /> }<br /> }<br /> } while ($tal &lt; 100);<br /> &lt;/source&gt;</div>

Heth