Информатика, программирование / Реферат: Рекурсия

Реферат: Рекурсия

return f;

}

Пример 4. Вычислить сумму элементов линейного массива.

При решении задачи используем следующее соображение: сумма равна нулю, если количество элементов равно нулю, и сумме всех предыдущих элементов плюс последний, если количество элементов не равно нулю.

{Программа на языке Pascal}

Program Rec2;

Type LinMas = Array[1..100] Of Integer;

Var A : LinMas;

I, N : Byte;

{Рекурсивнаяфункция}

Function Summa(N : Byte; A: LinMas) : Integer;

Begin

If N = 0 Then Summa := 0 Else Summa := A[N] + Summa(N - 1, A)

End;

{Основная программа}

Begin

Write('Количество элементов массива? '); ReadLn(N); Randomize;

For I := 1 To N Do

Begin

A[I] := -10 + Random(21); Write(A[I] : 4)

End;

WriteLn; WriteLn('Сумма: ', Summa(N, A))

End.

/* Программа на языке C */

#include <stdio.h>

#include <conio.h>

#include <stdlib.h>

#include <time.h>

int summa(int N, int a[100]);

К-во Просмотров: 1240

Бесплатно скачать Реферат: Рекурсия

>>> Скачать <<<