Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Топ:
Процедура выполнения команд. Рабочий цикл процессора: Функционирование процессора в основном состоит из повторяющихся рабочих циклов, каждый из которых соответствует...
Комплексной системы оценки состояния охраны труда на производственном объекте (КСОТ-П): Цели и задачи Комплексной системы оценки состояния охраны труда и определению факторов рисков по охране труда...
Выпускная квалификационная работа: Основная часть ВКР, как правило, состоит из двух-трех глав, каждая из которых, в свою очередь...
Интересное:
Наиболее распространенные виды рака: Раковая опухоль — это самостоятельное новообразование, которое может возникнуть и от повышенного давления...
Уполаживание и террасирование склонов: Если глубина оврага более 5 м необходимо устройство берм. Варианты использования оврагов для градостроительных целей...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Дисциплины:
2020-12-06 | 130 |
5.00
из
|
Заказать работу |
|
|
Решение
Program Problem1;
uses WinCrt;
var
n: integer;
f: real;
{---------------------------------------------------------------------------------------}
Procedure fac(n: integer; var f: real);
begin
if (n=0) or (n=1) then f:= 1
else
begin
fac(n - 1, f);
f:= f*n
end
end;
{---------------------------------------------------------------------------------------}
begin
write('Введите натуральное значение n '); readln(n);
fac(n, f);
writeln('Факториал числа ', n, ' равен ', f:12:0)
end.
Задача 2. Над цепью озер летела стая белых гусей. На каждом озере садилось половина гусей и еще полгуся, а остальные летели дальше. Все гуси сели на семи озерах. Сколько гусей было в стае?
Решение
Математически задача решается устно очень остроумным способом.
Пусть вместе со стаей белых гусей все время летит еще один, Серый гусь. Если к некоторому озеру подлетит m белых гусей и Серый, то на этом озере садится - ровно половина всех гусей вместе с серым. Поэтому после каждого озера число летящих гусей уменьшается ровно вдвое. После семи озер оно уменьшится в 27 = 128 раз, а остается летящим один Серый гусь. Значит, вначале было 128 гусей, из них 127 - белых.
А теперь выполним, образно говоря, прямые рассуждения для решения задачи.
Обозначим через xk количество летящих белых гусей, когда впереди еще k озер. Тогда условие задачи записывается так:
Отсюда получаем для последовательности (xk) рекуррентное соотношение
Program Problem 2;
uses WinCrt;
var
k: integer;
{----------------------------------------------------------------------------------------}
Procedure goose(x, k: integer);
begin
if k = 1 then write(x) else goose(2*x + 1, k - 1)
end;
|
{----------------------------------------------------------------------------------------}
begin
write(' Введите число озер '); readln(k);
write('В стае было ');
goose(1, k);
writeln(' гусей ')
end.
Задача 3. Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, подсчитывающую общую сумму денег, подаренных к N-му дню рождения и указывающую, к какому дню рождения сумма подарка превысит 100$.
Решение
Введем обозначения: k - число лет племянника, p - количество денег, которые дает дядя на каждом дне рождения, s - общая сумма денег, полученных племянником за все годы, n - счетчик числа дней рождения, который считает в обратном порядке от n (введенного пользователем) до 1.
Задаются первоначальные значения формальным параметрам процедуры: n - вводится пользователем из основной программы (вы обратили внимание, что в этой, как и в предыдущей процедуре нет выходных параметров и нет переменных в самой процедуре, хотя возможны и другие варианты).
Увеличивается число лет: k:= k + 1; вычисляется подарок к k -тому дню рождения: p:= 2*p + k; вызывается процедура, в которой увеличивается на p общая сумма полученных денег s и уменьшается на 1 число дней рождения:
uncle(k, p, s + p, n - 1)
Далее весь процесс повторяется, до тех пор, пока n не станет равным 1.
Program Rich _ man1; { richman - богатый }
uses WinCrt;
var
n: integer;
{---------------------------------------------------------------------------------------}
Procedure uncle(k, p, s, n: longint); {uncle - дядя }
begin
if n = 1 then write(s)
else
begin
k:= k + 1;
p:= 2*p + k;
uncle(k, p, s + p, n - 1)
end
end;
{---------------------------------------------------------------------------------------}
begin
write(' Введите число лет племянника '); readln(n);
write('Я получу к ', n, '-ому дню рождения ');
uncle(1, 1, 1, n);
writeln(' долларов ')
end.
Во второй части условия требуется определить число лет, когда сумма полученных денег будет равна или превысит 100 долларов. Для этого в процедуре меняется опорное условие: if s >= 100 then write(n), а все остальное остается без изменений.
|
Program Rich _ man2;
uses WinCrt;
var
n: integer;
{----------------------------------------------------------------------------------------}
Procedure uncle1(k, p, s, n: longint);
begin
if s >= 100 then write(n)
else
begin
k:= k + 1;
p:= 2*p + k;
uncle1(k, p, s + p, n + 1)
end
end;
{--------------------------------------------------------------------------------------}
begin
write('Сумма подарка превысит 100 долларов к ');
uncle1(1, 1, 1, 1);
writeln(' -ому дню рождения')
end.
Задача 4. Перемножая большие числа, можно быстро получить переполнение. Поэтому, для того чтобы напечатать произведение, превышающее наибольшее допустимое для данного целого типа (integer или longint) числа, надо применить искусственные средства.
|
|
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!