Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > Нужна Срончая Помощь!!!


Автор: Jok 22.3.2006, 06:45
Люди кто ни будь помогите пожалуйста, надо сделать задание по информатике, в бейсике по одномерному массиву очень срочно!!!
Вот задание:

17.1. Дан одномерный массив размерностью в N элементов. Найти количество положительных элементов массива. Вывести на экран компьютера номера и значение всех элементов, содержащих дробную часть
17.2. Дан одномерный массив Ym. Заменить все отрицательные элементы с четными номерами на значение среднего арифметического элементов массива Ym.
17.3. Дан одномерный массив Zm. Сформировать массив Yn, состоящий из нечетных значений элементов массива Zm. Полученный массив отсортировать по возрастанию.

Заранее ОГРОМНОЕ СПАСИБО!!!!!

Автор: darkart 22.3.2006, 14:15
17.1
Код

CONST n = 5
CONST eps = .000001
DIM arr(1 TO n) AS DOUBLE
DIM count AS INTEGER
PRINT "Please enter an array("; n; "):"
count = 0
FOR i = 1 TO n
INPUT arr(i)
IF arr(i) > 0 THEN count = count + 1
NEXT i
PRINT "Amount element > 0 = "; count
PRINT "Information on element with fractional part."
FOR i = 1 TO n
IF ABS(arr(i) - INT(arr(i))) > eps THEN
PRINT "number "; i; "="; arr(i)
END IF
NEXT i

17.2
Код

CONST m = 5
DIM y(1 TO m) AS DOUBLE
DIM i AS INTEGER
DIM sum AS DOUBLE
sum = 0
PRINT "Please enter array("; m; "):"
FOR i = 1 TO m
INPUT y(i)
sum = sum + y(i)
NEXT i
sum = sum / m
FOR i = 1 TO m
IF i MOD 2 = 0 AND y(i) < 0 THEN y(i) = sum
NEXT i
PRINT "Received array:"
FOR i = 1 TO m
PRINT y(i)
NEXT i

17.3
Код

CONST m = 5
DIM z(1 TO m) AS INTEGER
DIM y(1 TO m) AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
PRINT "Please enter array("; m; "):"
j = 0
FOR i = 1 TO m
INPUT z(i)
IF z(i) MOD 2 <> 0 THEN
  j = j + 1
  y(j) = z(i)
END IF
NEXT i
FOR i = 1 TO j - 1
FOR k = i + 1 TO j
IF y(k) < y(i) THEN
  y(i) = y(i) + y(k)
  y(k) = y(i) - y(k)
  y(i) = y(i) - y(k)
END IF
NEXT k
NEXT i
PRINT "Y"; j; ":"
FOR i = 1 TO j
PRINT y(i)
NEXT i

Автор: Jok 22.3.2006, 15:25
Спасибо тебе, ОГРОМНОЕ СПАСИБО smile ты меня очень помог

Автор: Jok 23.3.2006, 18:31
Ребят помогите препод давит оказываться надо было сделть еще, очень нужно ото меня иза информатики могут искулючить из интитута smile а в арьмию не хочеться. Буду блогодарин.

Зарание ОГРОМНО ОЧЕНЬ ОГРОМНОЕ СПАСИБО!!!!
Задаие такое же как и верхнее надо сделать в бейсики одномерный массив

5.2. Дан одномерный массив Yn. Заменить все элементы с четными номерами на значение второго положительного элемента массива. 3.3.
5.3. Дан одномерный массив Zm. Сформировать массив Yn, состоящий из элементов массива Zm, значение которых меньше среднего арифметического исходного массива. Полученный массив отсортировать по возрастанию

6.2. Дан одномерный массив Xn. Найти минимальный среди элементов с четными значениями. Предпоследний положительный элемент массива заменить на ноль.
6.3. Даны два одномерных массива Xn и Yn. Сформировать новый массив Zk по следующим правилам: если Xi + Yi > i2, то Zj = Xi. Отсортировать исходный массив Xn по убыванию.

15.2. Дан одномерный массив Xk. Найти максимальный среди нечетных элементов. Последний элемент массива, значение которого попадает в интервал [A ; B] заменить на нуль.
15.3. Даны два одномерных массива Xn и Yn. Сформировать новый массив Zk, состоящий из положительных элементов Xj с нечетными значениями и из отрицательных элементов Yj с четными значениями. Отсортировать исходный массив Yn по возрастанию.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)