Процедуры в Паскаль

[нуб]

Процедуры в Паскаль

Помогите пожалуйста решить задачу!
Вычислить произведение всех положительных элементов числовой последовательности а1, а2, а3,...,аN, где n=3,5,10
:tehnari_ru_325:
P.S. в Паскале новичок

 

[Vladimir_S]

Помогите пожалуйста решить задачу!
Вычислить произведение всех положительных элементов числовой последовательности а1, а2, а3,...,аN, где n=3,5,10
:tehnari_ru_325:
P.S. в Паскале новичок

Ничего не понял - последовательность-то какая? Или произвольные числа?

 

[нуб]

Ничего не понял - последовательность-то какая? Или произвольные числа?

любые введенные числа, положительные или отрицательные. сначала 3 числа ввести-посчитать произведение положительных элементов, потом 5 чисел, затем 10

 

[Vladimir_S]

любые введенные числа, положительные или отрицательные. сначала 3 числа ввести-посчитать произведение положительных элементов, потом 5 чисел, затем 10

А сами не хотите попробовать? Задачка-то очень простая, на таких и нужно осваивать начала программирования. Мы, естественно, поможем, подскажем, если что. Или Вы с самого начала настроились на иждивенчество? Прискорбно, если так. Для Вас, я имею в виду.

 

[нуб]

А сами не хотите попробовать? Задачка-то очень простая, на таких и нужно осваивать начала программирования. Мы, естественно, поможем, подскажем, если что. Или Вы с самого начала настроились на иждивенчество? Прискорбно, если так. Для Вас, я имею в виду.

я написала задачу так, что вычисляется факториал вот:
program proba;
var n,i:integer; pr:real;
procedure Proiz(n:integer; var Pr:real);
begin
pr:=1;
for i:=1 to n do
pr:=pr*i;
end;
begin
writeln('Введите число');
readln;
proiz(n,pr);
end;
writeln('Pr=', Pr:7:2);
end.

помогите пожалуйста переделать ее, чтобы самим вводить числа и проверять их на положительность

 

[Vladimir_S]

я написала задачу так, что вычисляется факториал вот:
program proba;
var n,i:integer; pr:real;
procedure Proiz(n:integer; var Pr:real);
begin
pr:=1;
for i:=1 to n do
pr:=pr*i;
end;
begin
writeln('Введите число');
readln;
proiz(n,pr);
end;
writeln('Pr=', Pr:7:2);
end.

помогите пожалуйста переделать ее, чтобы самим вводить числа и проверять их на положительность

Ну, например, так:

type
 Ar=Array[1..10] of real;

var
 i:integer;
 pr:real;
 a:Ar;
 b:boolean;

procedure Proiz(np:integer; ap:Ar; var pb:boolean; var Prp:real);
 var
  ip:integer;
 begin
  pb:=true;
  Prp:=1;
  for ip:=1 to np do
   if ap[ip]>0 then
    begin
     Prp:=Prp*ap[ip];
     pb:=false;
    end;
 end;

BEGIN
 for i:=1 to 10 do
  begin
   write('a[',i:2,']= ');
   readln(a[i]);
   If (i=3) or (i=5) or (i=10) then
    begin
     Proiz(i,a,b,pr);
     if b then
      writeln('n=',i:2,' - no positive elements')
     else
      writeln('n=',i:2,' - the product of positive elements is ',pr);
    end;
  end;

 readln;
END.

Здесь вводятся последовательно 10 вещественных чисел. После введения третьего, пятого и десятого вычисляется произведение введенных положительных чисел, если таковые имеются. Если же введены только отрицательные и нулевые числа, то выводится соответствующее сообщение.