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

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

03.04.2011, 03:00. Просмотров 698. Ответов 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
Ссылки удаленыЧитайте правила - http://www.cyberforum.ru/announcement.php?a=3

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

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

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

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

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

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

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


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

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

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