Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 08.11.2008, 23:06   #1
elsibell
Новичок
Джуниор
 
Регистрация: 08.11.2008
Сообщений: 2
По умолчанию спортсмен пробежал 8 км,каждый следующий день он увеличивал дневную норму на 15%

в первый день спортсмен пробежал 8 км,каждый следующий день он увеличивал дневную норму на 15% от нормы предыдущего дня.через сколько дней он будет пробегать в день более 40 км
есть у мя наброски но как и с чем их сочетать незнаю.n:=8*1.15^(n-1); log[1.15](5)+1; while x:<40;если есть возможность помогите плиз.заранее спасиб
elsibell вне форума   Ответить с цитированием
Старый 08.11.2008, 23:50   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,690
По умолчанию

Код:
var
  s: real;
  n: integer;
begin
  s := 8;
  n := 1;
  while s <= 40 do
  begin
    n := n+ 1;
    s := s * 1.15;
    writeln(n, ' day   s = ', s:0:5, ' km');
  end;
  writeln('n = ', n);
  readln
end.
eoln вне форума   Ответить с цитированием
Старый 09.11.2008, 00:05   #3
elsibell
Новичок
Джуниор
 
Регистрация: 08.11.2008
Сообщений: 2
По умолчанию

спасибо огромное
elsibell вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Растягивающийся DIV и толкающий в низ следующий DIV Суриков HTML и CSS 6 29.08.2008 12:01
Удвоить каждый символ строки, потом перевернуть строку Didi Помощь студентам 6 20.05.2008 15:33
Паскаль. Напишите программу,удваивающую каждый символ в заданном тексте Yola Помощь студентам 2 19.11.2007 18:31
каждый программист это должен знать bill Свободное общение 18 24.07.2007 20:34
5 дат, которые должен знать каждый Гриха Свободное общение 37 23.02.2007 19:41


19:12.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.