Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
mailiman
0 / 0 / 0
Регистрация: 30.03.2011
Сообщений: 1
#1

Нужна помощь по Qbasic - QBasic

03.04.2011, 03:00. Просмотров 684. Ответов 0
Метки нет (Все метки)

Помогите((
Дан одномерный целочисленный массив А, состоящий из N(заданное натуральное число) элементов.
Найти количество элементов начиная со второго, значения которых превосходит сумму всех индексов стоящих перед ним.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
INPUT 'N= '; N
DIM a(N)
FOR i = 1 TO N
PRINT 'A('; i; ')= ';
INPUT a(i)
NEXT i
K=0
FOR I=2 TO N
IF A(I) > (N/2)*(N-1) THEN K=K+1
NEXT I
PRINT K
END
только вместо (N/2)*(N-1) должна быть какаято другая формула зависящая ещё и от i так как *стоящих перед ним.* перед ним , а не сумма всех элементов массива

и ещё вопрос
Дан одномерный целочисленный массив А, состоящий из N(заданное натуральное число) элементов.
Если имеется хотя бы одна пара совпаающих элементов, то упорядочить элементы этого массива по неубыванию, иначе записать элементы этого массива в обратном порядке
QBasic/QuickBASIC
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
32
CLS
INPUT 'N=';N
DIM A(N)
RANDOMEZE TIMER
FOR i=1 TO N STEP 1
  A(i)=INT(RND*100)-INT(RND*100)
NEXT i
Elem=1
FOR i=1 TO N STEP 1
IF i<>Elem THEN
 IF A(Elem)=A(i) THEN
    H1=A(1)
    K1=1
    FOR j=1 TO N STEP 1
       FOR l=1 TO N STEP 1
          IF H1>A(l) THEN H1=A(l):K1=l
       NEXT l
     A(l)=A(j)
     A(j)=H1
     NEXT j 
     IF i=N THEN GOTO 10
 END IF
 Elem=Elem+1
 NEXT i
 FOR i=N TO 1 STEP -1
    FOR j=1 TO N STEP 1
    H1=A(j)
    A(j)=A(i)
    A(i)=H1
    NEXT j
 NEXT i
 10 END
выдаёт ошибку((( next без for помогите правильно написать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2011, 03:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужна помощь по Qbasic (QBasic):

по бейсику.Плиз, очень срочно нужна помощь.
Я знаю, что это не сайт добрых услуг. Но очень нужна помощь.завтра нужно...

QBasic
Ссылки удаленыЧитайте правила - http://www.cyberforum.ru/announcement.php?a=3

QBasic и множества
 Множества есть в таком языке программирования как Паскаль. А чем QBasic...

Задачи QBasic
Прошу прощение за качество. Лучше сделать не получается.

Учебник QBASIC
Помогите найти учебник(справочник по QBASIC) со всеми операторами данного...

Задача по qbasic
Всем доброго! Посмотрите, пожалуйста, правильно ли я сделала блок-схему

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2011, 03:00
Привет! Вот еще темы с решениями:

Переведите на QBasic
Var n: Byte; BEGIN Repeat Write('Введите возраст человека до 100 лет:...

Задачи QBasic
Задачи по QBasic :huh: 1)В воображаемом квадрате заданного размера построить...

Jpeg for qbasic
есть ли гденибудь исходники по формату jpeg на qbasic45 qbasic71? видел пару...

Игра на QBasic
Подскажите, что нужно почитать, просмотреть, чтобы написать игру в бейсбол.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru