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

Использование функций в программах

09.04.2010, 20:57. Показов 1614. Ответов 4
Метки нет (Все метки)

Помогите решить задачу. Дано натуральное число n. Выяснить, можно ли представить его в виде произведения трех последовательных натуральных чисел.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2010, 20:57
Ответы с готовыми решениями:

Использование подпрограмм-функций в программах
Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного...

Использование подпрограмм-функций в программах
Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного...

Использование процедур в программах
Помогите решить практику, куча долгов до конца месяца, буду очень признателен Написать...

Использование dll в программах
приветствую! у меня есть проблема : я не знаю как использовать dll. есть вот такая dll : ...

4
2 / 2 / 0
Регистрация: 09.04.2010
Сообщений: 18
09.04.2010, 23:39 2
фрагмент кода:

for k:=1 to sqrt(n) do //дальше чем sqrt(n) нет смысла искать числа(диапазон немного неточный)
if (n = (((k*k)-1)*k)) then ... //представить можно

цикл "тяжёлый", но должен работать...
принцип объясняю
к примеру n = 24 тогда 2*3*4 = 24
2*4 = (3*3)-1 (формула выполняется всегда. Ещё пример: 5*7 = (6*6)-1; )
значит ((3*3)-1)*3

P.S. цикл был бы не нужен вообще, если бы была функция корня кубического, на сколько я знаю такой нет(хотя можно самому помучаться)...
0
32 / 20 / 9
Регистрация: 05.03.2010
Сообщений: 51
10.04.2010, 00:10 3
функция корня кубического выглядит так, (только что сообразил)

exp(1/3 * ln(x))

объясняю, экспонента с степени логарифм по основанию экспонента спустит из степени все, что в логарифме, одну третью вносим в логарифм и получается корень кубический из х=) в итоге получается просто равносильное выражение=) так можно со всеми остальными степенями=)) в Паскале можно возводить в степени!!!=)))
1
2 / 2 / 0
Регистрация: 09.04.2010
Сообщений: 18
10.04.2010, 01:07 4
путем глубоких размышлений, я понял что без цикла получится бесконечная формула:
ведь нельзя посчитать n = (k*k*k) - k; где k = exp(1/3 * ln(n + k)); (спасибо НеПродюссер за формулу корня)

поэтому выход, кажется, будет следующим:
for k:=1 to round(exp(1/3 * ln(n + k))) do //на сей раз диапазон цикла точный, если round не испортит...
if (n = (k*k*k) - k) then ... //представить можно

P.S.где вы только берёте такие задачи???
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
10.04.2010, 15:49 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var n,i:integer;
begin
clrscr;
write('n=');readln(n);
i:=1;
while i*(i+1)*(i+2)<n do
i:=i+1;
if i*(i+1)*(i+2)=n then write('Yes!')
else write('No!');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2010, 15:49

Оформить в виде подпрограмм-функций в программах
Составьте программу нахождения суммы комплексных чисел. Комплексные числа хранятся в массиве....

Оформить в виде подпрограмм-функций в программах
Prog type complex = record x: real; y: real; end; var ...

Задача на использование функций в качестве параметров других функций
Составить программу по заданному условию. Первая часть условия является заданием на разработку...

Использование записей для обработки разнотипной информации , работа с файлами в Паскаль - программах
Помогите пожалуста,я написал програму но проблема - она создает текстовий файл не такой как...


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

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

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