Решение задач при помощи циклов с предусловием

Задача 1.
Ученик в первый день выучил 5 английских слов. В каждый следующий день он выучивал на 2 слова больше, чем в предыдущий. Сколько английских слов выучит ученик в 10 день занятий? Сколько всего слов выучит за 10 дней.

Обозначим через:
D – количество дней;
А – количество выученных за каждый день слов;
S - количество слов выученных за все прошедшие дни.

КАКИЕ ДЕЙСТВИЯ ПОВТОРЯЮТСЯ?
Увеличивается количество выученных за каждый день слов на 2;
Увеличивается номер дня;
Увеличивается общее количество выученных слов.

ДО КАКИХ ПОР ВЫПОЛНЯЮТСЯ ПОВТОРЯЮЩИЕСЯ ДЕЙСТВИЯ?
Пока количество, пройденных дней не достигнет 10.

ИТАК, КАК ЗАПИШЕТСЯ УСЛОВИЕ ПРИ КОТОРОМ ДОЛЖНЫ ВЫПОЛНЯТЬСЯ ПОВТОРЯЮЩИЕСЯ ДЕЙСТВИЯ (ЦИКЛ)?
D<10;

Н
S:=0
A:=5
D:=1
D<10
A:=a+2
D:=d+1
S:=s+a
S
K
-
+

Program slova;
Var a,d,s:integer;
Begin
A:=5; d:=1; s:=5;
While d<10 do
Begin
D:=d+1;
A:=a+2;
S:=s+a;
end;
Writeln(‘ В 10 день ученик выучил ‘,a);
Writeln(‘За 10 дней ученик выучил ‘,s);
Readln
End.

КАК НАДО ИЗМЕНИТЬ ПРОГРАММУ, ЧТОБЫ НА ЭКРАНЕ ВЫВОДИЛИСЬ СООБЩЕНИЯ О ТОМ, СКОЛЬКО СЛОВ ВЫУЧЕНО ЗА КАЖДЫЙ ПРОЙДЕННЫЙ ДЕНЬ, А НЕ ТОЛЬКО ЗА ДЕСЯТЫЙ?

Задача 2.
В первый день пловец проплыл 3 км. В каждый последующий день он проплывал на 10% больше, чем в предыдущий день. В какой по счёту день пловец начнёт проплывать более 5 км в день.

Обозначим через:
D – номер дня;
S - расстояние, которое проплывает пловец в очередной день.

КАКИЕ ДЕЙСТВИЯ ПОВТОРЯЮТСЯ?
Увеличивается номер дня;
Увеличивается путь, который проплывает каждый день пловец на 10% от предыдущего.

ДО КАКИХ ПОР ПОВТОРЯЮТСЯ УКАЗАННЫЕ ВЫШЕ ДЕЙСТВИЯ?
Пока расстояние, которое проплывает пловец за определённый день не станет больше 5 км.

НАЗОВИТЕ УСЛОВИЕ ВЫПОЛНЕНИЯ ЦИКЛА?
S<5

Н
S:=3
D:=1
s<5
s:=s+0,1*s
D:=d+1
d
K
-
+

Program plovec;
Var s:real;
d:integer;
Begin
S:=3; d:=1;
While s<5 do
Begin
d:=d+1;
s:=s+0,1*s;
End;
Writeln(‘В ‘, d, ‘день пловец проплывёт больше 5 км’);
Readln
End.

Домашнее задание:
1.В первый день пловец проплыл 3км. В каждый последующий день он проплывал на 10% больше, чем в предыдущий. К какому дню он проплывет (суммарно) более 30 км?
2. Вычислите , где n натуральное число.

Обозначим через:
D – номер дня;
S - расстояние, которое проплывает пловец в очередной день.
SUM – суммарное расстояние, за пройденные дни.

Н
S:=3
D:=1
sum<30
s:=s+0,1*s
D:=d+1
d
K
-
+
Sum:=3
Sum:=sum+s

Program plovec;
Var s,sum:real; d:integer;
Begin
S:=3; sum:=3; d:=1;
While sum<=30 do
Begin
D:=d+1;
s:=s+0.1*s;
Sum:=sum+s;
Readln
End.

=2*2*2*…*2 (n раз)
Обозначим: р – произведение двоек;
I - количество множителей;
n – показатель степени.

Н
i:=1
i<=n
P:=p*2
i:=i+1
p
K
-
+
n
P:=1