VPF::Нужна Срончая Помощь!!! - Форум программистов

Jok

Дата 22.3.2006, 06:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 22.3.2006

Репутация: нет
Всего: нет

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

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

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

darkart

Дата 22.3.2006, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 22.3.2006

Репутация: нет
Всего: нет

Спасибо тебе, ОГРОМНОЕ СПАСИБО smile

ты меня очень помог

Jok

Дата 23.3.2006, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 22.3.2006

Репутация: нет
Всего: нет

Ребят помогите препод давит оказываться надо было сделть еще, очень нужно ото меня иза информатики могут искулючить из интитута 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 по возрастанию.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »