[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Seqular, Pavel

Форум » Обсуждение задач » Новые задачи » Вычислить Z (Помогите пожалуйста написать программу в Turbo Pascal!!!)

Вычислить Z

ECVB Дата: Воскресенье, 19.12.2010, 06:33 | Сообщение # 1 Новичок Группа: Пользователи Сообщений: 3 Репутация: 0 Замечания: 0% Статус: Offline Вычислить: Z=(1+sin0.1x)(1+sin0.2x)(1+sin0.3x)...(1+sin10x)

Seqular Дата: Воскресенье, 19.12.2010, 12:01 | Сообщение # 2 Хранитель Группа: Администраторы Сообщений: 859 Репутация: 35 Статус: Offline Ну насколько я понимаю, сначала вводится x с клавиатуры, потом вычисляем в цикле значение. Code readln(x); ... Code Z := 1; n := 0.1; while (n <= 10) do begin Z := Z * (1 + sin(n * x)); n := n + 0.1; end; Поддерживаю также проект сообщество молодых сисадминов

ECVB Дата: Понедельник, 20.12.2010, 02:43 | Сообщение # 3 Новичок Группа: Пользователи Сообщений: 3 Репутация: 0 Замечания: 0% Статус: Offline спасибо большое :)))) Добавлено (20.12.2010, 02:43) --------------------------------------------- спасибо большое :))))