Feladat: KSz.20 Korcsoport: 16-17 Nehézségi fok: könnyű
Füzet: 1985/március, 120 - 121. oldal  PDF  |  MathML 
Témakör(ök): Programozási feladatok, Feladat
Hivatkozás(ok):Feladatok: 1984/október: KSz.20

A szöveg csak Firefox böngészőben jelenik meg helyesen. Használja a fenti PDF file-ra mutató link-et a letöltésre.

Néhány BASIC nyelvű megoldás:

 

     1.1∅  PRINT  "SZURET"2∅  PRINT  "Z%"3∅  PRINT  "U%"4∅  PRINT  "R%"5∅  PRINT  "E  %"6∅  PRINT  "T%%%%%"

 

Ezt a programot Szy Zoltán (Budapest, Kölcsey F. Gimn.) küldte be. A program előnye, hogy egyszerű és nagyon sokféle gépen futtatható.
A következő megoldások csak egy-egy gépen futnak, mert kihasználják a gépek adta lehetőségeket.
 

2. Czimer Csaba (Székesfehérvár, Teleki B. Gimn.) megoldása HT ‐1080 Z gépre:
 
1 A$ = CHR$(245):B$=" %"+A$:CLS:PRINT@ 346,
"SZURE T"A$"Z"B$"U"B$"R" B$" E"B$ "T % % % %%"
 

3. Bózsik Béla (Pannonhalma, Bencés Gimn.) megoldása ZX Spectrum gépre:
 


1∅ LET A$= "SZURET"

2∅ FOR I=1 TO 6

3$ PRINT AT I, 1; A$(I);AT 1,I;A$(I); AT 1,6;
''%''; AT 6, I; ''%''

4∅ NEXT I
 

Mi ezt a programot kiegészítenénk az Ü betű előállításával, amit Nagy 256 Tibornál (Kunszentmárton, József A. Gimn.) láttunk:
 

1 POKE USR "U", BIN ∅∅1∅∅1∅∅
2 POKE USR "U"+1, ∅
 

Így a grafikus U betű képe Ü lesz.
 
4. Venetianer Péter (Szeged, JATE Ságvári E. Gyak. Gimn.) megoldása ZX 81 gépre:
 

1∅ LET A$ = "SZURET"
2∅ PRINT AT 8,12; A$
3∅ FOR X = 9 TO 13
4∅ PRINT AT X, 12; A$(X─7); AT X,17; "*"; AT 13, X+4; "* "
5∅ NEXT X
 

Ezen a gépen nincs % jel, ezért elfogadtuk, ha azt valami más karakterrel helyettesítette a megoldó.
 
5. Végül egy megoldás FORTH nyelven, amit Barta Attila (Túrkeve, Ványai A. Gimn.) küldött be (ellenőrzését HT-1080 Z gépen futó TINY-FORTH 2/1 fordító programjával végeztük).
 

: Q   2∅   SPACE  ;  : BACRQ.  " S Z U R E T " ;  : BSBACRQ. " Z   % " ;  : BRBSCRQ. " U   % " ;  : BFBRCRQ. " R   % " ;  : BGBFCRQ. " E   % " ;  : BHBGCRQ. " T % % % % % " ;  : BJCLSCRBH CR  CR  CR  CR  ;  

 
A program a BJ betűk beütésére indul.
Végül egy olyan megoldást szeretnénk mutatni, amely csak azért különböző, mert géptípusonként egy BASIC programsor hossza más és más.
 

1∅  PRINT"SZURET"PRINTZ%PRINTU%PRINTR%PRINTE%  SINCLAIR gépekenPRINTT%%%%%"1∅  PRINT"SZURETPRINTZ%PRINTU%PRINTR%HT 1080 Z-re2∅PRINT"E%"VC 2∅PRINTT%%%%%"1∅  PRINT"SZURETPRINTZ%PRINTU%"  Commodore gépeken2∅PRINT  "R%PRINTE%PRINTT%%%%%"