Дай відповіді на запитання та запиши їх до зошиту: 1. Що таке слідування? 2. Що таке лінійні алгоритми? 3. Що таке повторення? 4. Що таке циклічний алгоритм? 5. Що таке розгалуження? 6. Які команди використовують у програмі в середовищі Скретч?
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString.ToUpper; // к верхнему регистру var (kO,kE):=(0,0); // счетчики for var i:=1 to s.Length do case s[i] of 'О':ko+=1; 'Е':kE+=1 end; if kO>kE then Writeln('Буква "О" встречается чаще') else if kO<kE then Writeln('Буква "Е" встречается чаще') else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз') end.
Пример Если бы Ольга захотела, она бы училась лучше Елены Буква "Е" встречается чаще
Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы. В этом случае ежегодная сумма процентов по кредиту составит Sk=k×p%/100%. За n лет будет отдано n×Sk. И еще нужно вернуть саму сумму кредита k. Итого нужно вернуть k+n×Sk. Доход за это время составит n×r и получаем неравенство n×r ≥ n×Sk+k n×(r-Sk) ≥ k → n ≥ k/(r-Sk) с округлением до целых в большую сторону.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (k,p):=ReadReal2('Сумма кредита и процент годовых:'); var r:=ReadReal('Предполагаемый годовой доход:'); var Sk:=k*p/100; if r<=Sk then Writeln('Рассчитаться за кредит невозможно') else Writeln('Количество лет на погашение кредита: ',Floor(k/(r-Sk))) end.
Пример Сумма кредита и процент годовых:10 0000 16 Предполагаемый годовой доход: 24000 Количество лет на погашение кредита: 12
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToUpper; // к верхнему регистру
var (kO,kE):=(0,0); // счетчики
for var i:=1 to s.Length do
case s[i] of
'О':ko+=1;
'Е':kE+=1
end;
if kO>kE then Writeln('Буква "О" встречается чаще')
else if kO<kE then Writeln('Буква "Е" встречается чаще')
else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз')
end.
Пример
Если бы Ольга захотела, она бы училась лучше Елены
Буква "Е" встречается чаще