SwR 17
Spoiler anzeigen
Code: Montagsproduktion.prf
cls
'überdimensionierte Antwort
declare wochentage$[7],wochenarray%[7,31], i%,j%,k%
wochentage$[0] = "Mo"
wochentage$[1] = "Di"
wochentage$[2] = "Mi"
wochentage$[3] = "Do"
wochentage$[4] = "Fr"
wochentage$[5] = "Sa"
wochentage$[6] = "So"
k% = 0
for i%,1,31
for j%,0,6
wochenarray%[j%,i%] = (k% + j%) mod 7
endfor
inc k%
endfor
for j%,0,6
k% = 0
for i%,2,30,2
Case wochenarray%[j%,i%] = 1 : Inc k% // gerader Dienstag
endfor
print "\nWenn der Monat mit einem ["; wochentage$[wochenarray%[j%,1]]; "] beginnt,"
if k% = 3
print "dann ist der 21. ein", wochentage$[wochenarray%[j%,21]]
else
print "dann gibt es keinen Treffer."
endif
endfor
waitkey
end
Alles anzeigen