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

исправление ошибок - QBasic

22.12.2010, 22:00. Просмотров 515. Ответов 4
Метки нет (Все метки)

помогите пожалуста исправить ошибки
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
CONST n = 7
DATA 2,6,-3,0,2.1,3,-4.1
DIM z(n)
FOR i = 1 TO n
 READ z(i)
NEXT i
PRINT "Massiv"
FOR i = 1 TO n
 PRINT z(i);
NEXT i
PRINT
INPUT "k="; k
IF (k>n) OR (k<=0) THEN PRINT "K nahoditsya vne diapazona dopustimih znacheniy": END
s=0
FOR i = n TO n + 1 - k STEP -1
 s = s + z(i)
NEXT i
s = s / k
PRINT "Srednee arifm "; k; " poslednih elementov = "; s
Visual Basic
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
INPUT "Kolvo strok matrici="; m
INPUT "Kolvo stolbcov matrici="; n
DIM l(m, n)
INPUT "a="; a
INPUT "k="; k
RANDOMIZE TIMER
FOR i = 1 TO m
 FOR j = 1 TO n
  l(i, j) = INT(RND * 101) - 50
 NEXT j
NEXT i
PRINT "Matrica l"
FOR i = 1 TO m
 FOR j = 1 TO n
  PRINT l(i, j);
 NEXT j
 PRINT
NEXT i
x = 0
FOR i = 1 TO m
 FOR j = 1 TO k
  x = x + l(i, j) - a
 NEXT j
NEXT i
PRINT "x="; x
Visual Basic
1
2
3
4
5
6
7
8
9
CLS
ipnut "n";n
ipnut "I1"; i
DIM a(n)
FOR y = 1 TO n
INPUT a(y)
IF a(y)=i THEN k=i
NEXT
? k
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
INPUT "x";x
INPUT "y"; y
DIM a(x, y)
FOR i=1 TO x
FOR u=1 TO y
INPUT a(i, u)
NEXT u
NEXT i
k=a(1,1)
FOR i=1 TO x
FOR u=1 TO y
IF k>a(i,u) THEN k = a(i,u)
NEXT u
NEXT i
a(1,y)=k
FOR i=1 TO x 
FOR u=1 TO y
? a(i, u)
NEXT u
?
NEXT i

http://www.cyberforum.ru/cpp-beginners/thread417542.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2010, 22:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос исправление ошибок (QBasic):

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

Исправление ошибок
Есть такая программка, которая должна считать значения из файла типа float,...

Исправление ошибок
Добрый день. У меня возникли несколько проблем с базой. 1) Ошибка 3164...

исправление ошибок
Dim M(), K, N, max K = InputBox(&quot;K&quot;): N = InputBox(&quot;N&quot;) ReDim M(1 To K, 1 To...

Исправление ошибок.
товарищи мозги дайте пожалуста правельное решение по паскалю помогите исправеть...

4
Quiet Snow
4398 / 1282 / 374
Регистрация: 25.04.2010
Сообщений: 3,272
22.12.2010, 22:22 #2
1-я решена верно.
1
ikkorty
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 47
22.12.2010, 22:26  [ТС] #3
Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
1-я решена верно.
ну у меня вб выделяет Data и пишет sub or function not defined
0
Quiet Snow
4398 / 1282 / 374
Регистрация: 25.04.2010
Сообщений: 3,272
22.12.2010, 22:29 #4
Третья видимо встречаемость элемента, исправил синтаксические ошибки:
PureBasic
1
2
3
4
5
6
7
8
9
CLS
INPUT "n",n
INPUT "I1", i
DIM a(n)
FOR y = 1 TO n
 INPUT a(y)
 IF a(y) = i THEN k = k + 1
NEXT
PRINT "Vstrechaemost : ", k
Остальные задачи без условия не поддаются идентификации и соотв. исправлению.

Добавлено через 1 минуту
ну у меня вб выделяет
Это задача для QBasic, а не для Visual Basic, каким макаром извините она должна работать на VB?
1
ikkorty
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 47
22.12.2010, 22:37  [ТС] #5
Цитата Сообщение от >Quiet Snow< Посмотреть сообщение

Это задача для QBasic, а не для Visual Basic, каким макаром извините она должна работать на VB?
видимо да(
0
22.12.2010, 22:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2010, 22:37
Привет! Вот еще темы с решениями:

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

Исправление ошибок
Нужно сделать чтобы для ромба нужно было вводить 2 диагонали, а не то что мы...

исправление ошибок
Помогите исправить ошибки. Очень нужно сделать. Буду очень благодарен. Вот...

Исправление ошибок
Пожалуйста помогите исправить ошибки!!! #include &lt;iostream h&gt; #include...


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

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

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