Программирование циклов (free Pascal)

[Jon_Morgan]

Надо написать две проги, у меня не выходит. В третей программе вычислить бесконечную сумму с заданной точностью, используя рекуррентные зависимости, в 4 использовать цикл в цикле.

[ViktorR]

Задача №3:
Посмотрите, например тут.
http://www.programmersforum.ru/showthread.php?t=300599
и тут
http://www.programmersforum.ru/showthread.php?t=299609

В первом посте (вложение work.rar) более подробно рассмотрено решение подобных задач.
В вашем случае

k := sqr(x)/((2*n+2)*(2*n+3));

Как-то так, ...

[ViktorR]

Задача №4.
Как вариант:

function LastEqFirst(n: integer): boolean;
var last, first, k : integer;
begin
   last := n MOD 10;
   first := n DIV 10;
   while (first > 9) do
      first := first DIV 10;

   if first = last then
      LastEqFirst := true
   else
      LastEqFirst := false;
end;
var n, m, i : integer;
    sum : longint;
begin
   randomize;
   readln(n);
   sum := 0;
   for i := 1 to n do
   begin
      m := random(30000);
      if LastEqFirst(m) then
      begin
         sum := sum + m;
         write(m:8);
      end;
   end;
   writeln;
   writeln(sum);
   readln;
end.

Как-то так, ...

[Jon_Morgan]

Это получается массив, а не цикл в цикле?

[ViktorR]

Это получается массив, а не цикл в цикле?

Это о чём????
В какой из задач вы видите массив?
В первой задаче показано, как использовать рекурентное выражение для получения следующего элемента последовательности.
В следующей - решение выполнено через функцию, в которой, для поиска нужного числа используется цикл. В этом цикле выделяется старшая цифра числа.
В самой программе, в цикле генерируются случайные числа (это эквивалент того, что вы вводите числа ручками), проверяется соответствие числа требованиям задачи и выполняется суммирование.
Да, второй цикл скрыт в теле функции, но при наличии этого решения, как мне кажется, у вас не должно быть проблем с доработкой задачи под свои требования.

Как-то так, ...

[Jon_Morgan]

С первой я разобрался, спасибо. А со второй не очень, я до функций еще далек и не совсем понимаю как они работают, можно как то составить программу не используя функцию?