Программа в delphi с циклами

[nooonname]

Помогите пожалуйста решить задачу в delphi!

177. Дано натуральное n, действительные а1 ,а2 ,...,аn . Получить: а1а2 + а2 а3, ... , аn-1аn.

[Stilet]

Вот ядро:

for i:=2 to n do sum:=sum+a[i]*a[i-1];

Массив сам сможешь обьявить и ввести?

[nooonname]

С массивом я бы смог и сам сделать. Но без массива не получается. Поэтому сюда и написал. Должны быть текстовые поля.
С массивом нельзя. Преподаватель сказал =).

[Mad_Cat]

{...........}
readln(a);
i:=2;
s:=0;
while i<=n do
begin
readln(b);
s:=s+a*b;
a:=b;
inc(i);
end;
writeln(s);
{........}
// understand?

[nooonname]

Сообщение от Mad_Cat

{...........}
readln(a);
i:=2;
s:=0;
while i<=n do
begin
readln(b);
s:=s+a*b;
a:=b;
inc(i);
end;
writeln(s);
{........}
// understand?

Сообщение от nooonname

в delphi!

Просил же именно в delphi.

[Mad_Cat]

Просил же именно в delphi.

А это извините что??? с++ али basic?!
обыкновенное Делфийское КОНСОЛЬНОЕ приложение

[nooonname]

Зачем сразу нервничать?

Я имел ввиду чтоб какой нибудь добрый человек дал код именно из делфи (незнаю как правильно выразиться), а не консольное приложение.

Переделал я ваш код, написал в делфи. Высчитывает очень большое число. Так должно быть или я не правильно написал?

[Mad_Cat]

Так должно быть или я не правильно написал?

скилл телепатии у меня конечно прокачен, но даже с ним я, честно говоря, даже не представляю, что вы там написали!

[Sciv]

nooonname, лучше нам свой код покажите - больше толку будет

[Stilet]

чтоб какой нибудь добрый человек дал код именно из делфи (незнаю как правильно выразиться), а не консольное приложение.

Если поможет то вотъ:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var i,n:Integer; sm,f:double;
begin
 FormatSettings.DecimalSeparator:='.';
 if TryStrToInt(Edit1.Text,n) then begin
  sm:=0;
  with Memo1.Lines do begin
   if n<=Count then
    for i:=0 to n-1 do sm:=sm+StrToFloatDef(Strings[i],0)
   else Caption:=('Мало чисел введено');
  end;
  Caption:=Format('%2.5f',[sm]);
 end;
end;

end.