Как понизить число в цикле For?

[Wild_klas]

Задание таково:
Напечатать с помощью оператора for:Прямой счет: -5 -4 -3 -2 -1 0 1 2 3 4 5 Обратный счет: 5 4 3 2 1 0 -1 -2 -3 -4 -5
Мое решение:

uses
  SysUtils;
Var i:integer;
Sum1,Sum2:real;
begin
Writeln('straight through');
  For i:= -5 to 5 do
   Sum1:=i+1;
   Writeln('= ',Sum1:4:2);
   Readln;
Writeln('Countdown');
  For i:=5 downto -5 do
   Sum1:=i+1;
   Writeln('= ',Sum1:4:2);
   Readln;
end.

Задание элементарное, но выводит оно число на 1 единицу больше (тесть 6и-4, вместо 5и-5). Я знаю что понижать нужно с помощью процедуры Dec, но как именно, я не понял, кто подскажет??

[Don Karleone]

Не понял, что вы хотите понизить и зачем? Вообще процедура Dec(x,y) уменьшает x на y. Если нужно уменьшить x на 1, то пишите Dec(x);
Если вы хотите посчитать сумму чисел в диапазоне [-5;5] то в цикле надо прописать: Sum1:=Sum1+i;

[ROMA2PVT]

Var i:integer;
Sum1,Sum2:real;
begin
Writeln('straight through');
  For i:= -5 to 5 do
  begin
   Write(i:3);
   end;
   Readln;
Writeln('Countdown');
  For i:=5 downto -5 do
  begin
   Write(i:3);
   end;
   Readln;
end.

[Serge_Bliznykov]

Wild_klas, Вам не кажется, что Вы сами себя запутали?!

Напечатать с помощью оператора for:Прямой счет: -5 -4 -3 -2 -1 0 1 2 3 4 5 Обратный счет: 5 4 3 2 1 0 -1 -2 -3 -4 -5

  For i:= -5 to 5 do 
         Writeln(i:1,' '); 
  Readln; 
  Writeln('Countdown'); 
  For i:=5 downto -5 do 
         Writeln(i:1,' '); 
  Readln;

p.s. ух... быстрый ROMA2PVT опередил, пока я пост сочинял...

[KREGI]

procedure TForm1.Button1Click(Sender: TObject);
var i,sum,sum2: Integer;
begin
For i:= -5 to 5 do
 begin
  Sum:=i;
  Memo1.Lines.Add(IntToStr(Sum));
 end;
For i:=5 downto -5 do
 begin
   sum2:=i;
   Memo2.Lines.Add(IntToStr(Sum2));
 end;
end;

Не успел...

[Wild_klas]

Всем спасибо

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

Wild_klas, Вам не кажется, что Вы сами себя запутали?!

Да, походу так и есть. Еще раз спасибо за помощь.

[Grag]

Сообщение от Don Karleone

Если вы хотите посчитать сумму чисел в диапазоне [-5;5] то в цикле надо прописать: Sum1:=Sum1+i;

А чё считать эту сумму, если она будет равна нулю???!!!