BlackJack hat dir doch gesagt, was man machen muss, um eine Antwort auf diese Frage zu bekommendynasty-warriors hat geschrieben:meine frage war, wie ich weiter machen sollte!!! welche schleife wär empfehlenswert?

BlackJack hat dir doch gesagt, was man machen muss, um eine Antwort auf diese Frage zu bekommendynasty-warriors hat geschrieben:meine frage war, wie ich weiter machen sollte!!! welche schleife wär empfehlenswert?
Es ist aber auch gemein, wenn die Lehrer nach einem halben Jahr so schwere Aufgaben stellen und die Antwort vorher nicht richtig erklären. Dabei scheint die Sonne und der Lehrer genießt den ersten Mai.BlackJack hat geschrieben:... Lag vielleicht auch daran, das sich dynasty-warriors zurück zog, nachdem mindestens eine Komplett-Lösung gepostet wurde. Mag nicht mal jemand eine Lösung posten, damit das nervige gebettel aufhört!?
Code: Alles auswählen
#Programm beginnt hier
print "P1"
anzahl_x = 80
anzahl_y = 50
print anzahl_x,
print anzahl_y
while anzahl_x==80: # Aussere while-Schleife
print ("1"*74+"\n")*26,
while anzahl_y==50:
print ("0"*74+"\n")*26 #Innere while-Schleife
break
break
#Programm endet hier
Code: Alles auswählen
print ("1"*74+"\n")*26,
while anzahl_y==50:
print ("0"*74+"\n")*26 #Innere while-Schleife
break
break
Danke! - Vielleicht finde ich irgendwann doch noch die Zeit, mal was mit Forth zu machen. Oder vielleicht sollte ich mir dann lieber gleich Factor vornehmen. Und Haskell hat irgendwie auch was ....BlackJack hat geschrieben:@numerix: Forth ist ja so ähnlich wie Factor. Aber meinestwegen, die Zielflagge in Forth auf dem C64:
Besser gleich Factor. Da hast du eine brauchbare Implementation und eine ziemlich aktive Community. Außerdem ist die eingebaute Hilfe ziemlich brauchbar um die Sprache zu lernennumerix hat geschrieben:Oder vielleicht sollte ich mir dann lieber gleich Factor vornehmen.
Code: Alles auswählen
VISIBLE LOL P1 /LOL
VISIBLE 20 AND ALLFINGERZ
GIMME EACH I IN UR NUMBRZ WIT ALLFINGERZ! OK?
GIMME EACH J IN UR NUMBRZ WIT 20! OK?
IZ WIT I EVEN & J ODD! OR MABEE WIT I ODD & J EVEN! ?
VISIBLE EASTERBUNNY AND
NOPE?
VISIBLE CHEEZBURGER AND
VISIBLE
Code: Alles auswählen
(defun create-f1-flag ()
(interactive)
(insert "P1\n20 10\n")
(dotimes (i 10 nil)
(dotimes (j 20 nil)
(insert (if (or (and (evenp i) (oddp j)) (and (oddp i) (evenp j))) "0" "1")))
(insert "\n")))
Code: Alles auswählen
#!/usr/bin/env escript
-mode(compile).
header(TITLE, W, H) ->
io:format("~s~n", [TITLE]),
io:format("~w ~w~n", [W, H]).
row(0, _) ->
io:format("~n");
row(N, BIT) ->
io:format("~w", [BIT]),
BIT1 = BIT bxor 1,
row(N-1, BIT1).
rows(_, 0, _) ->
void;
rows(W, H, BIT) ->
row(W, BIT),
BIT1 = BIT bxor 1,
rows(W, H-1, BIT1).
checkered_flag(TITLE, W, H) ->
header(TITLE, W, H),
rows(W, H, 0).
main([]) ->
checkered_flag("P1", 30, 20).
Code: Alles auswählen
println "P 1\n20 10"
for (i in 0..9) {
for (j in 0..20) {
if ((i % 2) ^ (j % 2)) {
print "1 "
}
else {
print "0 "
}
}
println ""
}