Формулировка задачи:
Разработайте программу для решения задачи: «Составить график тренировок спортсмена на неделю по правилу: в первый день пловец должен проплыть 3 км, а в каждый следующий день на 10% больше, чем в предыдущий». Ответ предоставить в виде: таблицы:
1 день – 3 км;
2 день – 3,3 км;
…………………
7 день – х км.
Код к задаче: «Составить график тренировок спортсмена на неделю по правилу»
textual
var i:integer; k:real; begin k:=3; for i:=1 to 7 do begin writeln(i,' день - ',k:0:1,' км;'); k:=k*1.1; end; end.
Полезно ли:
15 голосов , оценка 4.533 из 5
Напишите пожалуйста программу в виде Паскаля ABC : 3 В первый день спортсмен пробежал 5 км.
Каждый следующий день он увеличивал дневную норму на 20 % нормы предыдущего дня.
Какой суммарный путь пробежит спортсмен за N дней?
На этой странице сайта размещен вопрос Напишите пожалуйста программу в виде Паскаля ABC : 3 В первый день спортсмен пробежал 5 км? из категории
Информатика с правильным ответом на него. Уровень сложности вопроса
соответствует знаниям учеников 5 – 9 классов. Здесь же находятся ответы по
заданному поиску, которые вы найдете с помощью автоматической системы.
Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по
заданной теме. На этой странице можно обсудить все варианты ответов с другими
пользователями сайта и получить от них наиболее полную подсказку.
ИНФОРМАТИКА СРОЧНО! много баллов
ПАСКАЛЬ
НАДО РЕШИТЬ С ПОМОЩЬЮ ОПЕРАТОРА – WHILE
ЕСТЬ ПЕРВЫЙ ВАРИАНТ РЕШЕНИЯ
НАДО НАПИСАТЬ ВТОРОЮ С ПОМОЩЬЮ – WHILE
помогите пожалуйста!
Задача. Спортсмен приступает к тренировкам по следующему графику: в первый день он должен пробежать 10 км; каждый следующий день следует увеличивать дистанцию на 10% от нормы предыдущего дня. Как только дневная норма достигнет или превысит 25 км, необходимо прекратить её увеличение и далее пробегать ежедневно ровно 25 км. Начиная с какого дня, спортсмен будет пробегать 25 км?
Нужно написать второй вариант программы
Вариант 1
program sportsmen;
var a:integer; x:real;
begin
writeln(‘График тренировок’);
a:=1;
x:=10;
repeat
a:=a+1;
x:=x+0.1*x;
until x>=25;
writeln (‘Начиная с ‘, a, ‘–го дня спортсмен будет пробегать 25 км’)
Вариант 2 ?
Опубликовано 22.08.2017 по предмету Информатика от Гость
>> <<
СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!!
Начав тренировки,спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Сколько км пробежал спортсмен за каждый день недели?
Ответ оставил Гость
Рассчитывается программа тренировки на 1 неделю или 7 дней. Значит количество дней известно и можно использовать цикл for.
//Pascal
var s:real;
i:integer;
begin
s:=10; //пробег за первый день
for i:=2 to 7 do
s:=s+s/10;
writeln(За неделю спортсмен пробежал , s, километров);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
Помогите написать программу в Паскаль с помощью
Алена Фролова
Знаток
(343),
закрыт
11 лет назад
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.
Какой суммарный путь пробежит спортсмен за 7 дней?
Дополнен 12 лет назад
с помощью while обязательно
ripituz
Мастер
(2250)
12 лет назад
Program sport;
var
a,s:integer;
begin
s:=10;
a:=1;
while a<=7 do
begin
s:=s+s*0,1;
a:=a+1;
end;
write(‘Summa puti = ‘,s);
end.
В каком месте у меня ошибки? вот у тебя тоже самое, но громоздко, много лишнего, в синтаксисе ошибки)
Сергей Нуждин
Просветленный
(43192)
12 лет назад
program rasst;
var norma, vsego: real;
den: integer;
begin
norma:=10;
vsego:=10:
den:=2;
while den<8 do begin
norma:=1.1*norma;
vsego:=vsego+norma;
den:=den+1
end;
writeln(‘Общий пробег=’,vsego)
end.
В предыдущем ответе ошибки
ИВАН ДАНИЛОВ
Знаток
(297)
3 года назад
program z1;
var F,N,R:real;
A:integer;
begin
Writeln(‘Введите кол-во дней тренировок’);
readln(N);
F := 10;
A:=1;
R:=10;
while A<N do
begin
F:=(F*1.1);
R:=R+F;
A:=A+1;
end;
Writeln(‘За ‘,N,’ дней, спортсмен пробежал ‘,R,’ км’);
end.
А у того пацана и правда ошибка
