Microsoft QBasic 1.0 DIM n AS INTEGER CLS INPUT "n=", n REDIM a(1 TO n) AS INTEGER RANDOMIZE TIMER imax = 1 FOR i = 1 TO n a(i) = INT(30 * RND) IF a(i) > a(imax) THEN imax = i PRINT a(i); NEXT PRINT t = a(imax) FOR i = imax - 1 TO 1 STEP -1 a(i + 1) = a(i) NEXT a(1) = t FOR i = 1 TO n PRINT a(i); NEXT
Const n=20; type omas=array[1..n] of integer; Procedure Del (var z:omas; k:byte); var i:byte; begin for i:=k to n-1 do z[i]:=z[i+1]; z[n]:=0; end; var a:omas; i,b:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(20); write(a[i]:4); end; writeln; b:=6; i:=1; while (i<=n)and(a[i]<>b) do i:=i+1; if i<=n then begin Del(a,i); writeln('Размерность массива = ',n-1); for i:=1 to n-1 do write(a[i]:4); writeln; end else writeln('Массив не изменился'); end. Пример: 12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18 Размерность массива = 19 12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Таблицы позволяют объединить однотипные данные в более-менее читабельную структуру, чего не делает словесное описание (как, например, приятней читать таблицу с датами и описанием исторических событий в таблице, чем читать словесную демагогию в учебиках). Таблицы позволяют ужать данные в размере, читателю сосредоточиться на главном. Они позволяют операторам обрабатывать её без каких-либо затруднений.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел. Вот. Так что табличные модели, несомненно, лучше словесных.
DIM n AS INTEGER
CLS
INPUT "n=", n
REDIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
imax = 1
FOR i = 1 TO n
a(i) = INT(30 * RND)
IF a(i) > a(imax) THEN imax = i
PRINT a(i);
NEXT
PRINT
t = a(imax)
FOR i = imax - 1 TO 1 STEP -1
a(i + 1) = a(i)
NEXT
a(1) = t
FOR i = 1 TO n
PRINT a(i);
NEXT
Пример
n=15
5 16 10 18 11 12 10 26 27 22 20 5 16 18 4
27 5 16 10 18 11 12 10 26 22 20 5 16 18 4