Помогите с задачей, пожалуйста)

Death

Дата: Суббота, 22.10.2011, 06:54 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 20

Репутация: 2

Замечания: 0%

Статус: Offline

Получить вектор T по правилу: T[k]=
{перед нижними двумя выражениями стоит знак системы}
1-sinX[k], X[k]>0
1-cosX[k], X[k]<=0, k=1,2,3,…,n
и подсчитать число неотрицательных элементов X[k].

Добавлено (22.10.2011, 06:54)
---------------------------------------------
и еще пояснение к задаче:
вектор X задается вводом;
n= размер вектора X

Seqular

Дата: Воскресенье, 23.10.2011, 08:04 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Ну правильно. Задаёшь вектор X вводом (простой массив чисел, как положительных, так и отрицательных).
Попутно можно сосчитать число >=0 элементов этого массива и запомнить. Это будет число неотрицательных элементов X[k].
А теперь в цикле k от 1 до n идём и сравниваем X[k]. Если он > 0, то T[k] := 1 - sin(X[k]); если <=, то T[k] := 1 - cos(X[k]); напомню, что X[k] - это элементы нашего самого первого массива, которые вводим вручную. Берутся последовательно один за другим, поке не кончатся.
Удачи!

Поддерживаю также проект сообщество молодых сисадминов

Death

Дата: Воскресенье, 30.10.2011, 01:16 | Сообщение # 3

Знакомый

Группа: Пользователи

Сообщений: 20

Репутация: 2

Замечания: 0%

Статус: Offline

Каким образом сосчитать число >=0 элементов X[k]?

Seqular

Дата: Воскресенье, 30.10.2011, 09:06 | Сообщение # 4

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Quote (Death)

Каким образом сосчитать число >=0 элементов X[k]?

Ну как каким?

Code

if (X[k] >= 0) then Inc(count);

Предварительно переменную count - обнулить. Inc увеличивает count на единицу каждый раз, когда условие истинно. Вот так и получим количество неотрицательных элементов.

Поддерживаю также проект сообщество молодых сисадминов

		Вторник, 07.01.2025
	Pascal 4 All