Циклические алгоритмы (Алгоритмы с одним циклом)

@night_dragon · Регистрация: 08.12.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток!

Помогите пожалуйста написать программы на циклы в Delphi 7, а то я только с линейными и разветвляющиеся разобрался, а вот циклы пока тупик ( Заранее благодарю!

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

@newyork7776 · 08.12.2013, 16:59

2

Delphi

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var d:Integer;
    m:Real;
begin
  Writeln('Data [start] = 1 day[10 km]    10%');
  d:=1;
  m:=10;
  while (m<=100) do
    begin
      Inc(d);
      m:=m+(m*0.1);
    end;
  Writeln('Data [finish] = last day[',m:0:2,']  =  ',d,' day');
  readln;
end.

@night_dragon 0 / 0 / 0 Регистрация: 08.12.2013 Сообщений: 21
		1
	Циклические алгоритмы (Алгоритмы с одним циклом) 08.12.2013, 16:35. Показов 1668. Ответов 1 Метки нет (Все метки) Доброго времени суток! Помогите пожалуйста написать программы на циклы в Delphi 7, а то я только с линейными и разветвляющиеся разобрался, а вот циклы пока тупик ( Заранее благодарю! Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от результата предыдущего дня. Через сколько дней спортсмен пробежит суммарный путь более 100 км? 0

Опции темы

Циклические алгоритмы (Алгоритмы с одним циклом)

Решение