ALGORITHMEN - Teil XX: Zwischen Fersuch und Irrdumm

p. specht · 22. Dezember 2018, 20:00

Der PC, die Krone der Schröpfung: Wer programmiert hier eigentlich wen?

p. specht · 22. Dezember 2018, 20:50

Abt. BISHERIGE INHALTE
=================
Hier das aktualisierte Download-Link zum gezippten Inhaltsverzeichnis aller bisherigen ALGORITHMEN-Kapitel samt Stichwort-Suchprogramm sowie der Letztversion des sog. Beamers: Der Beamer (ein Profan-Programm) bringt den Anwender bei Eingabe von Kapitelnummer_Beitragsnummer in die Nähe des Beitrags im entsprechenden Forumskapitel hier. Das klappt in 90% der Fälle. Der Beamer ist momentan auf Firefox eingestellt, XProfan-Fans können ihn aber jederzeit auf andere Browser ändern.

Gruss

p. specht · 23. Dezember 2018, 11:15

Abt. FROHE WEIHNACHTEN 2018!
=========================
Etwas Weihnachtsstimmung - und nebenbei eine weihnachtliche Rosetta code -Aufgabe erledigt!
Wer mitsingen möchte - es sollte etwa so klingen: LINK
Gruss

Quellcode

WindowTitle "ROSETTA CODE: The twelve days of Christmas"
' Q: http://rosettacode.org/wiki/The_Twelve_Days_of_Christmas
' Muppets: https://www.youtube.com/watch?v=8ygW5hLgnn4
WindowStyle 24 : CLS : Declare d&,r&,days$[],gifts$[],wait&
::: wait&=2800 'delay [ms]
font 2
days$[]=explode("*,first,second,third,fourth,fifth,sixth,"+\
"seventh,eighth,ninth,tenth,eleventh,twelfth",",")
gifts$[]=explode("*,*,Two turtle doves,Three french hens,"+\
"Four calling birds,Five golden rings,Six geese a-laying," +\
"Seven swans a-swimming,Eight maids a-milking,Nine ladies dancing," +\
"Ten lords a-leaping,Eleven pipers piping,Twelve drummers drumming",",")
whileloop 12 : d&=&Loop
Print "\n On the " + days$[d&] + " day of Christmas"
waitinput wait&
Print " My true love gave to me:\n" : waitinput wait&
whileloop d&,3,-1:r&=&Loop
Print " ";gifts$[r&] : waitinput wait&
endwhile
If d&>1
Print " ";gifts$[2];if(d&=12,""," and") : waitinput wait&
EndIf
Print " A" + If(d&=12,"nd a","") + " partridge in a pear tree."
waitinput wait&
Print
Endwhile
Print "\n ... Hit any key to end program" : Waitinput
End

Alles anzeigen

p. specht · 24. Dezember 2018, 14:16

Abt. Jubiläum!
==========

200 Jahre „Stille Nacht, heilige Nacht“

Stille Nacht, heilige Nacht!
Alles schläft, einsam wacht
nur das traute, hochheilige Paar:
„Holder Knabe im lockigen Haar -
schlaf in himmlischer Ruhe!“
Schlaf´ in himmlischer Ruh´.

Stille Nacht, heilige Nacht,
Hirten erst kundgemacht
durch der Engel "Halleluja"
tönt es laut von fern und nah:
„Christ, der Retter ist da!“ -
Christ, der Retter ist da!

Stille Nacht, heilige Nacht!
(Du)Gottessohn, oh, wie lacht
Lieb' aus deinem göttlichen Mund
da uns schlägt die rettende Stund,
Christ, in deiner Geburt -
Christ, in deiner Geburt !

(Franz Xaver Gruber, 1818 / F. Mohr)

p. specht · 27. Dezember 2018, 23:08

Abt. XML-DTD nach Relationale DB
==========================
Erste holprige Gehversuche, XML zu verstehen ...
Gruss

P.S. MDB = Mitglied der Bauplanung

Spoiler anzeigen

Oldi-40 · 28. Dezember 2018, 00:25

Hallo p.specht,

XML ist und bleibt Murks.

Eine komplizierte Lösung für einfache Sachen.

Tschau

ts-soft · 28. Dezember 2018, 06:20

Oldi-40 schrieb:

XML ist und bleibt Murks.

Dann hast Du den Sinn von XML nicht verstanden.
Hier eine Erklärung: de.wikipedia.org/wiki/Extensible_Markup_Language

Einfache XML-Dateien kann man notfalls auch durch lesen erkennen, aber das ist nicht der Sinn des ganzen. Dafür gibt es Parser, die das dann gleich validieren. Es gibt inzwischen viele Programm-Bibliotheken, die einem genau dieses Abnehmen.
Es können alle Verschachtelungen beschrieben werden und auch für den Menschen lesbare Ergebnisse extrahiert werden. Was wäre den z.B. jedes Office-Datei-Format, ohne xml?

Der einzige Nachteil gegenüber propitären Binären Dateiformaten, wäre seine Dateigröße. Dies umgeht man, in dem diese XML-Dateien meist gepackt (ZIP) werden.

Oldi-40 schrieb:

Eine komplizierte Lösung für einfache Sachen.

Wenn Du es nicht lesen kannst, weil es dafür auch gar nicht gedacht ist, da können wir ja nichts für :-D

p. specht · 28. Dezember 2018, 07:47

Ich gestehe, ich habe Verständnis für beide Standpunkte - den von Oldi-40 UND für ts-soft:
Mit XML kann man tief verschachtelte Strukturen flachklopfen und in eine Textdatei stecken - wer´s braucht ist glücklich! Der umgekehrte Weg ist etwas beschwerlicher und bringt meine Ganglien zum käsen - die Welt bräuchte Gratis-OpenSource-Konversionsprogramme!

p. specht · 28. Dezember 2018, 09:35

Abt. Die Gefahren der Gewöhnung
=======================
Besinnlichhe Zeit - große Momente in den Medien:
Link
Link2

Oldi-40 · 29. Dezember 2018, 00:58

Hallo ts-soft,

ts-soft schrieb:

Dann hast Du den Sinn von XML nicht verstanden.

Ich habe den Sinn schon verstanden. ;-)

Im Wiki steht auch ein Zitat von Linus Torvalds, in diese Richtung geht meine Meinung mit Murks.

Jeder kann auf seinem Rechner nach XML-Dateien suchen.
Ich vermute mal, 95% sind aufgeblähte Dateien mit ein bis drei relevanten Daten die man zu tausenden auf dem Rechner hat.

Ein Beispiel:protection-log-2018-09-12.txt

Hochladen kann man die XML-Datei nicht im Forum. :flopp:

Es werden nur Textdateien akzeptiert.

Was steht denn in der Datei?

Tschau

p. specht · 29. Dezember 2018, 14:38

Abt. Ein allerletztes Rätsel - EaR 1 ´Modular´
=============================
Leider hat es auf das vor der Tür abgelegte Postpaket geregnet. Ob die Lieferung richtig ist, sollte die sechsstellige Bestellnummer darauf eigentlich verraten. Erkennbar ist gerade noch folgendes Muster: XXX4XY . Man weiß lediglich, daß diese Bestellnummern die Eigenschaft haben, restlos duch 165 teilbar zu sein. Gefragt ist: Was ist X, was ist Y ?

H.Brill · 29. Dezember 2018, 17:40

Quellcode

Declare long x, y, i, String z, x1, y1
' XXX4XY MOD 165
y = 0
z = "xxx4xy"
For i, 1, 2
WhileLoop 1, 9
If &LOOP <> 4
x1 = &LOOP
y1 = Str$(y)
z = Translate$(z, "x", Str$(&LOOP))
z = Translate$(z, "y", Str$(y))
If (Val(z) MOD 165) = 0
Print "Die gesuchte Zahl ist : ", z
Print "X = ", x1, " Y = ", y1
EndIf
z = "xxx4xy"
EndIf
EndWhile
Inc y, 5
EndFor
Print "fertig..."
Waitkey

Alles anzeigen

Elegant gelöst :thumbsup:

Wenn man nur schon durch 5 (y) teilt, kann es ja nur eine 0 oder eine 5 am Ende sein.
Ansonsten bringt ja MOD eine 1. Mach mal einfach eine Schleife und multipliziere
&LOOP mit 165.

p. specht · 29. Dezember 2018, 18:30

@H.Brill: Gratulation! Das Programm liefert die korrekte Lösung.
Gruss

P.S.: Um das zu kontrollieren, mußte ich in meinem XProfan-11.2a aber erst mal selbst eines schreiben:

Quellcode

Cls:declare x$,y$:whileloop 0,9:x$=&Loop:whileloop 0,5,5
y$=&Loop:casenot val(x$+x$+x$+"4"+x$+y$) mod 33
print "X",x$," Y",y$:endwhile:endwhile:print "=":waitinput

p. specht · 29. Dezember 2018, 18:35

Abt. Ein allerallerletztes Rästel - EaR^2 ´Bruch´
===============================
Was ist, als Bruch ausgedrückt, 1+(1/(1+(1/(1+1/5)))) ?

Oldi-40 · 29. Dezember 2018, 23:20

Hallo p.specht,

zu Abt. Ein allerletztes Rätsel - EaR 1 ´Modular´

Der Startwert ist 111410
- Schleife:
- Ist der Wert durch 165 ohne Rest teilbar? Ja, Lösung gefunden.
- Den Wert um 5 erhöhen.
- Ist der Wert durch 165 ohne Rest teilbar? Ja, Lösung gefunden.
- Den Wert um 111005 erhöhen.
- Zum Angafang der Schleife.

So hätte ich es gelöst, habe aber keine Ahnung wie man das mit XProfan formuliert.

Tschau

Die Lösung sollte 1348 sein.

p. specht · 29. Dezember 2018, 23:35

1348 ist das Ergebnis der Divison der gesuchten sechsstelligen Zahl durch 165.
Die Anwort lautet also bei XXX4XY: X = , Y = .....?

Oldi-40 · 30. Dezember 2018, 00:04

Hallo p.specht,

da muss wohl noch die richtige Zahl kommen.

1348 * 165 ist das Ergenis. :-D

Mir ging es aber um meinen Amsatz.

Tschau

p. specht · 30. Dezember 2018, 03:45

Abt. Deviant programming
=================
XProfan (in Version 11) ist immer wieder für Überraschungen gut - hier bei Strukturierungsbezeichnern:
Gruss