Как можно улучшить эффективность и качество ПП?

[Evgenii]

Такое задание по курсу технологии программирования:
дан текст программы (он прикреплен к теме в формате txt). Программа создает динамический список неповторяющихся целых чисел в диапазоне от -50 до 50, обеспечивает прямой и обратный вывод элементов списка, должна посчитать сумму 1+n, 2+n-1,...i+n-1+1,...n/2+n/2+1
Необходимо улучшить эффективность и качество данной программы, что увеличит скорость ее выполнения, устранит возможные недостатки и возможно улучшит другие характеристики...
Если кто заметит в ней какие-либо недостатки или фрагменты которые можно улучшить (например операцию умножения заменить на смещение и т.д.), огромная просьба пояснить мне в чем заключается улучшение, как его реализовать и какой фрагмент кода можно преобразовать

[Neymexa]

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

Такое задание по курсу технологии программирования:
дан текст программы (он прикреплен к теме в формате txt). Программа создает динамический список неповторяющихся целых чисел в диапазоне от -50 до 50, обеспечивает прямой и обратный вывод элементов списка, должна посчитать сумму 1+n, 2+n-1,...i+n-1+1,...n/2+n/2+1
Необходимо улучшить эффективность и качество данной программы, что увеличит скорость ее выполнения, устранит возможные недостатки и возможно улучшит другие характеристики...
Если кто заметит в ней какие-либо недостатки или фрагменты которые можно улучшить (например операцию умножения заменить на смещение и т.д.), огромная просьба пояснить мне в чем заключается улучшение, как его реализовать и какой фрагмент кода можно преобразовать

лучше сразу вот так

Program  din;
uses crt;
type  tpo=^tn; tn=record x:real; p1,p2:tpo;  end;
var s,b:tpo; f,k:pointer;
    i,n,x,dd:integer; z:real;
begin
clrscr; n:=6; dd:=9;
         {создание списка }
  new(s); randomize; z:=random(100)-50; s^.x:=z; f:=s; s^.p2:=nil;
for i:=1 to n-1 do begin new(b); z:=random(100)-50; b^.x:=z;
                         s^.p1:=b; b^.p2:=s; s:=b; end;
  s^.p1:=nil; k:=s;

textcolor(13);
Write('  прямой вывод: ');
s:=f; x:=18;
while s<>nil do
      begin gotoxy(x,wherey); write(s^.x:1:1); s:=s^.p1; x:=x+dd; end;
writeln; x:=20;
for i:=1 to N do begin gotoxy(x,wherey); write('+'); x:=x+dd; end; writeln;

Write('обратный ввод: ');
b:=k; x:=18;
while b<>nil do
      begin gotoxy(x,wherey); write(b^.x:1:1); b:=b^.p2; x:=x+dd; end;
x:=wherex;
writeln; textcolor(11);
for i:=1 to x do begin gotoxy(i,wherey); write('_'); end; writeln;
writeln;
Write('     результат: ');
s:=f; b:=k; x:=18;
while s<>nil do
  begin z:=s^.x+ b^.x; gotoxy(x,wherey); write(z:1:1);
        s:=s^.p1; b:=b^.p2; x:=x+dd; end;
readkey;
end.

[Evgenii]

а чем лучше то?

[puporev]

К автору. А Вы программу прогоняли? У Вас все нормально выводит. Числа из интервала -50+50 ? А то тип чисел объявлен вещественный, а генерируются целые числа.

[sim_84]

Напиши класс для списка

[Evgenii]

прямой вывод: -2.0 35.0 45.0 -39.0 -22.0 45.0
+ + + + + +
обратный ввод: 45.0 -22.0 -39.0 45.0 35.0 -2.0
___________________________________ ________________________________

результат: 43.0 13.0 6.0 6.0 13.0 43.0

Это результат работы программы. числа генерируются от -50 до 49. То что они объявлены как вещественные-нужно исправить, т.к. в условии сказано что в программе создается список целых чисел. Это одна из ошибок