Помогите решить задачки циклом Repeat, Решение задач. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Помогите решить задачки циклом Repeat, Решение задач. |
Гость_Андрей |
Сообщение
#1
|
Гость |
1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?
2. Определить 40-е число Фибоначчи. Поиск первого числа Фибоначчи, большего m(m+1); Вычисление суммы всех чисел Фибоначчи, которые не превослодять 1000. |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата 1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято? есть произведение N членов, то кол-во сомножителей разьве не N ??? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Гость_Андрей |
Сообщение
#3
|
Гость |
Ты напутал.Н - это количество умноженных друг на друга нечётных. А сомножетелей может быть как больше так и меньше.
|
Гость_Андрей |
Сообщение
#4
|
Гость |
Мы то Н не знаем изначально.
|
volvo |
Сообщение
#5
|
Гость |
Гость_Андрей
А пример, где число сомножителей не равно N можно? Желательно, и тот где сомножителей больше, и тот, где меньше... |
Гость_Андрей |
Сообщение
#6
|
Гость |
К сожалению число сомножителей должно равняться Н.
|
volvo |
Сообщение
#7
|
Гость |
Цитата есть произведение N членов, то кол-во сомножителей разьве не N Не это ли было сказано выше? |
Гость_Андрей |
Сообщение
#8
|
Гость |
прошу прощения, не так прочитал. Да, он прав !!!
|
Altair |
Сообщение
#9
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
перенесенно в "задачи".
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
trminator |
Сообщение
#10
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Цитата 1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято? Чтобы понятнее: дано произведение N первых нечетных чисел. Вопрос: чему равно N? Код program proizv; var p : integer; {Дано} n : integer; {Найти} cur, cur_p : integer; {в cur - текущий множитель (нечетное число), в cur_p - текущее произведение} begin readLn(p); cur := 1; cur_p := 1; n := 0; repeat cur_p := cur_p * cur; inc(n); cur := cur + 2; until cur_p >= p; writeLn(n) end. А чтобы не было совсем халявы тут не предусмотрен вариант, что ответа нет (введу я, например, 16, а мне выдаст - 3). Допиши сам -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Юляшка |
Сообщение
#11
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Цитата(Гость_Андрей @ 31.01.05 21:42) 2. Определить 40-е число Фибоначчи. Код program fibonaacci; uses wincrt; var f0,f1,fn:longint; n,i:word; begin readln(n); f0:=0; f1:=1; write (f0:10,f1:10); for i:=3 to n do begin fn:=f0+f1; f0:=f1; f1:=fn; write (fn:10); end; end. Выводит числа Фибоначчи с 1ого до n-ого если модернизировать,то будет считать все что нужно |
Altair |
Сообщение
#12
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата если модернизировать,то будет считать все что нужно А именно вот так: Код uses wincrt; var f0,f1,fn:longint; n,i:word; begin n:=40; f0:=0; f1:=1; for i:=3 to n do begin fn:=f0+f1; f0:=f1; f1:=fn; end; write (fn:10); end. Код для BWP или TPW, для запуска в BP или TP, замените Wincrt на crt ... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Юляшка |
Сообщение
#13
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Ну да. я это и имела в виду! :no:
|
-Андрей_* |
Сообщение
#14
|
Гость |
Спасибо ребята большое!
|
Анатолий |
Сообщение
#15
|
Гость |
Уважаемые, дайте плз линк для скачивания паскаля под виндовс !!! Система ХП. Всё было неплохо но внезапно при запуске дос - приложений винда пишет: C:\windows.000\system32\autoexec.nt. The system file is not suitable for running MS-DOS and Microsoft applications. Choose `Close` to terminate the application. Фар не помогает. Что делать ? Выручайте ! Без паскаля умру =)
|
volvo |
Сообщение
#16
|
Гость |
Анатолий
Смотрите здесь, этот вопрос поднимался: http://forum.pascal.net.ru/index.php?show...indpost&p=24680 В следующий раз попробуйте воспользоваться поиском... ;) |
Текстовая версия | 11.05.2024 2:18 |