פעולות בעזרת מחרוזות-המשך
נניח כי מוגדרות שתי המחרוזות הבאות:
ST1
|
9 |
8 |
7 |
6 |
5 |
4 |
3 |
2 |
1 |
|
I |
H |
G |
F |
E |
D |
C |
B |
A |
ST2
|
5 |
4 |
3 |
2 |
1 |
|
T |
W |
Z |
Y |
X |
ונבצע את הפעולה: ST1=ST2
אזי יוצבו למחרוזת ST2 רק 5 התווים הראשונים של ST1 והשאר יקוצצו ז"א נקבל:
ST2
|
5 |
4 |
3 |
2 |
1 |
|
E |
D |
C |
B |
A |
ניתן להגדיר גם מערך המורכב ממשתנים מחרוזתיים.
לדוגמא:
;[A:array[1….320] of string [12
כלומר כל תא יהיה משתנה מחרוזתי באורך 12 תווים.
דוגמא:
כתוב תת תוכנית הקולטת למערך את שמות התלמידים בכיתתך (40 ) ומדפיסה אותם לאחר מכן.
פיתרון:
|
program NAME; var A:array [1….40] of string[ 20 ]; I:integer; · · קטע הבא לפני תת תוכנית זו · procedure INPUTE_OUTPUT_NAMES; begin {קליטת השמות למערך} for I:=1 to 40 do begin write('- הקש שם התלמיד ה ', I ); readln (A[I]); end; {הדפסת שמות התלמידים} for I:=1 to 40 do writeln (A[I]); end; · · קטע הבא לפני תת תוכנית זו ·
|
גולשים מקוונים: 10