JW Basic

[kim]

не пойму чего мы ето изучаем)
но я не могу написать прогу по масивам))
Знающий человек напишет ее за 10 сек) Помогите пл3)

1.Составить прогараму для перестановки елементов в заданом масиве Р(10) так, чтобы сначала стояли елементы заданого масива с парными индексами. Результат напечатать.
Р(2.12, 2.14, 3.07, 4.64, 9.11, 2.01, 1.20, 1.25, 1.11, 1.17).

2.Дано масив V(12). Есле положительных елементов в нем менше, чем отрицательных, то заменить в нем отрицательные елементы нулями.
В противном случае каждий отрицательный елемент заменить суммой тех елементов масива V, которые больше больше половины максимального елемента. Начальный и составленый масивы напечатать.

Напишите пожалуйста! и выложите на форуме. Дело госважности)). Буду оч. благодарен!

Сообщение от kim

не пойму чего мы ето изучаем)
но я не могу написать прогу по масивам))
Знающий человек напишет ее за 10 сек) Помогите пл3)

1.Составить прогараму для перестановки елементов в заданом масиве Р(10) так, чтобы сначала стояли елементы заданого масива с парными индексами. Результат напечатать.
Р(2.12, 2.14, 3.07, 4.64, 9.11, 2.01, 1.20, 1.25, 1.11, 1.17).

2.Дано масив V(12). Есле положительных елементов в нем менше, чем отрицательных, то заменить в нем отрицательные елементы нулями.
В противном случае каждий отрицательный елемент заменить суммой тех елементов масива V, которые больше больше половины максимального елемента. Начальный и составленый масивы напечатать.

Напишите пожалуйста! и выложите на форуме. Дело госважности)). Буду оч. благодарен!

попробуй для первой задачи :
k = 0: dim p (10): dim a (5): dim b (5): g = 0
for k = 0 to 10: input p (k): next k
for k = 1 to 10 step 2: a(g) = p (k-1): b(g) = p(k): g = g + 1 : next k: g = 0
for k = 0 to 10 step 2: p (k) = a(g): p (k+1) = b(g): next k
for k = 0 to 10: print p (k): next k
end

для второй задачи:
10 dim v (12): poz = 0: neg = 0: k = 0: s = 0
20 for k = 0 to 12: input v(k): print v(k): next k : max = v(0)
30 for k = 0
40 if v(k) > 0 then poz = poz + 1
50 if v(k) < 0 then neg = neg + 1
60 if v(k) > max then max = v(k)
70 next k
80 if poz < neg then goto 120 else goto 150
90 for k = 0 to 10
100 if v(k) > max/2 then s = s + v(k)
110 next k
120 for k = 0 to 10
130 if v(k) < 0 then v(k) = 0
140 print v(k): next k: goto 180
150 for k = 0 to 10
160 if v(k) < 0 then v(k) = s
170 print v(k): next k
180 end

надеюсь под JW Basic это пройдет тоже )

[kim]

Чуть-чуть не так!
Но спасиба!!! Постараюсь переделать на то как учили)

[kim]

аааааааа
не получается
я знаю что начало должно быть
10 rem
20 input X
дальше темно......
ниД нелпС)

Сообщение от kim

аааааааа
не получается
я знаю что начало должно быть
10 rem
20 input X
дальше темно......
ниД нелпС)

rem необязателен .. что именно не получается? где ошибку пишет ?

[kim]

мне не надо ее набирать! я должен преподу на листеке сдать, но то что выше написано тобой, малеха не похоже на то что должно быть)!! особено первое)
на счет второго не знаю... може и правельно(
у меня ХР и я беисик дома запустить не могу)

[walery]

Сообщение от kim

аааааааа
не получается
я знаю что начало должно быть
10 rem
20 input X
дальше темно......
ниД нелпС)

а можно еще написать
10 rem
20 rem
30 rem
40 rem
...........
1000 rem
а input - это ваще высший пилотаж )))
неужели это так сложно????!!!!
ты в каком классе учишся ?
ну даже если дать тебе готовые проги то как ты их преподу будеш пояснять??? если ты даже не знаеш шо делает rem ???

[kim]

названия операторов я то выучю) ты не переживай)
и преподу можно много чего рассказать...

З.Ы. мне програмирование до одного места) ето так для общего развития)!
написал бы прогу мне)) ето ж так просто(как ты сказал)

[Spayder]

А нафиг тебе Jw basic ? C++ и Delphi Foreva!!!!!!!!!

[kim]

еще один поглумица решил(
мне надо... учим ето в универе) тоесть вот ети 2-е задачки последние)

Сообщение от kim

мне не надо ее набирать! я должен преподу на листеке сдать, но то что выше написано тобой, малеха не похоже на то что должно быть)!! особено первое)
на счет второго не знаю... може и правельно(
у меня ХР и я беисик дома запустить не могу)

так если ты знаешь на что оно должно быть похоже, в чем тогда суть проблемы? переписать их за тебя на листик? )))

[kim]

) примерно знаю), в общем по етим задачам лекцый не было! Вот и не могу их сделать)

[DEoNisy]

2all:да ладно вам, чел на халяву хочет свою неграмотность прикрыть.
2kim:Ты на каком курсе универа? Ещё незнаешь почём дырки закрывают? А препод всёравно просечёт что не ты писал и денег собъёт.

[kim]

Сообщение от DEoNisy

2all:да ладно вам, чел на халяву хочет свою неграмотность прикрыть.
2kim:Ты на каком курсе универа? Ещё незнаешь почём дырки закрывают? А препод всёравно просечёт что не ты писал и денег собъёт.

)а с преподами надо еще уметь общаться, тогда и деньги платить не нада!!!