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

[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 18:35

[volvo]

Каким образом можно организовать проверку на повторение?

Смотри внимательно, что изменилось в программе:

Program  din;
uses crt;
type
  tpo = ^tn;
  tn = record
    x: shortint;
    p1, p2: tpo;
  end;

const
  width = 15;
  field =  8;

var s,b,f,k:tpo;
    i,n,x:integer; z:byte;
    used: set of byte;

begin
  clrscr;
  n:=6;

  randomize;
  new(s); z:=random(101); inclide(used, z);
  s^.x := z - 50; f:=s; s^.p2:=nil;
  for i:=1 to n-1 do begin
    new(b);
    repeat z:=random(101); until not (z in used);
    b^.x:=z - 50; s^.p1:=b; b^.p2:=s; s:=b;
  end;
  s^.p1:=nil; k:=s;

  textcolor(13);
  write('прямой вывод: ':width);
  s:=f;
  while s<>nil do begin
    write(s^.x:field); s:=s^.p1;
  end;
  writeln;

  write('':width);
  for i:=1 to N do write('+':field);
  writeln;

  Write('обратный ввод: ':width);
  b:=k; x := width;
  while b<>nil do begin
    write(b^.x:field); b:=b^.p2;
    inc(x, field);
  end;
  writeln;

  textcolor(11);
  for i:=1 to x do write('_');
  writeln; writeln;

  Write('результат: ':width);
  s:=f; b:=k;
  while s<>nil do begin
    write((s^.x+ b^.x):field);
    s:=s^.p1; b:=b^.p2;
  end;
  readkey;
end.

Можно еще убрать вызова textcolor, записывая атрибуты напрямую в переменную textattr, вызов функции - тоже время. Но оно тут не в цикле, поэтому можно пренебречь.

Можно суммировать только первую половину элементов списка, вторая записывается в обратном порядке, если зарезервировать еще один массив 1 .. n div 2, то можно сэкономить кое-что на последнем цикле, до n/2 записывая полученные суммы в массив, после n/2 - печатая уже готовые суммы в обратном порядке...

Хватит?

[1147]

Последний вопрос у меня, но не столько по самой программе, сколько по функции Gettime. Никак не получается измерить время выполнения программы. Соответствующие темы на форуме читал (http://forum.pascal.net.ru/index.php?showtopic=8585&st=0&p=58499&#entry58499), но применить не получается.. Исчерпал все возможные варианты (как видно все, кроме правильного), но время выполнения получить так и не удалось..