Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: GentooForum.de. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
16.01.2006, 18:06
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 |
==> set_floatprec(1024) . -: 1024 ==> zahl := 388754930606287846698524858430080429954004378112905405752883542711436751460939675891637350654884606462396854522973683908989292158497686648213975331505825595508540192203744825717. -: 82_55955_08540_19220_37448_25717 ==> zahl. eval: unbound symbol: zahl -: error |
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »lolo« (16.01.2006, 18:28)
17.01.2006, 17:25
|
|
Quellcode |
1 2 3 4 5 6 |
#!/usr/bin/perl -w $zahl=38875493060628784669852485843008042995400437811290540575288354271143675146 09396758916373506548846064623968545229736839089892921584976866482139753315058255 95508540192203744825717; $p=sqrt $zahl; printf "%80.f\n", $zahl - $p*$p; |
|
|
Quellcode |
1 |
-56236422431789954785131731346074773235871213978773957913759444657647969758393598378988008576298635714374011382919011189040103325693678746112606439760814548189184 |
17.01.2006, 19:18
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function getPrimFaktor(zahl: integer): integer;
var p: integer;
begin
set_floatprec(1024);
p := floor(sqrt(zahl) / 2) * 2 - 1;
while zahl mod p /= 0 do
p := p + 2;
end;
return p;
end.
load("nummer.ari").
transcript("faktor").
getPrimFaktor(nummer).
transcript(0).
|
