Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 19.11.2010, 23:35   #1 (ссылка)
Новичок
 
Аватар для GrizZzly)
 
Регистрация: 12.11.2010
Сообщений: 54
Репутация: 3
Question Помогите исправить программу на Бейсике

Задание 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
PRINT " new mass"
PRINT
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 у меня "зациклмваются" Помогите исправить!
GrizZzly) вне форума  
Старый 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ом
Jhonson вне форума  
Старый 02.12.2010, 11:44   #3 (ссылка)
Новичок
 
Аватар для GrizZzly)
 
Регистрация: 12.11.2010
Сообщений: 54
Репутация: 3
По умолчанию

Подскажите еще пожалуйста, как поменять местами 2 л ю б ы х (случайных) элемента побочной диагонали местами! уже 2ю неделю нимогу вывести формулу!
PS формула побочной диагонали- (m-i+1).

---------- Добавлено в 10:44 ---------- Предыдущее сообщение было написано в 10:25 ----------

Тупой все таки язык....
GrizZzly) вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти программу!!! Сашоко Мультимедиа 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


Текущее время: 11:52. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.