Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
damir2407
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 30
1

Определить, за сколько дней может похудеть спортсмен со 100 до 80 кг

21.12.2015, 16:05. Просмотров 952. Ответов 4
Метки нет (Все метки)

Решите с помощью цикла while или же repeat, но не как не for. Спасибо!
За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2015, 16:05
Ответы с готовыми решениями:

Определить, за сколько дней спортсмен пробежит Х км
В первый день спортсмен пробежал М километров, а затем он каждый день...

Определить, через сколько дней спортсмен будет пробегать больше 20 км
Здравствуйте! Я бы хотела решить задачу про спортсмена, пробегавшего 10...

Рекурсия: определить, через сколько дней количество съеденных комаров превысит 100
Царевна-лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день,...

Определить, через сколько дней общий суммарный пробег спортсмена составит не менее 100 км
Задание: С меня "Спасибо" :)

Через сколько дней спортсмен будет пробегать больше 20 км, увеличивая дневные тренировки на 10%?
Начав тренировки,спортсмен в первый день пробежал 10 км.Каждый следующий день...

4
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
21.12.2015, 17:33 2
Лучший ответ Сообщение было отмечено damir2407 как решение

Решение

Pascal
1
2
3
4
5
6
7
n:=100; k:=0;
While n>80 do
Begin
  n:=n-n/100;
  Inc(k);
end;
Writeln(k);
1
damir2407
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 30
21.12.2015, 18:06  [ТС] 3
Inc(k); Выводит ошибку: Нет перегруженной подпрограммы с такими типами параметров
Как исправить?Стоит тип Real. И вообще, что значит inc(k), можно ли заменить?Мы такое не проходили)
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,083
21.12.2015, 18:53 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  k: integer;
  n: real;
 
begin
  n := 100; k := 0;
  while n > 80 do
  begin
    n := n - n / 100;
    Inc(k);
  end;
  Writeln(k);
end.
Добавлено через 48 секунд
inc(k) = k:=k+1
0
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
21.12.2015, 18:53 5
inc это увеличение на единицу, замените на k:=k+1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
n:real;
begin
 n:=100;
 var k:=0;
While n>80 do
Begin
  n:=n-n / 100;
  k:=k+1;
 end;
Writeln(k);
end.
0
21.12.2015, 18:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2015, 18:53

Определить, какой суммарный путь пробежит спортсмен за 7 дней
Используя цикл for написать программу Начав тренировки, спортсмен в первый...

Определить, какой суммарный путь спортсмен пробежит за n дней (переписать с использованием рекурсии)
Uses crt; var n,i:word; vsego,x:real; k:byte; begin clrscr; x:=10; ...

Рекурсия: какой суммарный путь спортсмен пробежит за 7 дней и за 10 дней?
1) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он...


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

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

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