0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 2
1

Программа про спортсмена

14.02.2017, 15:26. Показов 1626. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Спортсмен приступает к тренировкам по след. графику:
В 1ый день он пробегает 10 км. Каждый след. день следует увеличивать дистанцию на 10% от предыдущего дня. Как только норма превысит 25 км необходимо прекратить ее увеличение, и далее пробегать ежедневно 25 км. Начиная с какого дня спортсмен будет пробегать 25 км.

Мне нужна Ваша помощь, т.к. не знаю как составить программу
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2017, 15:26
Ответы с готовыми решениями:

Программа оценки выступления спортсмена
Программа оценки выступления спортсмена Выступление спортсмена оценивают N судей. Оценка - целое...

программа про матрицу
Составте программу вычисления суммы нечетных элементов матрицы A(N,N).

Программа про шахматы
помогите пожалуйста исправить вот эту программу. Шахматную доску будем представлять в виде ...

Программа про столетия
Напишите процедуру(функцию) для определения годов столетия (1900-2000),которые начинаются и...

3
Платежеспособный зверь
8933 / 4361 / 1642
Регистрация: 28.10.2009
Сообщений: 11,584
14.02.2017, 16:13 2
Ты будешь 1257-й кто запостил эту задачу на форуме. Поиск, товарисч, поиск тебя спасёт...
0
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
15.02.2017, 01:38 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
S:real;
day:integer;
begin
S:=10;
day:=1;
while S<25 do
begin
S:=S+S*0.1;
day:=day+1;
end;
writeln(day);
readln;
end.
0
Модератор
9908 / 5265 / 3319
Регистрация: 17.08.2012
Сообщений: 16,097
17.02.2017, 17:08 4
Вариант:
Pascal
9
10
S:=S*1.1;
inc(day);
Без цикла:
Pascal
1
2
3
4
5
6
7
var day: real;
begin
  day := ln(25 / 10) / ln(1.1) + 1;
  if frac(day) > 0 then day := day + 1;
  write(trunc(day));
  readln
end.
Не для Turbo Pascal:
Pascal
1
2
3
4
5
uses math;
begin
  write(ceil(ln(25 / 10) / ln(1.1) + 1));
  readln
end.
0
17.02.2017, 17:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2017, 17:08
Помогаю со студенческими работами здесь

Программа про круг
Помогите плз создать программу: Создать процедуру которая рисует закрашенный круг красным цветом....

Программа про треугольник
Вводим 2 угла треугольника с клавиатуры, программа считает 3й (180-угол1-угол2) и должна выводить...

программа про 3 числа
Ребята мне на зачёте дали задачу. Дано натуральное число n. Проверить, есть ли в этом числе 3...

Программа про деление на два
Дано три целых числа, вывести на екран те из них которые являются чётыми


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru