Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi LiebesTester (https://www.delphipraxis.net/67153-liebestester.html)

gmc616 10. Apr 2006 13:38

Re: LiebesTester
 
OT: Hmmm, mal sehn

Christoph-Maria + Eva = G.L.??

mal fix im Kopf zusammen rechnen:

Christoph-Maria = 30008325104105
Eva = 1738

30008325104105 + 1738 = 30008325105843
300083251058|43 = 6978680257,16

Also passen Christoph-Maria und Eva zu 6978680257 % zusammen !? :shock:

Na dann dürfte es sich mit dem Nachwuchsproblem in Deutschland erledigt haben :lol:

JWeis 10. Apr 2006 13:42

Re: LiebesTester
 
Zitat:

Zitat von gmc616
OT: Hmmm, mal sehn

Christoph-Maria + Eva = G.L.??

mal fix im Kopf zusammen rechnen:

Christoph-Maria = 30008325104105
Eva = 1738

30008325104105 + 1738 = 30008325105843
300083251058|43 = 6978680257,16

Also passen Christoph-Maria und Eva zu 6978680257 % zusammen !? :shock:

Na dann dürfte es sich mit dem Nachwuchsproblem in Deutschland erledigt haben :lol:


sie passen 43 zusammen es werden die letzten 2 stellen als Ergebnis genommen und nicht geteilt durch die letzten 2 stellen

toredo 10. Apr 2006 13:42

Re: LiebesTester
 
Zitat:

Zitat von gmc616
OT: Hmmm, mal sehn

Christoph-Maria + Eva = G.L.??

mal fix im Kopf zusammen rechnen:

Christoph-Maria = 30008325104105
Eva = 1738

30008325104105 + 1738 = 30008325105843
300083251058|43 = 6978680257,16

Also passen Christoph-Maria und Eva zu 6978680257 % zusammen !? :shock:

Na dann dürfte es sich mit dem Nachwuchsproblem in Deutschlan erledig haben :lol:

:mrgreen: 6978680257 %^^

du hast nen kleinen fehler gemacht;)
diese zeile stimmt noch:
30008325104105 + 1738 = 30008325105843

dann wird die 43 abgetrent, weil das die letzten zwei ziffern sind, d.h. die beiden passen nur zu 43% zusammen:)



ich hab auch noch ne frage:
ich bin jetzt dran das ganze auf die weise von Klaus1 zu verwirklichen, aber ich weiss ned wie man einen "Array of Integer" macht, kann mir das bitte jemand erklären weil ich kenn nur Integer^^



mfG toredo

Klaus01 10. Apr 2006 13:47

Re: LiebesTester
 
const
aPrim: Array [1..26] of Integer = (2,3,5, ...,101 );

Steht aber auch in der OH unter Array

Grüße
Klaus

gmc616 10. Apr 2006 13:51

Re: LiebesTester
 
@JWeis und toredo: Stimmt, mein Fehler. :thumb: Das erklärt auch | und nicht / ! :duck:

Doch nichts mit Nachwuchs in D. :sharkylinchen:

Nicodius 10. Apr 2006 14:00

Re: LiebesTester
 
er rechnet einfach minus 65 ;)

toredo 10. Apr 2006 15:11

Re: LiebesTester
 
das proggi ist gleich fertig ich ahb nur ncoh zwei ganz kleine probs.
wie schaff ich es, dass alle buchstaben in diese zeile kommen:
zahl := zahlen['e'] * zahlen['m'] * zahlen['i'] * zahlen['l'];
also damit mein ich, dass das wort so zerlegt wird.

und das zweite problem ist, dass grossbuchstaben nicht angenommen werden, d.h. wenn ich statt zahlen['e'] zahlen['E'] hinschreibe kommt ein fehler beim kompilieren.




mfG toredo

Klaus01 10. Apr 2006 15:14

Re: LiebesTester
 
Zitat:

zahl := zahlen['e'] * zahlen['m'] * zahlen['i'] * zahlen['l'];
also damit mein ich, dass das wort so zerlegt wird.
Delphi-Quellcode:
for i:= 1 to length(name) do
  zahl:= zahl*zahlen[name[i]];
Aus der Unit SysUtils

Delphi-Quellcode:
name:=lowercase(name)
Grüße
Klaus

toredo 10. Apr 2006 15:21

Re: LiebesTester
 
dann werd ich das prog mal vertigstellen udn es dann in den open-source bereich reinmachen, thx an alle die geholfen haben.



mfG toredo

freak4fun 10. Apr 2006 15:23

Re: LiebesTester
 
Hier glaubt wohl einer nicht an die "Große Liebe". :mrgreen: Wenn du nur die letzten 2 Zeichen ausgibst kann das nie 100% werden. Also bei 00 am Ende noch per zufall eine 1 vor schreiben, oder prüfen, ob die 3. letzte Stelle einen 1 ist oder sowas. :zwinker:

MfG
freak


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:05 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz