Приложение. Исходный текст программы
program BookReading ;
var s,p,a,t,d,r,o,i:integer;
begin
writeln('Страниц в книге: '); read(s);
writeln ('Прочитано в первый день (страниц): '); read ( a );
writeln ('Ежедневный процент увеличения: '); read ( p );
t := a ; {текущее значение прочитанных страниц после первого дня}
d :=1; {счетчик дней}
if t >= s then {если книга прочитана за 1 день}
begin
writeln ('День 1: прочитано страниц - ', s );
writeln ('Время чтения (дней) - ', d );
writeln ('Среднее количество страниц в день - ', s );
end
else
begin
writeln ('День 1: прочитано страниц - ', t );
r := a ; {прочитано в предыдущий день - для последующих вычислений}
while t < s do {до тех пор, пока текущее количество прочитанных страниц меньше числа страниц в книге}
begin
d := d +1; {увеличиваем число дней на 1}
o := s - t ; {осталось прочитать}
i := Round ((1+ p /100)* r ); {прочитано в текущий день (округляем до целого)};
if i >= o then {если прочитано до конца}
i := o ; {то на самом деле прочитано оставшееся количество страниц}
writeln ('День', d ,': прочитано страниц -', i );
t := t + i ; {добавляем прочитанные страницы к общему количеству}
r := i ; {в следующем цикле текущий день будет предыдущим}
end ;
writeln ('Время чтения (дней) - ', d );
writeln ('Среднее количество страниц в день - ', Round ( s / d ));
end;
end.
Дата добавления: 2019-07-15; просмотров: 321; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!