CLS (COLOR 10) - для красоты (a:) - слово будет двигаться бесконечно FOR i = 1 TO 75 CLS LOCATE 12, i PRINT "QBasic" FOR k = 1 TO 20000 NEXT k NEXT i FOR i = 75 TO 1 STEP -1 CLS LOCATE 12, i PRINT "QBasic" FOR k = 1 TO 20000 NEXT k NEXT i (GOTO a) - слово будет двигаться бесконечно
(Чем больше выделенное число, тем медленнее двигается слово, на разных ПК по-разному)
Borland Pascal 7.01 uses Crt; const nn=20; mm=20; var i,j,k,n,m:integer; c1,c2:string; c:array[1..mm,1..nn] of integer; a:array[1..mm*nn] of string[9]; begin ClrScr; { Инициализация } Randomize; Write('Введите количество строк и столбцов массива: '); Read(m,n); Writeln('*** Исходный массив ***'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=Random(51)-25; Write(c[i,j]:4) end; Writeln end; { Формирование одномерного массива } k:=0; for i:=1 to m do begin for j:=1 to n do if c[i,j]>0 then begin Inc(k); Str(i,c1); Str(j,c2); a[k]:='['+c1+','+c2+']' end; a[k]:=a[k]+#13+#10 end; { Вывод результатов } Writeln('*** Компоненты массива с положительными членами ***'); for i:=1 to k do if a[i][Length(a[i])]=#10 then Write(a[i]) else Write(a[i],' '); Writeln; Readkey end.
(COLOR 10) - для красоты
(a:) - слово будет двигаться бесконечно
FOR i = 1 TO 75
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
FOR i = 75 TO 1 STEP -1
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
(GOTO a) - слово будет двигаться бесконечно
(Чем больше выделенное число, тем медленнее двигается слово, на разных ПК по-разному)