Оптимизация (сокращение) кода решения задачи #2 c acmp.ru - нахождение суммы целых чисел от 1 до N

[Serge_Bliznykov]

Работать будет только в Free Pascal.

на acmp.ru используется компилятор от Borland Delphi 7.0.
то, что может быть откомпилировано этим компилятором - проходит. Иначе - Compilation error

[astecenko]

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

z:=n*(abs(n)+1) div 2;

и

z:=(n*n+n) div 2;

Не одно и тоже?

Смотри сам, примем n=-3
1) (-3)*(3+1) / 2 = -6
2) ((-3)*(-3)+(-3)) / 2 = 3

-6 != 3

[Utkin]

z:=n*(n+1) div 2;
if n<=0 then inc(z*(-1));

Ну или решение где-то рядом

[Stilet]

Вот и я до 111 добрался

uses dos,crt;
var l,k,n,i,s:integer;p:integer;f,o:text;
label a,b;
begin
 asm
  lea ax,b
  mov [p],ax
  lea ax,a
  sub [p],ax
 end;
 clrscr;
a:
 assign(f,'input.txt');reset(f); readln(f,n);
 k:=abs(n)+1;

 s:=((k*((k-1) div 2)+(k div 2)));
 if n<=0 then s:=-1*s+1;
b:
 writeln(s,' ',p,' bytes');
 readln;
end.

Но опять таки: нет вывода в файл

Или вот 108 байт но проблема с нулем

uses dos,crt;
var l,k,n,i,s:integer;p:integer;f,o:text;
label a,b;
begin
 asm
  lea ax,b
  mov [p],ax
  lea ax,a
  sub [p],ax
 end;
 clrscr;
a:
 assign(f,'input.txt');reset(f); readln(f,n);
 k:=abs(n)+1;
 l:=k div 2;
 s:=k*(l-1)+l;
 if n<0 then s:=-1*s+1;
b:
 writeln(s,' ',p,' bytes');
 readln;
end.

[Аватар]

Или я считаю не так? В последнем фрагменте без пробелов ~245 символов. Откуда 108?

[Stilet]

Откуда 108?

От метки а до метки b 108 байт. writeln(s,' ',p,' bytes'); я специально поставил.
Мы ведь считаем кол-во сгенерированного кода?
Или исходник???

[Аватар]

По моему речь идет о не пробельных символах исходника. Хи-хи

[Stilet]

По моему речь идет о не пробельных символах исходника.

OMG
Так че? Чет я ниче не понял... Смысл оптимизации - уменьшить исходник или всетки нагенерить меньше машинного кода???

[Аватар]

Какая там оптимизация. Дается задание написать прогу, в которой исходник должен быть минимально коротким. Вот народ на разных языках и тренеруется. А что, интересно придумать алгоритм или код закрученный

[astecenko]

C acmp.ru

В качестве критерия ранжирования лучших попыток служит размер кода закачиваемой программы. При подсчете размера кода не учитываются пробелы, а так же символы переноса и табуляции.

ТОП-20