Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 05.12.2013
Сообщений: 20
1

Написать рекурсивную программу вычисления произведения элементов од- номерного целочисленного массива A из n э

12.12.2014, 22:12. Просмотров 787. Ответов 1
Метки нет (Все метки)


Сделал программу, но выдаёт ошибку((... Помогите исправить:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type Mas=array[1..100] of integer;//рекурсивная функция
Function Proz(k:byte;x:Mas):integer;
begin
if k=0 then Proz:=0 else Proz:=x[k]*Proz(k-1,x)
{если массив пуст, произ=0,иначе к предыдущей произ. умножаем значение 
текущего элемента}
end;
var a:Mas;
    i,n,m:Byte;
 begin
 randomize;
 write('kolichestvo elementov massiva n=');
 readln(n);
 for i:=1 to n do
  begin
  a[i]:=Random(20);
  write(a[i],' ');
  end;
  write('Proz=',Proz(n,a));
  readln;
  end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2014, 22:12
Ответы с готовыми решениями:

Написать программу вычисления произведения чётных элементов одномерного массива
Здравствуйте! Обращаюсь к Вам за помощью. Нужно написать следующую программу: Буду благодарна за...

Написать функцию вычисления произведения элементов массива
Написать функцию вычисления произведения элементов массива. В качестве входных параметров передать...

Напишите рекурсивную программу для вычисления произведения
Дан массив a : array of integer; Напишите рекурсивную программу для вычисления произведения ...

Разработать алгоритм и программу вычисления суммы элементов динамического целочисленного массива
Разработать алгоритм и программу вычисления суммы элементов динамического целочисленного массива,...

1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
12.12.2014, 22:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type Mas=array[1..100] of integer;
Function Proz(k:byte;x:Mas):longint;
begin
 if k=0 then Proz:=0
        else
         if k=1 then Proz:=x[k] 
                else Proz:=x[k]*Proz(k-1,x)
end;
var a:Mas;
    i,n,m:Byte;
begin
 randomize;
 write('kolichestvo elementov massiva n=');
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=1+Random(5);
   write(a[i],' ');
  end;
 writeln;
 write('Proz=',Proz(n,a));
 readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2014, 22:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Составить программу вычисления суммы неповторяющихся элементов одномерного целочисленного массива A(M)
Здравствуйте. Нужно составить программу вычисления суммы неповторяющихся элементов одномерного...

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов
Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов На...

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов
Не запускается программа, не понимаю почему. Задача и решение ниже. Написать рекурсивную...

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов
Добрый день, помогите пожалуйста, нужно написать рекурсивную функцию для вычисления максимального...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.