Вывести на экран пробег спортсмена за каждый день и суммарный пробег

[KriSSka]

Начав тренировки, спортсмен пробежал в первый день 10 км. В каждый последующий день он увеличивал пробег на 10% от пробега предыдущего дня. Всего спортсмен занимался 11 дней. Вывести на экран пробег спортсмена за каждый день и суммарный пробег за 11 день.

[BDA]

Uses CRT;
var
d,all:real;
i:integer;
BEGIN
d:=10;
all:=0;
for i:=1 to 11 do
begin
	writeln(i,' day: ',d:4:3,' km');
	all:=all+d;
	d:=d+d/10;
end;
writeln('All: ',all:4:3,' km');
readln;
END.

[Paster Fob]

var day,p:real;i:byte;
begin
  day:=10;
  p:=day*10/100;
  writeln('в 1 день ',day:2:2,' km');
  for i:=1 to 10 do begin
    day:=day+p;
    writeln('в ',i+1,' день ',day:2:2,' km');
  end;
  writeln('всего ',day:2:2,' km');
  readln
end.

[BDA]

Paster Fob, ваш код ошибочен.
Пробег увеличивался на 10 процентов от предыдущего дня.
Во-вторых, что значит day*day/100? Это не 10 процентов от пробега (математически). 10 процентов от пробега 0.1*day.

[Paster Fob]

Сообщение от BDA

Paster Fob, ваш код ошибочен.
Пробег увеличивался на 10 процентов от предыдущего дня.
Во-вторых, что значит day*day/100? Это не 10 процентов от пробега (математически). 10 процентов от пробега 0.1*day.

Здесь ошибся,надо было day*10/100 исправил.в остальном код правильный.

[BDA]

Ладно, это была опечатка с day*day. Но код все равно неверен.
Вы прибавляете 10 процентов от 10 км каждый раз, но в условии 10% от пробега в ПРЕДЫДУЩИЙ день, т.е. в первый день было 10 км, тогда во второй будет 11 км (10 км +10% от 10 км=1 км). В третий день будет 12.1 км (11 км + 10% от 11 км=1.1 км) и т.д.

[Paster Fob]

Сообщение от BDA

Ладно, это была опечатка с day*day. Но код все равно неверен.
Вы прибавляете 10 процентов от 10 км каждый раз, но в условии 10% от пробега в ПРЕДЫДУЩИЙ день, т.е. в первый день было 10 км, тогда во второй будет 11 км (10 км +10% от 10 км=1 км). В третий день будет 12.1 км (11 км + 10% от 11 км=1.1 км) и т.д.

согласен,тупанул не правильно понял задание.
я же учусь самостоятельно,многое недопонимаю,зато буду знать к кому обратиться.

[BDA]

Хорошо, что разобрались теперь.
Самообучение - похвально.