[HaBo]

**CDW** · 14.10.10, 23:00

Eingreicht von lone.wolf

Zitat:

Schwierigkeitsstufe: 2 (Mittel)

Aufgabenstellung:
Schreibe ein Programm, das die Nachkommastellen, die bei einer Division rauskommen, ab der x'ten Stelle, y Stellen lang ermittelt.

Beispiel:
113 / 35 = 3,228571428571428571428 ...

Programm:
Eingabe> prog 113 35 2 4
Ausgabe< 2857

ich denke, die Aufgabenstellung ist ersichtlich.
Habe nur die Schwierigkeitsstufe etwas anders gemacht, da es hier auf die jeweils verwendete Sprache/Bibliothek ankommt (angefangen mit dem klassischen 3 Zeiler in Python bis hin zur eigenen Float-Bibliothek in C/Assembly

)
oder anders gesagt:
leicht: setze die Aufgabe um
mittel: verwende dabei keine zusätzlichen Module (wer Maple & Co Verwendet, ist ein Cheater

)
schwer: verwende keine zusätzlichen Module + die Nachkommastellenangaben sollen auch für große Werte möglich sein (wer Maple & Co verwendet, cheatet)

lone.wolf · 14.10.10, 23:32

Hier mal meine Lösung

Lösung

MfG und viel Spaß beim Nachgrübeln

Anzeige

- Anzeige -

Thunder11 · 17.10.10, 18:12

Meine Lösung:

Lösung

Nicht wirklich weiterverwendbar; die Aufgabenstellung sollte aber korrekt gelöst sein. Ich hoffe es ist kein Fehler drinnen.

Ich wünsche auch noch viel Spaß beim Denken

mfg Thunder

PS: vorkompiliert im Anhang.

b4ck · 17.10.10, 18:50

Bei meinen php-versionen wird davon ausgegangen dass das bcmath modul installiert/aktiviert ist.
bei normalen divisionen ohne bcmath wird leider nur bis zur 13ten nachkommastelle berechnet.

spoiler

und noch als oneliner:

oneliner

Apfelkuchen · 17.10.10, 22:03

Das würde auch Kommazahlen als Eingabe akzeptieren, funktioniert aber irgendwie nicht:

Delphi

Das hier funktioniert, nimmt aber nur integer-Eingaben an:

Delphi

Ook! · 19.10.10, 12:51

Kleine, aber meiner Meinung nach, sehr schöne Lösung in Haskell.

Code:

import Data.List as L
import Data.Maybe as M

decimals :: Integer -> Integer -> String
decimals n d = let (n0,d0) = divMod n d
               in (show n0) ++ "," ++ (concatMap show $ next d0)
    where next nx | d > 0 = dx : next nx1
                  | otherwise = repeat 0
                  where (dx,nx1) = divMod (nx*10) d 

cut :: (Int,Int) -> String -> String
cut (s0,s1) xs = take s1 $ drop (idx+s0) xs
    where idx = M.fromJust $ L.elemIndex ',' xs

main :: IO ()
main = mapM_ print [cut (2,4) seq, take 25 seq]
    where seq = decimals 113 35

Zitat:

*Main> main
"2857"
"3,22857142857142857142857"

Gruß
Felix

DMRMcK · 10.11.10, 13:00

finds zwar selber net schön, weil der eingabestring immer wieder abgeschnitten wird, aber es funktioniert ^^

VB

braindump · 13.11.10, 21:30

Nicht schön aber selten:

Java

Eydeet · 19.05.11, 22:56

Das läuft wahrscheinlich auch schon auf cheaten hinaus, da Python ja beliebig lange Zahlen erlaubt, aber so funktioniert es prinzipiell:

MichaBe · 22.05.12, 12:34

Das Thema ist zwar schon bisschen älter, aber zum wieder bisschen reinkommen doch gut geeignet. Hier mein Code in php:

PHP-Code:

  function getNachkomma($divident, $divisor, $offset, $laenge) {

 $rest = $divident;

 $ausgabe= "";

 for($i = 0, $i <= $offset+$laenge; $i++) {

  $stelle = 0;

  while($rest - $divisor > 0) {

   $rest -= $divisor;

   $stelle++;

  }

  $rest *= 10;

  

  if($i >= $offset)

   $ausgabe = $ausgabe.$stelle;

 }

 return $ausgabe;

}

Hab hier leider grad keinen Server zum Testen, kann also sein, dass es noch Fehler hat, werd das aber, sobald ich zu Hause bin, mal testen

LG, Micha

Anzeige

- Anzeige -

14.10.10, 23:32	#2 (permalink)
lone.wolf Registriert seit: 12.01.09 Likes: 1	Hier mal meine Lösung Lösung Link MfG und viel Spaß beim Nachgrübeln Geändert von lone.wolf (15.10.10 um 00:01 Uhr)

17.10.10, 18:50	#4 (permalink)
b4ck Registriert seit: 13.02.06 Likes: 1	Bei meinen php-versionen wird davon ausgegangen dass das bcmath modul installiert/aktiviert ist. bei normalen divisionen ohne bcmath wird leider nur bis zur 13ten nachkommastelle berechnet. spoiler PHP-Code: `<?php $a = 113; $b = 35; $start = 1; $length = 4; $result = explode('.',bcdiv($a,$b,50)); echo substr($result[1],$start,$length); ?>` und noch als oneliner: oneliner PHP-Code: `echo substr(substr(bcdiv($argv[1],$argv[2],50),strpos(bcdiv($argv[1],$argv[2],50),'.')+1),$argv[3],$argv[4]);` Geändert von b4ck (18.10.10 um 15:55 Uhr)

17.10.10, 22:03	#5 (permalink)
Apfelkuchen Registriert seit: 12.10.10 Likes: 19	Das würde auch Kommazahlen als Eingabe akzeptieren, funktioniert aber irgendwie nicht: Delphi Könnte man, nimmt man die Anfangs- und Endtags weg, auch als Einzeiler schreiben, ich habs nur so aufgedröselt damit ich an den Fehler komme. Ich verdächtige ja den "pos(...,',')"-Part. Mit "." anstatt "," klappt's aber auch nicht. Das Problem: Er gibt nicht ab der c-ten Zahl nach dem Komma, sondern ab der c-ten Zahl vom Anfang an aus. Code: function habodivide(a,b:real;c,d:integer):integer; begin result := strtoint( copy( floattostr( a/b ), pos( floattostr( a/b ), ',' )+c, d ) ); end; Das hier funktioniert, nimmt aber nur integer-Eingaben an: Delphi Code: function TForm1.habodivide(a,b,c,d:integer):integer; begin result := strtoint(copy(floattostr(a/b),length(inttostr(a div b))+1+c,d)); end; Geändert von Apfelkuchen (18.10.10 um 16:17 Uhr)

19.05.11, 22:56	#9 (permalink)
Eydeet Registriert seit: 14.04.06 Likes: 4	Das läuft wahrscheinlich auch schon auf cheaten hinaus, da Python ja beliebig lange Zahlen erlaubt, aber so funktioniert es prinzipiell: Code: (n1, n2, x, y) = (113, 35, 2, 4) print n1 * (10 (x + y - 1)) / n2 % (10y) Geändert von Eydeet (09.06.11 um 23:48 Uhr)

22.05.12, 12:34	#10 (permalink)
MichaBe Registriert seit: 22.05.12 Likes: 0	...in php Das Thema ist zwar schon bisschen älter, aber zum wieder bisschen reinkommen doch gut geeignet. Hier mein Code in php: PHP-Code: `function getNachkomma($divident, $divisor, $offset, $laenge) { $rest = $divident; $ausgabe= ""; for($i = 0, $i <= $offset+$laenge; $i++) { $stelle = 0; while($rest - $divisor > 0) { $rest -= $divisor; $stelle++; } $rest *= 10; if($i >= $offset) $ausgabe = $ausgabe.$stelle; } return $ausgabe; }` Hab hier leider grad keinen Server zum Testen, kann also sein, dass es noch Fehler hat, werd das aber, sobald ich zu Hause bin, mal testen LG, Micha

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

[HaBo]

[leicht bis schwer]kontinuierliche Division