Выявление ошибки в программе

@простоКот · Регистрация: 22.04.2014

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
program n1;
var
n: integer;
s: real;
begin
readln(n);
s:=10;
for n:=n downto 2 do s:=s+1.1*s; // ошибка здесь
writeln(s);
writeln;
end.

@ermolay · 07.05.2014, 20:36

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program n1;
var
  i, s: integer;
  p, t: real;
begin
  readln(s);
  t := 10; // расстояние первого дня
  p := t;  // общая сумма после первого дня
  for i := 2 to s do // цикл начинаем со второго дня
  begin
    t := t * 1.1; // очередной день
    p := p + t;  // сумма после очередного дня
  end;
  writeln(p);
  readln;
end.

@простоКот · 08.05.2014, 14:51 **[ТС]**

ermolay, эм, тот код программы который писал я правильный, там только 1 строку надо изменить, потому что если не изменить её то там считает... "6.1051000000Е+01" а должно выдавать конкретное число.

@ermolay · 08.05.2014, 15:05

Сообщение от простоКот

там считает...

writeln(s:0:2); - форматированный вывод для вещественного числа, покажет 2 знака после запятой

Сообщение от простоКот

код программы который писал я правильный

посчитайте расстояние для трех дней (должно быть 10 + 11 + 12.1)

@простоКот · 08.05.2014, 16:30 **[ТС]**

ermolay, укажи пожалуйста весь код программы, просто я чего то недопонимаю(

@ermolay · 08.05.2014, 19:26

турбо паскаль? убрал комментарии, в турбо паскале они другие, добавил приглашение на ввод количества дней (s), форматированный вывод результата:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program n1;
var
  i, s: integer;
  p, t: real;
begin
  readln(s);
  t := 10;
  p := t;
  for i := 2 to s do
  begin
    t := t * 1.1;
    p := p + t;
  end;
  writeln(p:0:2);
  readln;
end.

Добавлено через 14 секунд
остальное тоже самое

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@простоКот 0 / 0 / 0 Регистрация: 22.04.2014 Сообщений: 17
	08.05.2014, 14:51 [ТС]
	ermolay, эм, тот код программы который писал я правильный, там только 1 строку надо изменить, потому что если не изменить её то там считает... "6.1051000000Е+01" а должно выдавать конкретное число. 0

@простоКот 0 / 0 / 0 Регистрация: 22.04.2014 Сообщений: 17
	08.05.2014, 16:30 [ТС]
	ermolay, укажи пожалуйста весь код программы, просто я чего то недопонимаю( 0