Иллюстрированный самоучитель по Basic, вводный курс

Символы и строки

Задача 236

'Столбиковая интерпретация массива
CLS: RANDOMIZE TIMER
INPUT "Сколько чисел будет в массиве"; N
DIM S(N)
' Формирование массива
FOR 1=1 ТО N
S(I)=INT(RND(l)*150)+50
NEXT I
' Графическая интерпретация массива
SCREEN 9
Х=100
FOR 1=1 ТО 10
' Столбик, интерпретирующий элемент массива LINE (X, 300)-(Х+10, 300-S(D), 2, BF
' Белая рамка, обрамляющая столбик LINE (X, 300)-{Х+10, 300-S(I)), 15, В Х=Х+10
NEXT I
' Вывод элементов массива на экран
FOR 1=1 ТО N PRINT S(I);
NEXT I
END

Задача 239

1 Вычисление среднего квадратичного элементов
' заданного массива.
DATA 31, 19, 52, 65, 6, 8, 13, 16, 97, 33
CLS
DIM S(10)
' Формирование массива и вывод его элементов на экран
FOR 1=1 ТО 10
READ S(I)
? S(I); NEXT I
' Вычисление среднего арифметического элементов массива Т=0 FOR 1=1 ТО N
T=T+S(I) NEXT I TR=T/N
1 Вычисление среднего квадратичного элементов массива Т=0 FOR 1=1 ТО N
T=T+(S(I)-TR)A2 NEXT I SRKV=S/N
? "Среднее арифметическое элементов массива = "; TR
? "Среднее квадратичное элементов массива = "; SRKV
END

Задача 240

' Вывод на экран элементов массива по заданному критерию
CLS: RANDOMIZE TIMER
INPUT "Сколько чисел будет в массиве"; N
DIM S(N)
' Формирование массива и вывод его на экран
FOR 1=1 ТО N
S(I)=INT(RND(1)*21)+2? S(I); NEXT I
FOR 1=1 TO INT(SQR(N))
? "Значение элемента массива №"; 1Л2; "равно"; 3(1Л2) NEXT I END

Задача 242

' Вывод массива в строки по 6 элементов, начиная с последнего
CLS: RANDOMIZE TIMER
INPUT "Сколько чисел будет в массиве"; N
DIM S(N)
' Формирование массива и вывод его на экран
FOR 1=1 ТО N
S(I)=INT(RND(1)*90)+10
? 3(1); NEXT I?:?
9 Вывод массива в строки по 6 элементов, начиная с последнего I = N WHILE IO6
FOR I=N TO N-5 STEP – 1? S(I);
NEXT I
N=N-6
9
WEND END

Задача 245

'Столбиковая интерпретация массива, его максимума и минимума
CLS: RANDOMIZE TIMER
' Объявление и формирование массива
INPUT "Сколько чисел будет в массиве"; N
DIM S(N)
FOR 1=1 ТО N
S(I)=INT(RND(1)*150)+50 NEXT I
'Поиск максимального элемента массива и его индекса MAX=S(1): NMAX=1 FOR 1=2 ТО N
IF S(I) >MAX THEN MAX=S(I): NMAX=I NEXT I
'Поиск минимального элемента массива и его индекса MIN=S(1): NMIN=1 FOR 1=2 ТО N
IF S{I)<MIN THEN MIN=S(I): NMIN=I NEXT I
' Графическая интерпретация массива" SCREEN 9 X=100 FOR 1=1 TO 10
LINE (X, 300)-(X+10, 300-S(I)), 14, BF
IF I = NMAX THEN LINE (X, 300)-(X+10, 300-S(I)), 4, BF
IF I = NMIN THEN LINE (X, 300)-(X+10, 300-S(D), 2, BF
LINE (X, 300)-(X+10, 300-S(I)), 15, В
X=X+10 NEXT I
' Вывод на экран элементов массива, его максимума и минимума FOR 1=1 ТО N
PRINT S(I); NEXT I PRINT
PRINT "Максимальный элемент массива – "; MAX; "Его индекс – "; NMAX
PRINT "Минимальный элемент массива – "; MIN; "Его индекс – "; NMIN
END

Задача 247

62 55 29
1 Формула Герона
DATA 13, 48, 35, 90,
DATA 35, 40, 20, 71,
DATA 27, 68, 41, 54,
CLS
DIM A(5), B(5), C(5), P(5), S(5)
FOR 1=1 TO 5: READ A(I): NEXT I
FOR 1=1 TO 5: READ B(I): NEXT I
FOR 1=1 TO 5: READ С(I): NEXT I
FOR 1=1 TO 5
PP=P(I)/2
S(I)=SQR (PP*(PP-A(I))*(PP-B(I))*(PP-C(I)))
? "Периметр"; I; "треугольника равен"; Р(1); "см"
? "Площадь"; I; "треугольника равна"; S(I); "кв.см"
NEXT I END