Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/29: Рейтинг темы: голосов - 29, средняя оценка - 4.83
2 / 2 / 1
Регистрация: 21.12.2009
Сообщений: 24

"Незнайка и слова"

03.03.2010, 19:32. Показов 5630. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ежедневно незнайка учит половину от сумм выученных за 2 предыдущих дня иностранных слов и еще 2 слова. Знайка считает, что силы незнайки иссякнут, когда нужно будет выучить K слов в день.
Написать собственно программу, определяющую через сколько дней иссякнут силы у Незнайки, если в первые 2 дня он выучил по M слов.

Неподумав, решил что иссякнут силы когда он не сможет выучить ниодного слова - т.е кол-во слов будет меньше единицы.

Потом составив блок схему и рисунок, я понял, что Незнайка получается ум?

Если в первые два дня он выучит хотябы по одному слову, то в третий день он выучит (1+1)/2 + 2 = 3 слова??

Помогите понять суть, может я в чем-то заблуждаюсь...
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.03.2010, 19:32
Ответы с готовыми решениями:

Определить, на какой день Незнайка отказался от своей затеи
Условие : НЕЗНАЙКА решил отправиться в космическое путешествие на Марс. Его отговори все жители...

Определить, на какой день Незнайка отказался от своей затеи
Условие : НЕЗНАЙКА решил отправиться в космическое путешествие на Марс. Его отговори все жители...

Файлы. Незнайка купил конфеты и хочет разделить их поровну между 9 коротышками. Определить, возможно ли это сделать?
Незнайка купил в магазине определенное количество конфет.Он хочет разделить их поровну между 9...

8
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
03.03.2010, 19:37
это возрастающая последовательность и когда она достигнет числа К, надо будет сообщить кол-во дней
М по определению меньше К, составляем формулу и циклом while или repeat находим решение
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
03.03.2010, 19:41
Цитата Сообщение от maxnm Посмотреть сообщение
я понял, что Незнайка получается ум
не то, чтобы ум... он весь мозг!

По задаче:
Допустим первые два дня он выучил по 2 слова (М=2).
Тогда третий день будет: (2+2)/2 + 2 = 4 слова
в четвертый день он выучит (2+4)/2 +2 = 5 слов
и т.д.
Знайка думает, что Незнайка сдуется, когда Незнайке нужно будет выучить К слов в день.
Пусть К = 7
В нашем случае пятый день = 6 с половиной слова (округлим до 6)
шестой день = 7 с половиной ( = 7 слов)
соответственно Незнайка сдуется на шестом дне...
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
03.03.2010, 19:47
Была как-то недавно эта задача здесь
0
2 / 2 / 1
Регистрация: 21.12.2009
Сообщений: 24
03.03.2010, 21:16  [ТС]
Суть программы чтоли будет в том, что ввести K - кол-во слов в дней, и ждать пока цикл достигнет этого числа (K) ?

зы. я сам скрипты пишу, поэтому с кодом разберусь уж. я саму суть не понял задачи =(
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
03.03.2010, 21:25
Цитата Сообщение от maxnm Посмотреть сообщение
Суть программы чтоли будет в том, что ввести K - кол-во слов в дней, и ждать пока цикл достигнет этого числа (K) ?
да + еще ввести сколько слов в первые 2 дня.
0
2 / 2 / 1
Регистрация: 21.12.2009
Сообщений: 24
03.03.2010, 22:09  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var days, words1, words2, today, vsego: integer;
begin
    today := 0; // сегодня он еще ничего не сказал
    days := 1;   
    writeln('Введите количество слов сказанных в 1 и 2 дне: ');
    readln(words1);
    readln(words2);
    writeln('Введите количество слов: ');
    readln(vsego);
    while today <= vsego do begin
        days := days+1;
        words1 := words2;
        words2 := today;
        today := ((words1 + words2) / 2) + 2;
    end;
    writeln('Незнайке потребуется - ', days, ' ...');
end;
ну вот такое чудо получилось + чуть чуть потырил из интернета

у кого-нибудь есть компилятор под рукой? а то у меня ни делфи, ни паскаля под этими 64 битными..
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
04.03.2010, 11:05
Поправил синтаксис.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var days, words1, words2, today, vsego: integer;
begin
        today := 0; { сегодня он еще ничего не сказал}
        days := 1;
        writeln('Введите количество слов сказанных в 1 и 2 дне: ');
        readln(words1,words2);
        writeln('Введите количество слов: ');
        readln(vsego);
        while today <= vsego do begin
                days := days+1;
                words1 := words2;
                words2 := today;
                today := (words1 + words2) div 2 + 2;
        end;
        writeln('Незнайке потребуется - ', days, ' ...');
readln      
end.
0
3318 / 1380 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
04.03.2010, 13:11
к программе Puporev
Миниатюры
"Незнайка и слова"  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.03.2010, 13:11
Помогаю со студенческими работами здесь

Напечатать все слова, отличные от последнего слова, преобразовав по правилу: перенести первую букву в конец слова
Помогите пожалуста решыть: 10.18. Программа. Дана последовательность, содержащая от 2 до 30 слов,...

Удалить слова, которые содержат все буквы заданного слова, и продублировать остальные слова
Разделитель — один из символов « ,.;:!?&quot;'» (начиная с пробела и заканчивая апострофом). Буква —...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка. Напечатать этот текст...

Напечатать все слова, перенеся первую букву каждого слова в конец слова
приветствую вас))) помогите пожалуйста даме... Текст задан строкой var St: string; Напечатать...

Напечатать все слова, отличающиеся от последнего слова, перед печатью перенеся последнюю букву в начало слова
Слова текста из малых латинских букв записаны не менее чем через один пробел; текст оканчивается...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. На мобильном - сканируйте QR-код. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru