Помогите пожалуйста с программой..(в Паскале)
10-11 класс
|
Составить программу табулирования функции заданной рекурентной формулой.
f(0)=1; f(1)=2; f(n+2)=2*f(n+1)-n
function f(n:integer): integer;
begin
if n=0 then f := 1
else if n=1 then f := 2
else f := 2*f(n-1)-n+2;
end;
var n: integer;
begin
writeln('n':5, 'f(n)':10);
for n := 0 to 20 do
writeln(n:5, f(n):10);
end.
Другие вопросы из категории
авца фразу "Без сдачи пожалуйста, молодой человек". У него есть всего N монет достоинств a1, a2, ..., aN тенге. Определите, сможет ли он расплатится без сдачи.
Формат входных данных
В первой строке входного файла записаны два целых числа C (1 ≤ C ≤ 1000) и N (1 ≤ N ≤ 15) — общая сумма покупки и количство монет у Али соответсвенно. Во второй строке записаны N целых чисел a1, a2, ..., aN (1 ≤ ai ≤ 1000)— достоинства монет Али.
Формат выходных данных
В единственной строке выведите слово «YES», если Али сможет расплатится без сдачи. Иначе, выведите «NO»
троичную систему счисления . Число M хранится в
входном файле Exch.in, его представление в троичной
системе счисления сохранить в выходном файле
Exch.out.
Читайте также
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.