Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 2
1

Вычислить значение произведения используя циклы while, for, repeat

05.06.2014, 13:22. Просмотров 1636. Ответов 3
Метки нет (Все метки)

Помогите решить. Через while, for, repeat.

https://www.cyberforum.ru/cgi-bin/latex.cgi?\prod_{k=0}^{b}3^k
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2014, 13:22
Ответы с готовыми решениями:

Вычислить сумму, используя циклы WHILE и REPEAT
Помогите, плз, фото прикрепил WHILE и REPEAT

Вычислить значение произведения, используя цикл с постусловием
Ребят помогите решить задачу с помощью цыкла repeat-until Вот условие: p:=p*(1-1/i*i) Вот код...

Вычислить значение выражения, используя циклы
ПОвторение действий языков програмирования и освоения приемов алгоритмизации циклических струкрур ....

Вычислить значение выражения, используя циклы
Доброго времени суток. Вот собственно выражение: ...

3
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,717
Записей в блоге: 1
05.06.2014, 14:10 2
Лучший ответ Сообщение было отмечено Stopzon как решение

Решение

For
Pascal
1
2
3
4
5
6
7
8
9
10
Var k,b:longint;
    pr:real;
Begin
    write('b: ');readln(b);
    pr:=1;
    For k:=0 to b do
     pr:=pr*exp(k*ln(3));
    writeln(pr:0:0);
    readln;
End.
While
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var k,b:longint;
    pr:real;
Begin
    write('b: ');readln(b);
    pr:=1;k:=0;
    While k<=b do
    Begin
      pr:=pr*exp(k*ln(3));
      inc(k);
    End;
    writeln(pr:0:0);
    readln;
End.
Repeat
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var k,b:longint;
    pr:real;
Begin
    write('b: ');readln(b);
    pr:=1;k:=0;
    Repeat
      pr:=pr*exp(k*ln(3));
      inc(k);
    Until k>b;
    writeln(pr:0:0);
    readln;
End.
1
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 2
05.06.2014, 14:13  [ТС] 3
Спасибо.
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
05.06.2014, 14:27 4
Цикл вообще не нужен, просто посчитать сумму показателей степеней и один раз возвести в полученную степень.
Pascal
1
pr:=exp(((b+1)*b/2)*ln(3));
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 14:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить значение выражения, используя циклы
Ответ не совпадает, думаю проблема в степени числа а. Можете указать на ошибку и как её исправить?...

Вычислить значение выражения используя вложенные циклы
Здравствуйте!

Не используя циклы вычислить значение числового ряда
Не используя циклы вычислить значение числового ряда \sum_{n=1}^{\infty...

Вычислить значение выражения используя вложенные циклы
нужна помощь \sum_{i=1}^{7} \sum_{j=1}^{\infty} \frac{\sqrt{i}+2\sqrt{j}}{ij^3} с точностью...


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

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

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