Вывести последовательность чисел в паскале

[amki6]

Вывести последовательность чисел в паскале

Для заданного х вывести все положительные члены последовательности
x, (x-1)*2, (x-2)*3, (x-3)*4,........
оператора go to и рекурсии

 

[Vladimir_S]

Для заданного х вывести все положительные члены последовательности
x, (x-1)*2, (x-2)*3, (x-3)*4,........
оператора go to и рекурсии

Не понял, при чем тут goto и рекурсия, но вот:

Var
 x:real;
 i:word;
Begin
 Write('x= ');
 Readln(x);
 If x<=0 then
  writeln('No positives!')
 else
  for i:=0 to Trunc(x) do writeln((x-1.0*i)*(i+1):12:3);
 Readln
End.

 

[amki6]

Потому что сказали сделать с помощью них с помощью цикла я уже сделала:
uses CRT;

const
n=1000;
var
i,x,a:integer;

begin
write('Ââîä X: '); readln(x);

if x > 0 then write(x, ' ');

for i:=1 to n do
begin
a:=(x-i)*(i+1);
if a > 0 then write(a, ' ');
end;
end.

Теперь осталась еще двумя способами. а как не знаю(((((помогите пожплуйста

 

[Vladimir_S]

Теперь осталась еще двумя способами. а как не знаю(((((помогите пожплуйста

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

Var
 x:real;
 i:word;
 Label P;

Procedure Out(k:word);
begin
 If (x-1.0*k)>0 then
  begin
   write((x-1.0*k)*(k+1):0:3,' ');
   Out(k+1);
  end;
end;

Begin
 Write('x= ');
 Readln(x);
 If x<=0 then
  Writeln('No positives!')
 else
  begin
   Writeln;
   Writeln('Cycle:');
   for i:=0 to Trunc(x) do write((x-1.0*i)*(i+1):0:3,' ');
   Writeln;
   Writeln('Recursive:');
   Out(0);
   Writeln;
   Writeln('Lable:');
   i:=0;
   P: write((x-1.0*i)*(i+1):0:3,' ');
   i:=i+1;
   if (x-1.0*i)>0 then GoTo P;
  end;
 Readln
End.

 

[amki6]

Спасибо большое!