Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
hunter129
0 / 0 / 0
Регистрация: 01.10.2013
Сообщений: 33
#1

Вычислить произведение - Pascal ABC

03.10.2013, 18:44. Просмотров 325. Ответов 1
Метки нет (Все метки)

программа в Pascal ABC
0
Миниатюры
Вычислить произведение  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2013, 18:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить произведение (Pascal ABC):

Вычислить произведение - Pascal ABC
Цикл while. Дано натуральное число К. Написать программу для вычисления произведения чисел: 12, 16, 20, 24, 28...К

Вычислить произведение - Pascal ABC
если не тяжело блок схему.

Вычислить произведение - Pascal ABC
Уже весь мозг сморщил, не могу понять правильно сделал или нет=( Вузовский курс программирования уже напрочь из головы вылетел=( То что у...

Вычислить произведение - Pascal ABC
Что здесь не правильно, выводит 0 program LB5_2; Var x,P,i:real; Begin writeln('Введите x'); readln(x); P:=1; i:=3;

Вычислить произведение: a(a+1).(a+n-1) - Pascal ABC
Вычислить произведение: a(a+1)...(a+n-1) с помощью цикла Помогите

Вычислить произведение - Pascal ABC
1. 2.Составить 3 условия программы с использованием оператора цикла с предусловием и 3 условия программы с использованием оператора цикла...

1
erl27
890 / 739 / 432
Регистрация: 06.09.2013
Сообщений: 1,561
04.10.2013, 01:20 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  N, k, i: integer;
  x, D: real;
  
  
begin
  writeln('Введите данные:');
  write(' N = ');
  readln(N);
  write(' x = ');
  readln(x);
  D := 1;
  i := 1;
  for k := 1 to N do
  begin
    i *= k;
    D *= (1 + sin(k * x) / i)
  end;
  writeln;
  writeln;
  write('Искомая сумма: ', D:0:5)
end.
Замечание: число N нужно брать не больше 33.

Добавлено через 1 минуту
забыл сказать: это было решение примера г)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2013, 01:20
Привет! Вот еще темы с ответами:

Вычислить произведение ряда - Pascal ABC
Заранее благодарен Записать алгоритм решения задачи в виде блок-схемы. Числа m, x задаются пользователем ...

Вычислить сумму и произведение - Pascal ABC
Напишите, пожалуйста, программу для вычисления этих задач

Вычислить произведение ряда - Pascal ABC
Задание : Дано натуральное число n, вычислить произведение F0,F1,...Fn. Где Fi=1/(sqr(i)+1)+1/(sqr(i)+2)+...+1/(sqr(i)+(i)+1) Ход...

Вычислить произведение ряда - Pascal ABC
Вычислить (1+sin x_)(3+sin 3x) (5+sin 5x) …(11+sin 11x)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru