Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
olecka565
0 / 0 / 0
Регистрация: 25.04.2013
Сообщений: 6
1

Сколько кг пищи съест Винни-Пух

25.04.2013, 14:05. Просмотров 848. Ответов 3
Метки нет (Все метки)

На первом и втором дне рождения у Пятачка Винни-Пух съел по 100 г пищи, а в каждый из следующих дней он съедал столько, сколько за два предыдущих.
1)Сколько кг пищи съест он на 15-ый день рождения?
2)На какой день рождения суммарный объем съеденной пищи превысит тонну?
Помогите пожалуйста чем сможете,буду очень благодарна
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2013, 14:05
Ответы с готовыми решениями:

Определить, сколько килограммов пищи Винни-Пух съест на пятнадцатом дне рождения
На каждом следующем дне рождения Винни-Пух съедает столько же пищи что и на...

Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения
Помогите с решением: На каждом следующем дне рождения Вини Пух съедает столько...

Определить, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха
На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько...

Определить объем меда, собранного Винни-Пухом на зиму
Задача: Все любят сладости и, в частности, мед. Винни-Пух тоже его любит....

Написать программу, определяющую, сколько килограммов пищи Винни-Пух съест на пятнадцатом дне рождения
На каждом следующем дне рождения Винни-Пух съедает столько же пищи что и на...

3
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
25.04.2013, 14:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  S : array [1..15] of integer;
  i, sum : integer;
  flag : boolean;
 
begin
  S[1] := 100;  S[2] := 100;
  sum := 200;  flag := false;
  for i := 3 to 15 do
    begin
      S[i] := S[i - 1] + S[i - 2];
      sum := sum + S[i];
      if (sum > 1000) and not (flag) then 
        begin 
          Writeln('На ', i, ' день пища превысила тонну!');
          flag := true;
        end;
    end;
  Writeln('на 15 день Винни-Пух съест: ', S[15], ' г пищи');
  Readln;
end.
1
alex_mora
0 / 0 / 0
Регистрация: 25.04.2013
Сообщений: 6
25.04.2013, 17:16 3
Тут скорее задача на внимательность или на знание основных величин СИ (грамм, килограмм, тонна...).
Как видно из условия, пятачок съедал по 100 ГРАММ, а не килограмм. А решение приведено именно для килограммов.
Причем, если исправить в предложенном решении S[1], S[2] и sum на правильные числа, выраженные в килограммах, т.е. S[1] := 0.1 (кг), S[2] := 0.1 (кг) и sum := 0.2 (кг), то мы так и не узнаем на какой день сумма превысит тонну (1000 кг), т.к. за 15 циклов эта цифра не будет достигнута.
Нужен еще один цикл while, в котором будем считать к-во дней до 1 тонны. А в первом оставим только подсчет еды на 15-ый день.
Ну или же оставить один цикл while, но проверять не достигнут ли конец массива и дальше считать только дни.

Или же очепятка автора и там действительно кг, а не г. Тогда всё правильно, хотя логически алгоритмы не пишутся заведомо зная входящие цифры. А если препод скажет - хорошо, а давайте посчитаем то же при других данных. А у вас цикл до 15 только...
0
alex_mora
0 / 0 / 0
Регистрация: 25.04.2013
Сообщений: 6
26.04.2013, 19:09 4
ну да, пятачок, он же - свинья! Ведмед столько не ест!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2013, 19:09

Сколько меда Винни-Пух съест на N-м дне рождения, если на каждом следующем он съедает на 50г больше
Медвежонок Винни Пух на первом дне рождения, которое он посетил, съел 100 грамм...

Сколько съел Винни-Пух на 15-ый День Рождения
Винни-пух на свое день рождение ведает столько еды сколько съел на двух...

Определить, на сколько похудел Винни-Пух в фунтах и унициях
Винни-Пух похвастался Кролику, что похудел на M килограмм. Определить, на...


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

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

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