Download (7333kb, 52 pages) - The Sharp MZ-Series
Download (7333kb, 52 pages) - The Sharp MZ-Series Download (7333kb, 52 pages) - The Sharp MZ-Series
lforzrqung + 1£nturirklung [JJ ro B E r S PIE L A U S D RUC K E : PC-1245/1251/1260/1261 + CE-125 =~=~=~=~==~=~=m=~=~==~~=~~~=~~~~~~gr~~~=M~g~grg~~= ~. rt UERKAUF JanC4ar- 8. Damen e..ollen so aufs Schachbrett geetellt werden, daJ3 keine I. fI"",llhd.rhllltcl" 2. ro 2. K",.1Cct-rCiDeI'" J~ von ihnen bedroht 1st. Das Programm berechnet die'92 Losungen, 3. Bun." I ft, -3 die dieses Problem hat. Die 8 Ziffern jeder Losungezahl zeigen N ;: ~:~!:~:::: ~2 AUSWERTUNG e. 11...1........... 11 S die Stellungen der Damen auf den 8 Zeilen. Das Diagramm der er 0"\ 7. ,.",.,1\'1'1." -I IJOf"I 18l-1..,.'tn clncl HlI po'''I ...., eo Sc:fI,.cibtlCUI .. le sten Losung 15863724 wurde mit den Ze11en 40-44 gedruckt. Die 8. A't.ti'I.~.". " 2 11, Poc'irV'lcn 28 'nt~Cl.tlvund".!.i(;P\l'1Ull. nt.,. 8 Losungsziffern mtissen, wie nach Zeile 36, vorher in den Spei 11. ICv\c IIrV'lIIn J' o....rcf"er-r"IIU'IIIt... t bctr"'ac"t :t> 12. TIm..,..a.,,.Dn4n -0 chern A bis H seine J3. F.rtH-in," ... IIJ ~.e.eCftoe6e]. i-" 14. ,.1 ooft\ If ftGpl e" -J Zu jeder Losung wird sogleich das Sp1egelbild berechnet, be1 dem i-" JlII. ....,. fpQfPIU' -8 le. 5ctt,.,.ttpo.ph,. 12 jede Ziffer z durch 9 - z ersetzt 1st. Die 92.Loeung ist dae ro I'. ~C"fIt... .l8 Spiegelbild der ersten, die 91-te das der zweiten usw. Man kann -I I•• Sctt.. I~""I,..n .:\ C/J die Berechnung daher nach der 46.Losung, wenn die erste Ziffer o-n 1) Reispielausdruck I Beispielausdruck 11 Beispielausdrlck III groSer ala 4 wird, abbrechen. So spart man die halbe Zeit. C: In der L1ate aind hier nur die beiden ersten und letzten Lo "1 sungspaare abgedruckt. (omputerzubehoer Mit PC-1245/1251 dauert die ganze Berechnung mit Druck 93 Minu [JJ I. c""""" •• PC-.:!88 .88 ::r ten. In "Bild der Wiseenschaft" 10/1978, 1/1979, 6/1979 wurden 7. PlO",,, C'[-I!58 68 DJ AUSWERTUNG noch Zeiten von 12-14 Stunden fUr Losungen mit Rechnern SR 52, "1 2J HP-25 , HP-67 genannt. Der dagegen erreichte groSe Zeitgewinn 3. CE-I:5:5 .0
F[ 1 ............. (........ :1699)+(J)1899)+ (J>2199)+(J)2299)+28 LET S=t:BS="Juni· .::J - ~ Ostern laesst sich 2 497:~$= STR$ S: GOSUB S9 ~ •..... 10 FOR 1=010 10 ERGE9NJS: nach fQI,ender For.el be 335:D=(J>1699)+(J>1799)+ 9:S$=W$: PRINT "Pfin 20 M=( 1+ UAND 3 1 232 1 232 1 2 3 Ai rechnen:~an dividiert (J)1899)+(J>2899)+(J ,st.onta, :·;S$;B$ I 25 PRINT M I' + die Jahreszahl(J) durch >2199)+(J)2299)+18 498:INPUT ·Weitere Berec 30 NEXT 1 f1 it die se. r Ze i le is tuns 4,wobei ein etwaj,er 348:X=(~-11*A)/38 hnun,en? J/N ·1K$: e i ne e I :z> e9 ant e Loes un9 fue.r Rest unberuecksichti't 358:Z=( IHT X):B=("-11.A IF K$=·N· END I--' eine Zae~lkette gegeben,die bleibt,und erhaelt so )-38·Z: IF B=29 OR B 499:GOTO 319 1:1 I--' 1 2 3 0 als Ergebnis aus9ibt. die Zahl Q;dann tei It =28 IF "=292 OR "=28 599:PRINT ·Keine Berechn I ro L- rJJ .an J/19,bleibt Rest A; 4 OR "=285 LET B=B-l un, dieser Jahreszah J • fl (~-11.A)/38,bleibt Rest 368:X=(J+Q+B-D)/7 I .oe, I ich·: GOTO 31 '""h B;(J+Q+B-D)/7,bleibt 379:Z=( IHl X):C=(J+Q+B 9 .:-+ "..~ ...!..~ .. !I~ -~ ,. ~: Rest C;so ist der(28+B D)-7*Z 688:U=T-18 r~l:::: 1 ~1+ (: F:::: .. l~ 388:0=28+B-C: IF 0)31 ,,"""T"k 'lUlL '""'l C)te "aerz bzw.Apri 1- 681:IF U>=1 LET C$=B$: ! III LET 0=O-31:AS=·Apri I GOTO 684 1'[1 fuer Zahlen ueber 31 (28 W .: GOTO 385 ER6£BNJS: +B-C-31)-Ostersonnta,.D 692:IF U'*5 ERGEBN1S: ~ 1268/61 errechnet dann J/H? "jKS: IF KS="J :3 * S H A R P * kleine Listin9s eirgeco.ut,d:J.mit ~ ro ten .it B=27 weiterrech 394:W$= STR$ 0: GOSUB 88 Karfreita, :28."aerz '""h nen. 25 PRINT M 9 14 14 14 i4 14 rt 8:0$=W$: PRINT ·Oste Osterso"nta, :38.Maerz 30 NEXT H rsonnta, :·;O$jA$ Oster.onta, :31./'Iaerz • ,eht die Berechnun, ein Kla.mmer 91eich 0, ist H)2,also f--' GOTO 398 Pfin,stsonnta,:IS./'Iai facher und schnel ler!! 396:W$= STR$ ( YAL 0$+1) H=1 ,H=2 ,usw.,so ist der Wert Pfin,st.onta, :19./'Iai in der Hoffnun9 vielen SHARP : GOSUB 8e9:p$=W$: •••••*•• 1987 ••••••••• der Klammer immer glejch 1. f. C~mputer-Besitzern eine ~it unsere. Pro,ra•• •. I Wenn H=2 ist,so ist der Wert der f--' 395:P= YAL OS+I: IF P=32 Hi ••elfahrt : 8./'Iai '.. ~ W InUllIlIlI1I PRINT "Oster.onta, Karfreita, :17.Apri I ;:- k le ine Hi I fe gegeber'1 zu huber, ~ ro • co~Yri'ht I ...,. :·;P$;A$: GO TO 499 Ostersonnta, :19.Apri I wuenschen wir viel Spass beim 11985·bY*1985. 398:P=1:A$=·April·:W$= rt Oster.onta9 :29.Apri I ':J!. .SHARP .. Pr09rammieren mit den drei ro STR$ P: GOSUB 8ge:p$ Hi ••el(ahrt :28./'Iai "f • Ze i I • Basic-Tea. • en. =W$: PRINT ·Oster.on Pfin,stsonnta,: 7.Juni 11111111111111 tu :";P';A$ ;: N Pfin,st.onta, : 8.Juni ~
- Seite 1 und 2: § of tLU or f llhlperu.rare Nr.11
- Seite 3 und 4: Nie mehr Thea.ter durch Jetzt ist
- Seite 5 und 6: ~----------'i * MZ 700 * univers.32
- Seite 7 und 8: :I;> ~ ~ SHARP PC 1500(A) Betrifft
- Seite 9 und 10: ==:HAF-:P PC 15121121·:: A:) :-; H
- Seite 11 und 12: ~......,.......,......, ST 1. ,2. 3
- Seite 13 und 14: Programme fuer Sharp Pc 15~~ A Die
- Seite 15 und 16: ::r>. Cl :::x:: --i c Z G) ,-... V
- Seite 17 und 18: 1Il+.rt"H III a.< 0.. DO rt"::l+'(/
- Seite 19 und 20: Numerische Losung_gewohnlicher Difr
- Seite 21 und 22: 20:"TRI"B(0)=B(I):C=8 22:IF B(1)+1(
- Seite 23 und 24: " J a.!! I ch bin a.bgel"utscht." 5
- Seite 25: lIlfi ?ilcl', · ~'cJ ~ r J.'l~~ -.
- Seite 29 und 30: Friedrich Koellen Geschw.Scholl-Str
- Seite 31 und 32: 'S~ .,;:\~ ~.~ ~ ~ ~ ~~ \.1.+- ~ ~p
- Seite 33 und 34: PC-1401 ...........................
- Seite 35 und 36: Betr.: Listing HA WAR I" -- Ein LCD
- Seite 37 und 38: ~ ~ . ~ ~. ~ ~ ~ ~ Q w~ t1 Q Q
- Seite 39 und 40: w.,1D'I 11 EJgJ!it 292 ~ 189 III,ID
- Seite 41 und 42: Hi~r ~ind ~i~=Di~ pr~~~~~i~n~11~n P
- Seite 43 und 44: Pascal-System AlIgemeines: Das K &
- Seite 45 und 46: DFD 700 Doppel Floppy Station 560 K
- Seite 47 und 48: € ........~........ ~~~~ ~ ......
- Seite 49 und 50: MATHEMATIK UTILITY Ml Liste.Zahlen,
- Seite 51 und 52: ABO N N E MEN T Wenn cs Ihnen SpaB
lforzrqung + 1£nturirklung <br />
[JJ<br />
ro<br />
B E r S PIE L A U S D RUC K E : PC-1245/1251/1260/1261 + CE-125<br />
=~=~=~=~==~=~=m=~=~==~~=~~~=~~~~~~gr~~~=M~g~grg~~=<br />
~.<br />
rt UERKAUF JanC4ar- 8. Damen e..ollen so aufs Schachbrett geetellt werden, daJ3 keine<br />
I. fI"",llhd.rhllltcl" 2.<br />
ro 2. K",.1Cct-rCiDeI'" J~<br />
von ihnen bedroht 1st. Das Programm berechnet die'92 Losungen,<br />
3. Bun." I ft, -3<br />
die dieses Problem hat. Die 8 Ziffern jeder Losungezahl zeigen<br />
N ;: ~:~!:~:::: ~2 AUSWERTUNG<br />
e. 11...1........... 11 S<br />
die Stellungen der Damen auf den 8 Zeilen. Das Diagramm der er<br />
0"\ 7. ,.",.,1\'1'1." -I IJOf"I 18l-1..,.'tn clncl HlI po'''I ....,<br />
eo Sc:fI,.cibtlCUI .. le<br />
sten Losung 15863724 wurde mit den Ze11en 40-44 gedruckt. Die<br />
8. A't.ti'I.~.". " 2 11, Poc'irV'lcn 28<br />
'nt~Cl.tlvund".!.i(;P\l'1Ull.<br />
nt.,. 8 Losungsziffern mtissen, wie nach Zeile 36, vorher in den Spei<br />
11. ICv\c IIrV'lIIn J' o....rcf"er-r"IIU'IIIt... t bctr"'ac"t<br />
:t> 12. TIm..,..a.,,.Dn4n -0<br />
chern A bis H seine<br />
J3. F.rtH-in," ... IIJ ~.e.eCftoe6e].<br />
i-"<br />
14. ,.1 ooft\ If ftGpl e" -J<br />
Zu jeder Losung wird sogleich das Sp1egelbild berechnet, be1 dem<br />
i-" JlII. ....,. fpQfPIU' -8<br />
le. 5ctt,.,.ttpo.ph,. 12<br />
jede Ziffer z durch 9 - z ersetzt 1st. Die 92.Loeung ist dae<br />
ro I'. ~C"fIt... <br />
.l8<br />
Spiegelbild der ersten, die 91-te das der zweiten usw. Man kann<br />
-I I•• Sctt.. I~""I,..n .:\<br />
C/J die Berechnung daher nach der 46.Losung, wenn die erste Ziffer<br />
o-n 1) Reispielausdruck I Beispielausdruck 11 Beispielausdrlck III groSer ala 4 wird, abbrechen. So spart man die halbe Zeit.<br />
C: In der L1ate aind hier nur die beiden ersten und letzten Lo<br />
"1 sungspaare abgedruckt.<br />
(omputerzubehoer Mit PC-1245/1251 dauert die ganze Berechnung mit Druck 93 Minu<br />
[JJ<br />
I. c""""" •• PC-.:!88 .88<br />
::r<br />
ten. In "Bild der Wiseenschaft" 10/1978, 1/1979, 6/1979 wurden<br />
7. PlO",,, C'[-I!58 68<br />
DJ AUSWERTUNG<br />
noch Zeiten von 12-14 Stunden fUr Losungen mit Rechnern SR <strong>52</strong>,<br />
"1 2J<br />
HP-25 , HP-67 genannt. Der dagegen erreichte groSe Zeitgewinn<br />
3. CE-I:5:5 .0