Free Basic. Проверить программу

Евгений Нефёдов · Регистрация: 27.01.2013

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

Работаю на Джини, но он, по каким-то неведомым причинам, не компилирует. Free Basic нигде нормального(который бы устанавливался) не могу найти, поэтому все делал практически в слепую.

Задача предо мной стояла такая:

Сгенерировать случайным образом массив целых чисел (в дипазоне -100 до 100), размерностью N=60, и отсортировать по возрастанию модуля на языке Бейсик. Вывести количество элементов выше 50.

Вот, что я написал:

PureBasic

DIM i(60) AS INTEGER
DIM AS INTEGER a, b, c, s
 
s=0
 
RANDOMIZE TIMER
FOR a = 1 TO 60
i(a) = INT(RND * 200) - 100
PRINT i(a)
NEXT a
 
PRINT "Sortirovka"
FOR a = 1 TO 60
FOR b = a TO 60
IF ABS(i(a)) > ABS(i(b)) THEN
c = i(a)
i(a) = i(b)
i(b) = c
END IF
NEXT a
NEXT b
 
FOR a = 1 TO 60
PRINT i(a)
NEXT a
 
FOR a = 0 TO 59
IF i(60 - a) >= 50 THEN
s=s+1
END IF
EXIT FOR
NEXT a
PRINT "Kolichestvo elementov vishe 50: ", 60 - a
 
SLEEP

Ребят, пожалуйста, проверьте, правильно или нет. Если нет, то подскажите, что неверно и как исправить.

Ps. Не серчайте если я с темой не угадал или что-то не правильно назвал/сказал. Просто я еще совсем совсем зеленый в программировании. Начинающий.

@~~Апострофф~~ · 29.01.2013, 09:22

PureBasic

1	DIM i(1 to 60) AS INTEGER

Сообщение от Евгений Нефёдов

PureBasic

1	DIM AS INTEGER a, b, c, s

может так?

PureBasic

1	DIM a, b, c, s AS INTEGER

а правильнее

PureBasic

1	DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, s AS INTEGER

Сообщение от Евгений Нефёдов

Сгенерировать случайным образом массив целых чисел (в дипазоне -100 до 100)

Это не

PureBasic

1	i(a) = INT(RND * 200) - 100

а

PureBasic

1	i(a) = INT(RND * 201) - 100

Сообщение от Евгений Нефёдов

PureBasic

1	PRINT "Kolichestvo elementov vishe 50: ", 60 - a

наверно

PureBasic

1	PRINT "Kolichestvo elementov vishe 50: ", S

Циклы сортировки

PureBasic

1 2	FOR a = 1 TO 59 FOR b = a+1 TO 60

@stabud · 29.01.2013, 09:29

Сообщение от Апострофф

может так? DIM a, b, c, s AS INTEGER

Так как раз нельзя.

В сортировку не вглядывался, у меня ваш код с небольшими поправками выдает верный результат:

Код

Dim i(1 To 60) As Integer
Dim As Integer a, b, c, s

Randomize Timer
For a = 1 To 60
	i(a) = Int(Rnd * 201) - 100
	Print i(a)
Next a

Print "Sortirovka"
For a = 1 To 60
	For b = a To 60
		If Abs(i(a)) > Abs(i(b)) Then
			c = i(a)
			i(a) = i(b)
			i(b) = c
		End If
	Next 
Next 

For a = 1 To 60
	Print i(a)
Next a

For a = 1 To 60
	If i(a) >= 50 Then
		s=s+1
	End If
Next 
Print "Kolichestvo elementov vishe 50: ", s

Sleep

@ironXmaydan · 26.01.2018, 20:49

Сообщение от Евгений Нефёдов

PRINT "Sortirovka"
FOR a = 1 TO 60
FOR b = a TO 60
IF ABS(i(a)) > ABS(i(b)) THEN
c = i(a)
i(a) = i(b)
i(b) = c
END IF
NEXT a
NEXT b

Предложил бы так, что бы не сравнивать одинаковые элементы массива

Код

FOR a = 1 TO 59
FOR b = a+1 TO 60
IF ABS(i(a)) > ABS(i(b)) THEN
c = i(a)
i(a) = i(b)
i(b) = c
END IF
NEXT b 'закрываем сперва внутренний цикл
NEXT a 'затем внешний цикл

@stabud 126 / 53 / 1 Регистрация: 26.10.2012 Сообщений: 89
	29.01.2013, 09:29	3
	Сообщение от Апострофф может так? DIM a, b, c, s AS INTEGER Так как раз нельзя. В сортировку не вглядывался, у меня ваш код с небольшими поправками выдает верный результат: Код Dim i(1 To 60) As Integer Dim As Integer a, b, c, s Randomize Timer For a = 1 To 60 i(a) = Int(Rnd * 201) - 100 Print i(a) Next a Print "Sortirovka" For a = 1 To 60 For b = a To 60 If Abs(i(a)) > Abs(i(b)) Then c = i(a) i(a) = i(b) i(b) = c End If Next Next For a = 1 To 60 Print i(a) Next a For a = 1 To 60 If i(a) >= 50 Then s=s+1 End If Next Print "Kolichestvo elementov vishe 50: ", s Sleep 1

@ironXmaydan 2 / 2 / 0 Регистрация: 17.08.2017 Сообщений: 30
	26.01.2018, 20:49	4
	Сообщение от Евгений Нефёдов PRINT "Sortirovka" FOR a = 1 TO 60 FOR b = a TO 60 IF ABS(i(a)) > ABS(i(b)) THEN c = i(a) i(a) = i(b) i(b) = c END IF NEXT a NEXT b Предложил бы так, что бы не сравнивать одинаковые элементы массива Код FOR a = 1 TO 59 FOR b = a+1 TO 60 IF ABS(i(a)) > ABS(i(b)) THEN c = i(a) i(a) = i(b) i(b) = c END IF NEXT b 'закрываем сперва внутренний цикл NEXT a 'затем внешний цикл 0