19.11.2010, 23:35 | #1 (ссылка) |
Новичок
Регистрация: 12.11.2010
Сообщений: 54
Репутация: 3
|
Помогите исправить программу на Бейсике
Задание 42(в)
Дан массив целых чисел. Четные элементы массива увеличить на a, a из элементов с четными номерами вычесть и вот что я настрочил CLS INPUT "vv kolichestvo elementov ", n INPUT " vv peremennuyu a", e INPUT " vv peremennuyu b", b PRINT "ishodniy massiv" DIM a(n) FOR i = 1 TO n a(i) = INT(RND * 100) PRINT a(i) NEXT PRINT " new mass" FOR i = 1 TO n m = a(i) + e IF a(i) \ 2 THEN a(i) = m c = a(i) + b IF i \ 2 THEN a(i) = c PRINT a(i) NEXT END Как я понял переменные с и m у меня "зациклмваются" Помогите исправить! |
22.11.2010, 18:05 | #2 (ссылка) |
Новичок
Регистрация: 19.11.2010
Сообщений: 21
Репутация: 2
|
FOR i = 2 TO n step 2
a(i)=a(i)-b PRINT "elementy s chetnymi nomerami (-) B ";a(i) NEXT FOR i = 1 TO n if (a(i)/2)<>int(a(i)/2) then NEXT a(i)=a(i)+a PRINT "chetnye elementy +А "; a(i) NEXT END попробуй вписать после заполнения массива, должно работать, может какие синтактическе ошибки есть, давно не занимался BASICом |
02.12.2010, 11:44 | #3 (ссылка) |
Новичок
Регистрация: 12.11.2010
Сообщений: 54
Репутация: 3
|
Подскажите еще пожалуйста, как поменять местами 2 л ю б ы х (случайных) элемента побочной диагонали местами! уже 2ю неделю нимогу вывести формулу!
PS формула побочной диагонали- (m-i+1). ---------- Добавлено в 10:44 ---------- Предыдущее сообщение было написано в 10:25 ---------- Тупой все таки язык.... |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти программу!!! | Сашоко | Мультимедиа | 3 | 26.12.2010 18:22 |
Помогите найти программу | bakushka2010 | Мультимедиа | 8 | 26.09.2010 10:26 |
помогите найти программу =) | Dintra | Программы | 1 | 30.07.2010 13:45 |
Помогите найти программу!!! | anaconda | Мультимедиа | 8 | 22.02.2010 22:28 |
Виснет комп помогите разобраться в чем проблема и как это исправить | baha | Неисправности, настройка | 14 | 26.01.2010 00:07 |
Помогите создать программу | maksimuc24 | Программирование | 6 | 18.01.2010 20:28 |
помогите найти программу ^^ | pania333 | Утилиты | 16 | 15.11.2009 19:33 |
Помогите найти программу. | AMADEUS | Программы | 3 | 14.07.2009 11:55 |
Помогите исправить ошибку | bek76 | Безопасность | 2 | 20.05.2009 09:43 |
Помогите установить программу!!! | Alex8 | Утилиты | 9 | 11.02.2009 10:40 |
помогите исправить две ошибки | juve | Windows XP | 2 | 28.07.2008 23:24 |
помогите исправить ошыбку | renamblr | Windows XP | 6 | 05.07.2008 22:33 |