Алгоритмы BASIC (QBASIC)

[Поль]

1.Задача составить алгоритм на BASIC:"Дан массив А из 20 элементов. Заменить положительные элементы массива на среднее арифметическое элементов массива. Результат вывести на печать"
2.Посоветуйте хороший справочник по операторам BASIC

[Serge_Bliznykov]

CLS
RANDOMIZE TIMER
CONST n = 20
DIM A(n) 

FOR i = 1 to n
A(i) = RND * 100 - 50
PRINT " ";A(i);
NEXT
PRINT

SUMSR = 0
FOR i = 1 to n
SUMSR = SUMSR + A(i)
NEXT

SR = SUMSR / n
FOR i = 1 to n
IF A(i)>0 Then A(i)=SR
NEXT

PRINT "Result array:"
FOR i = 1 to n
PRINT " ";A(i);
NEXT

не проверял!

[Поль]

спасибо!
это немного не то
вот здесь где ошибки ??
10 DIM A(20)
20 FOR I=1 TO 20
30 INPUT A(I)
40 NEXT I
50 S=0
60 FOR I=1 TO 20
70 S=S+A(I)
80 NEXT I
90 K=S/20
100 FOR I=1 TO 20
110 IF A[i]>0
120 A (i)=K
130 NEXT I
140 PRINT A(i)
150 END

[ZX Spectrum-128]

В 110 then пропущено и, помнится, что 120 должна быть в 110 сразу после then
или между 110 и 120 должно быть end if
130 и 140 поменяйте местами

[Поль]

вот так ?????
10 DIM A(20)
20 FOR I=1 TO 20
30 INPUT A(I)
40 NEXT I
50 S=0
60 FOR I=1 TO 20
70 S=S+A(I)
80 NEXT I
90 K=S/20
100 FOR I=1 TO 20
110 IF A[i]>0 THEN A (i)=K
120 END IF
130 PRINT A(i)
140 NEXT I
150 END

[Serge_Bliznykov]

Сообщение от Поль

вот так ?????

похоже на правду.
Запускать пробовали? Работает? Корректно?
Значит, правильно написали.

[ZX Spectrum-128]

Если вы используете линейный синтаксис оператора if, то строка № 120 не нужна вовсе.
А у вас разве компилятора Basic нет?
Элементарно такие вещи проверяются оным.

[Поль]

Сообщение от ZX Spectrum-128

Если вы используете линейный синтаксис оператора if, то строка № 120 не нужна вовсе.
А у вас разве компилятора Basic нет?
Элементарно такие вещи проверяются оным.

Спасибо!
Компилятора у меня нету стоит Win7x64 и QBasic не хочет устанавливаться

Сообщение от Serge_Bliznykov

похоже на правду.
Запускать пробовали? Работает? Корректно?
Значит, правильно написали.

Спасибо!


___
Объединил ваши сообщения.
Не используйте форум как чат - если есть что добавить к своему крайнему сообщению в теме - используйте для этого кнопку "Правка"

Модератор

[Serge_Bliznykov]

Сообщение от Поль

Компилятора у меня нету стоит Win7x64 и QBasic не хочет устанавливаться

Поставьте маленькую программку DosBox и в ней запускайте QBasic