Сменить число переменной(массивы)

@Misanthrope · Регистрация: 04.06.2010

Студворк — интернет-сервис помощи студентам

Удалить элемент массива целых чисел, который делится на 5 и 8. Если таких элементов нет, выдать сообщения "элемент для удаления не найден" иначе удалить последний из найденных.

Подскажите, как изменить размерность массива, скажем заместо 10 поставить 11 и более т.е. сделать переменной, как не старался бейсик выдает "индекс вне диапазона" или др. ошибку

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
CLS
FOR I = 1 TO 10
RANDOMIZE TIMER
a(I) = INT(RND * 100 + 1)
NEXT I
PRINT "ishod massiv"
FOR I = 1 TO 10
PRINT a(I);
NEXT I
FOR I = 0 TO 9
j = 10 - I
IF (a(j) MOD 5 = 0) AND (a(j) MOD 8 = 0) THEN
FOR k = j TO 9
a(k) = a(k + 1)
NEXT k
a(10) = 0
GOTO l:
END IF
IF j = 1 THEN
PRINT
PRINT "elementov net"
GOTO L1:
END IF
NEXT I
l:
PRINT
FOR I = 1 TO 10
PRINT a(I);
NEXT I
L1:
END

Задан массив вещественных чисел и натуральные числа R и U<R. Создать и заполнить массив номеров таких чисел исходного массива, которые отличаются от R не более чем на U.

В этой задаче, так же не получается сделать "10" как переменную.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
for I=1 to 10
a(I)=int(rnd*100)
next I
print "ishod massiv"
for I=1 to 10
a(I)=int(rnd*100)
next I
for I=1 to 10
print a(i);
next I
print
input "r=", R
input "u=", u
for I=1 to 10
if ABS(a(I)-R)< U then
J=j+1
b(j)=I
end if
next I
for I=1 to j
print b(I);
next I

@кот Бегемот · 05.06.2010, 20:51

а кто DIM писать будет?

@Misanthrope · 05.06.2010, 23:10 **[ТС]**

В первой задаче массивы описал, всё получилось ... Со второй проблемы, вроде сделал тоже самое, но программа не работает.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
INPUT n
RANDOMIZE TIMER
DIM a(n)
FOR i = 1 TO n
a(i) = INT(RND * 99)
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
PRINT
INPUT "r=", r
INPUT "u=", u
FOR i = 1 TO n
IF ABS(a(i) - r) < h THEN
j = j + 1
b(j) = i
END IF
NEXT i
FOR i = 1 TO j
PRINT b(i);
NEXT i

@кот Бегемот · 06.06.2010, 00:25

Объявите массив b и исправьте строку

PureBasic
1
IF ABS(a(i) - r) < h THEN

у вас же u а не h

@Misanthrope · 06.06.2010, 12:04 **[ТС]**

Большое спасибо за советы, всё получилось.

@Misanthrope · 08.06.2010, 18:41 **[ТС]**

Каким способом можно избежать использование оператора GOTO в первом примере ???

@кот Бегемот · 08.06.2010, 19:13

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
DIM a(10)
FOR i = 1 TO 10
RANDOMIZE TIMER
a(i) = INT(RND * 10 + 1) * 10
NEXT
PRINT "ishod massiv"
FOR i = 1 TO 10
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO 10
IF a(i) MOD 5 = 0 AND a(i) MOD 8 = 0 THEN t = i: f = 1
NEXT
IF f = 1 THEN
FOR i = t TO 9
a(i) = a(i + 1)
NEXT
PRINT "novyj massiv"
FOR i = 1 TO 9
PRINT a(i);
NEXT
ELSE PRINT "takih elementov net"
END IF

@Misanthrope · 08.06.2010, 20:19 **[ТС]**

Подскажите, как в этой задачи так же избежать использование оператора GOTO

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
CLS
DEF FNA (X) = EXP(X)
DEF FNB (X) = (X ^ 2 + 12 * X - 3) / (18 * X - 1)
DEF FNC (X) = 3.9 * (ATN(X)) ^ 2
DEF FND (X) = (X ^ 4 + 1) ^ .5
DIM A(13)
X = -2
FOR I = 1 TO 13
IF X >= -2 AND X <= 2 THEN
A(I) = FNA(X)
GOTO L:
END IF
IF X = 3 OR X = 4 THEN
A(I) = FNB(X)
GOTO L:
END IF
IF X < -2 THEN
A(I) = FNC(X)
GOTO L:
END IF
A(I) = FND(X)
L:
PRINT (A(I))
IF A(I) <= 5 THEN N = N + 1
X = X + .4
NEXT I
PRINT "N="; N

@кот Бегемот · 08.06.2010, 22:04

Привыкайте выкладывать условия задачи, кто будет разбирать, что вы в коде наворотили?

@Misanthrope · 08.06.2010, 22:22 **[ТС]**

Сделал, использовав заместо GOTO, оперетор ELSE ... IF

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
DEF FNA (X) = EXP(X)
DEF FNB (X) = (X ^ 2 + 12 * X - 3) / (18 * X - 1)
DEF FNC (X) = 3.9 * (ATN(X)) ^ 2
DEF FND (X) = (X ^ 4 + 1) ^ .5
DIM A(13)
X = -2
FOR I = 1 TO 13
IF X >= -2 AND X <= 2 THEN
A(I) = FNA(X)
ELSEIF X = 3 OR X = 4 THEN
A(I) = FNB(X)
ELSEIF X < -2 THEN
A(I) = FNC(X)
ELSE
A(I) = FND(X)
END IF
PRINT (A(I))
IF A(I) <= 5 THEN N = N + 1
X = X + .4
NEXT I
PRINT "N="; N

вот условия задачи -

@кот Бегемот · 08.06.2010, 22:52

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
CLS
DEF FNA (X) = EXP(X)
DEF FNB (X) = (X ^ 2 + 12 * X - 3) / (18 * X - 1)
DEF FNC (X) = 3.9 * (ATN(X)) ^ 2
DEF FND (X) = (X ^ 4 + 1) ^ .5
DIM A(13)
 
FOR x = -2 TO 3 step 0.4
k=k+1
IF X >= -2 AND X <= 2 THEN 
A(k) = FNA(X)
ELSEIF X = 3 OR X = 4 THEN
A(k) = FNB(X)
ELSEIF X < -2 THEN
A(k) = FNC(X)
ELSE
A(k) = FND(X)
END IF
if abs(a(k))<5 then n=n+1
NEXT 
print"massiv"
for i=1 to k
print a(i);
next
print
PRINT "N="; N

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	05.06.2010, 20:51
	а кто DIM писать будет? 1

@Misanthrope 2 / 2 / 0 Регистрация: 04.06.2010 Сообщений: 57
	06.06.2010, 12:04 [ТС]
	Большое спасибо за советы, всё получилось. 0

@Misanthrope 2 / 2 / 0 Регистрация: 04.06.2010 Сообщений: 57
	08.06.2010, 18:41 [ТС]
	Каким способом можно избежать использование оператора GOTO в первом примере ??? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	08.06.2010, 22:04
	Привыкайте выкладывать условия задачи, кто будет разбирать, что вы в коде наворотили? 0