Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 02.12.2010
Сообщений: 4
1

Определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км

02.12.2010, 14:38. Показов 1993. Ответов 2
Метки нет (Все метки)

Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега предыдущего дня (р вещественное 0<р<50) по данному р определить после какого дня суммарный пробег лыжника за все дни превысит 200 км. и вывести найденное количество дней К (целое) и суммарный пробег S(вещественное)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2010, 14:38
Ответы с готовыми решениями:

Определить, после какого дня общий пробег лыжника за все дни превысит N км
Помогите пожалуста напеисать програму на паскале для такой задачи Спорстмен-лыжник начал...

По данному P определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км
Спортсмен-лыжник начал тренировки , пробежав в первый день 10 км . Каждый ...

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

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

2
Заблокирован
02.12.2010, 14:41 2
Лучший ответ Сообщение было отмечено Заида как решение

Решение

Pascal
1
2
3
4
5
6
7
8
s:=10;
k:=1;
while s<=200 do
begin
s:=s+p;
k:=k+1;
end;
writeln('K=',k,'  S=',s);
1
Почетный модератор
64118 / 47524 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
02.12.2010, 14:55 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var k:integer;
    sd,s,p:real;
begin
clrscr;
repeat
write('Увеличение длины пробега 0<p<50 p=');
readln(p);
until(p>0)and(p<50);
s:=10;
sd:=10;
k:=1;
while s<200 do
 begin
  sd:=sd+p;
  s:=s+sd;
  k:=k+1;
  writeln('K=',k,'  S=',s:0:3);
 end;
writeln('K=',k,'  S=',s:0:3);
readln
end.
Добавлено через 59 секунд
Цитата Сообщение от pavelr Посмотреть сообщение
s:=s+p;
Это не верно, р не ежедневный пробег, а приращение.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2010, 14:55
Помогаю со студенческими работами здесь

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

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

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

Цикл: По данному P определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км
Циклические программы. Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый...


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

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

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