Технический форум - Прошу помочь с задачками на массивы

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Прошу помочь с задачками на массивы

1 Дано предложение. опр сколько раз в нем встречаются сдвоенные буквы.
2 Даны х[1..10] L[1..10] вычислить z[i]=сумм[i=1..10]х[i]-L[i])/корень кв из |х[i]*L[i]|
3 Дан масив х[1..15] определить номер первого и последнего отрицательного члена
4 Дан х определить х^3/3!+3*^5/5!+....25*x^27/27!
оставте любые заготовки плз мож сам допру с вашей помощью заранее спасибо

Цитата:

Сообщение от Митяйко (Сообщение 435132)

1 Дано предложение. опр сколько раз в нем встречаются сдвоенные буквы.

Код:

VAR

 S:String;

 Nd,i:BYTE;

BEGIN

 WriteLn('Enter the string:');

 ReadLn(S);

 Nd:=0;

 for i:=1 to Length(S)-1 do

  if S[i]=S[i+1] then Inc(Nd);

 WriteLn('Doubled symbol occurs ',Nd,' times');

 ReadLn;

END.

Цитата:

Сообщение от Митяйко (Сообщение 435132)

4 Дан х определить х^3/3!+3*^5/5!+....25*x^27/27!

Код:

VAR

 S,x:Real;

 i:BYTE;



function X2np(X:Real; n:Byte):Extended;

Var i:Byte;

    Y:Extended;

BEGIN

  IF n=0 THEN X2np:=1 ELSE

  IF n=1 THEN X2np:=X ELSE

  BEGIN

    Y:=X;

    FOR i:=2 TO n DO Y:=Y*X;

    X2np:=Y;

  END;

END;



function Nfact(n:Byte):Extended;

VAR

  i:Byte;

  fact:Extended;

BEGIN

  IF n=0 THEN fact:=1 ELSE

    BEGIN

      fact:=1;

      FOR i:=1 TO n DO

        fact:=fact*i;

    END;

  Nfact:=fact;

END;



BEGIN

 Write('x= ');

 ReadLn(x);

 S:=0;

 for i:=1 to 13 do

  S:=S+X2np(x,2*i+1)*(2*i-1)/Nfact(2*i+1);

 WriteLn('Sum= ',S);

 ReadLn;

END.

спасибки оч благодарен

остальные тож чет никак не соображу хоть размышления напишите мож че и смогу оформить (заранее спасибо)