Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Qbasic] одномерные массивы

Автор: glos 18.1.2011, 17:27

[Qbasic-массив] проблема в решении массива

Найти сумму модулей отрицательных нечетных элементов. Получить новый массив путем возведения в квадрат элементов, стоящих на четных местах

Автор: iff 18.1.2011, 20:48

Готов выполнить.

Цитата(glos @ 18.1.2011, 17:27

)

В машинном коде бы все это увидеть..

Вы уверены? Может быть в виде исходника на языке QBasic?

Автор: glos 19.1.2011, 05:08

Код


INPUT "vvedite razmernoct massiva:"; M
DIM A(M)
S = 0
FOR I = 1 TO M
INPUT "Vvedite znachenie massiva:"; K
A(I) = K
NEXT I
REM  Vivodim na pechat
FOR I = 1 TO M
PRINT "Znachenie massiva "; I; "="; A(I)
NEXT I
FOR I = 1 TO M
IF A(I) < 0 AND (INT(A(I)/2) <> A(I)/2)  THEN S = S + ABS(A(I))
IF INT(I / 2) = (I / 2) THEN A(I) = A(I) ^ 2
NEXT I
PRINT "Summa="; S
FOR I = 1 TO M
PRINT "Znachenie massiva  I="; A(I)
NEXT I
END

вот правильно! Может кому пригодится на будущее!

Автор: iff 19.1.2011, 15:05

в пятой строке вместо точки с запятой нужна запятая.
в тринадцатой строке лучше так: IF A(I) < 0 AND A(I) MOD 2 = 1 THEN S = S + ABS(A(I))в четырнадцатой строке лучше так: IF I MOD 2 = 0 THEN A(I) = A(I) ^ 2