Question

Помогите с информатикой, пожалуйста. Мы проходим программирование циклов на Паскале и нужно решить задачу. Спортсмен в первый день пробежал 3 км, а в каждый последующий день увеличивал дистанцию на 200 м. Сколько пробежал спортсмен: А) в 15 день Б) за 15 дней

Answer 1

 var a:real;
 i:integer;
begin a:=10;
for i:=1 to 7 do begin
a:=a+(a*0.1);
end;
write(a,' ');
end.

Answer 2

Var  
   day,                      //номер дня 
   day_dist,              //дистанция пройденная в этот день в метрах 
   sum_dist :integer;//дистанция пройденная за все дни 
Begin 
   day_dist:=3000;   //за первый день пробежал 3000 м. 
   sum_dist:=3000;  //общая дистанция тоже 3000 м. 

//Найти ответ можно тремя способами 
//Вариант 1. цикл for
{
   for day:=2 to 15 do begin      //считаем со 2 по 15 день   
      day_dist:= day_dist + 200;//дневная дистанция увеличивается на 200 м. 
      sum_dist:= sum_dist + day_dist;//общая дистанция увеличивается на 
                                                            дистанцию пройденную за день 
   end; 
} 

//Вариант 2. цикл while  
{ 
   day:=1;                                              //первый день посчитан 
   while day < 15 do begin                  //пока не настал 15 день считаем   
      day := day +1;                                //увеличиваем номер дня   
      day_dist:= day_dist + 200;           //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   end; 
} 
//Вариант 3. цикл repeat until  
{ 
   day:=1;                                               //первый день посчитан 
   repeat                                              //начинаем считать следующие   
      day := day +1;                                //увеличиваем номер дня   
      day_dist:= day_dist + 200;          //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   until day = 15;                                   //если настал 15 день перестаем считать 
} 
   writeln('В 15 день пройдено ', day_dist,'метров.');  //вывод результатов
   writeln('За 15 дней пройдено ', sum_dist,'метров.');
end.

Answer 3

Для решения этой задачи, вы можете использовать цикл в Паскале, чтобы посчитать дистанцию, которую спортсмен пробежит в каждый из 15 дней.

Приведу пример кода на Паскале:

pascalCopy code
program SportDistance;

var
  day: Integer;
  distance: Integer;

begin
  distance := 3; // начальная дистанция
  for day := 2 to 15 do
  begin
    distance := distance + 200; // увеличиваем дистанцию на 200 метров
  end;

  // Выводим результат
  writeln('Дистанция, пройденная спортсменом в 15-й день: ', distance, ' метров');
  writeln('Дистанция, пройденная спортсменом за 15 дней: ', distance * 15, ' метров');
end.

Этот код использует цикл for, чтобы увеличить дистанцию на 200 метров в каждый последующий день. Затем выводит результаты: дистанцию, которую спортсмен пройдет в 15-й день, и общую дистанцию за 15 дней.