Определить, каким по счету идет в заданной последовательности член, равный а (Перевод с Delphi В VB)

Формулировка задачи:

Нужна помощь с переводом, вот код:

var i,k,n,a,x:integer;
begin
writeln('a');
read(a);
k:=0;
for i:=1 to n do
write('x[',i,']=');
readln(x);
if a=x then
  begin
  k:=i;
  break;
  end;
writeln(k);
readln;
end.

А вот условие:Даны целые числа a, n>0, x1...xn. Определить каким по счету идет в заданной последовательности член, равный а. Если такого члена нет, то ответом должно быть число 0

Решение задачи: «Определить, каким по счету идет в заданной последовательности член, равный а (Перевод с Delphi В VB)»

textual
                            Листинг программы 
                        

                            procedure TForm1.Button1Click(Sender: TObject);
var
ch : char;
n,i : integer;
a,Sum,an,Resultat : Double;
begin
 
Sum := 0;
n:= 8;
for i:=1 to n do
begin
an := i;//а1..an
a := an/factorial(1);
if(i=1)
then
a := a * (-1);
Sum := Sum + a;
end;
Resultat := Sum + Power(1,(an/factorial(n)));
Resultat := Sum;
Memo1.Lines.Add(FloatToStr(sum));
end;
                        

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы