найти сумму произведений списка

[fkty]

Дан список из n целых неотрицательных чисел a1,a2,...an.Найти:a1*a2+a2*a3+...+a n-1*an.
Только начали изучать С++ и не получается переделать программу с Паскаля на С++.

Uses Crt;
Type
  PList = ^TList;
  TList = record
    info : integer;
    next : PList;
  end;

Var
  Head: PList;
  s,n,i:integer;
{процедура создает список}
Procedure MakeList(var Head:PList;n:integer);

Var
k,i:integer;
q,p:Plist;


Begin {MakeList}
    randomize;
    new(Head);
    head^.next:=nil;
    p:=head;
     for i:=1 to n do
     begin
      new(q);
      q^.info:= random(10);
      q^.next:=nil;
      p^.next:=q;
      p:=q;
  end;
end;{MakeList}

Procedure PrintList(Head:Plist); {процедура выводит список на экран*}
Var
  p:Plist;

Begin {PrintList}
  p:=head^.next;
  while p<>nil do
  begin
    write(p^.info:4);
    p:=p^.next;
  end;
  writeln;
end;{PrintList}

{процедура находит сумму }
Procedure SumList(head:Plist; var s:integer);
Var
  a,b:integer;
  q,p:Plist;

 Begin {SumList}
  s:=0;b:=1; a:=1;
  p:=head^.next;
  b:=p^.info;
  p:=p^.next;
  while p<>nil do
  begin
    a:=p^.info;
    s:=s+(a*b);
    b:=a;
    p:=p^.next;
  end;
  write('сумма равна* s= ');
  write(s);
 end;{ SumList }


Begin {program}
ClrScr;
  write('введите количество элементов');
  writeln;
  readln(n);
  MakeList(Head,n);
  writeln('исходный список');
  PrintList(head);
  SumList(head,s);
  readkey;
end.{program}

[was3110]

бесплатно это делать скучно. Учиться тут нечему.

[Stilet]

Могу предложить за основу это: http://www.programmersforum.ru/showp...8&postcount=25

[GreenWizard]

давно не программировал (лето же было), вот что вышло:

#pragma hdrstop
#pragma argsused
//---------------------------------------------------------------------------
#include <iostream>
#include "conio.h"
#include "math.h"
#include "stdlib.h"
//---------------------------------------------------------------------------

struct TList {
  int Info;
  TList *Next;
};
typedef TList *PList;
//---------------------------------------------------------------------------

PList NewListNode(){
  PList Result = new TList;
  Result->Info = 0;
  Result->Next = NULL;
  return Result;
}

void MakeList(PList *Head, int n){
  if(n > 0){
    randomize();
    *Head = NewListNode();
    (*Head)->Info = rand() % 10;

    PList A, B;
    A = *Head;
    while(n > 1){
      n--;
      B = NewListNode();
      B->Info = rand() % 10;
      A->Next = B;
      A = B;
    }
  }
}

void PrintList(PList List){
  std::cout << "List: ";
  while(List != NULL){
    std::cout << List->Info << " ";
    List = List->Next;
  }
  std::cout << "\n";
}

int SumList(PList List){
  int n = 0;
  while(List != NULL){
    n += List->Info;
    List = List->Next;
  }
  return n;
}

void FreeList(PList *List){
  PList Head = *List;
  while(Head != NULL){
    PList Tmp = Head->Next;
    delete Head;
    Head = Tmp;
  }
  *List = NULL;
}

int main(int argc, char* argv[])
{
  PList List;
  int n;
  std::cout <<  "n = ";
  std::cin >> n;
  MakeList(&List, n);
  PrintList(List);
  std::cout <<  "Sum = " << SumList(List) << "\n";
  getch();
  FreeList(&List);
  return 0;
}
//---------------------------------------------------------------------------

пробуй) могут быть проблемы с инклюдями и директивами, но это уже смотря какая у тебя версия сиплюшек
кстати, в коде на Паскале была пара ошибок... исправил их и добавил новые =) шутка, надеюсь))

[fkty]

спасибо,пишет что randomize не найден,это надо какую то библиотеку подключать?

[GreenWizard]

да, попробуй вызвать справку и глянуть где эта ф-ия описана

[fkty]

добавила библиотеки и у брала строчку с randomize(ее как я поняла вообще не надо),но программа всегда выводит одни и те же числа и считает сумму не правильно

[BDA]

Вместо randomize() напишите srand(time(NULL)) (без этого всегда будут одинаковые числа) и подключите time.h.

[fkty]

спасибо,а как переделать накопление суммы?здесь считается a1+a2+...+an,а надо a1*a2+a2*a3+...+a n-1*an.

[BDA]

Попробуйте так:

int SumList(PList List){
    int s = 0, a = 0;
    while(List != NULL) {
        s += a * List->Info;
        a = List->Info;
        List = List->Next;
    }
    return s;
}