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

[1147]

Такое задание по курсу технологии программирования:
дан текст программы (Pascal). Программа создает динамический список неповторяющихся целых чисел в диапазоне от -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.
;
end.

Тегами пользоваться не забывай

Сообщение отредактировано: volvo - 29.01.2009 14:35

[1147]

{$N+}

procedure ReadTSC(Var counter : Comp); far; external;
{$L tsc.obj}

Var a1, a2, a3 : Comp;
begin
   ReadTSC(a1);
   Writeln('Working : )');
   ReadTSC(a2);
   Writeln(a1:20:0, ', ', a2:20:0, ', ', (a2-a1):20:0)
end.
 

получилось следующим образом: процедура, дальше идет текст основной программы. Но программа не запускается.
Как вызвать эту процедуру и где?

Сообщение отредактировано: volvo - 1.02.2009 14:06