Вычислить значение выражения

@Lex2843 · Регистрация: 10.01.2016

Author24 — интернет-сервис помощи студентам

Есть задача: Даны натуральное число n, действительные числа x₁,....,x_n.
Вычислить:
(x₁+x₂+2x_n)*(x₂+x₃+2x_n-1)....(x_n-1+x_n+2x₂).

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
type
tt=^aa;
aa=record
     l:integer;
     p1,p2:tt;
   end;
var
  a,b,c:tt;
  i,n:integer;
    k:real;
begin
setConsoleCP(1251);
setConsoleOutputCP(1251);
  try
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  writeln('N = ?');
  readln(n);
a:=nil;
b:=a;
for i:=1 to n do
  begin
  new(c);
  b^.p1:=c;
  c^.p1:=nil;
  c^.p2:=b;
  readln(c^.l);
  b:=c;
  end;
  a:=a^.p1;
k:=1;
for i:=1 to n-1 do
  begin
    k:=k*(a^.l+a^.p1^.l+b^.l);
    a:=a^.p1;
    b:=b^.p2;
   end;
   readln;
 writeln(k);
 readln;
end.

И вот на этом этапе

Delphi

 b^.p1:=c;

Прога просто перескакивает на

Delphi

end.

и всё, никаких ошибок не выдаёт.

@Puporev · 16.03.2017, 18:35

А почему не используете массив?

@Matan! · 17.03.2017, 01:27

Ну, во-первых. Что это за китайская змея:

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

Delphi

p1,p2:tt;

tt - это у Вас ссылка на запись аа, которая содержит p1,p2. Вас это не путает?

И потом, где явно инициализируются l, p1, p2 ? Если Вы поставите точку останова, то Вы увидите, что они у Вас чем попало заполнены. Потом (~~бой барабанов и рокот литавр~~) Вы выделяете память под какую-то, повторюсь, какую-то с, которая пока, можно считать равна nil , и передаёте ссылку на этот nil.

И вообще, послушайте умных людей, таких как Puporev, и используйте массив. Тем более, что подобные задачи только массивами и решаются.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.03.2017, 18:35	2
	А почему не используете массив? 0

	17.03.2017, 01:27