Паскаль. Условный оператор if

[AnutaPr]

Решила задачу на паскале, но при проверки ее через сайт выдается статус "Частичное решение". При этом программа работает. Подскажите как решить задачу полностью, что я упустила при решении?

Мой вариант решения:
Program Metro511;

var N,i,j,k,z1,z2,rez:integer;
    inp,outp:text;
begin
     assign(inp,'input.txt');
     reset(inp);
     assign(outp,'output.txt');
     rewrite(outp);
     readln(inp,N,i,j);
     if (k<>j)and(N<=100) then begin
     z1:=j-i-1;
     z2:=N-z1-2;
     if z1<z2 then rez:=z1
                  else rez:=z2;
     end;
     writeln(outp,rez);
     close(inp);
     close(outp);
end.

Программа мне выдает:

[BDA]

1) Необходимым качеством программиста является умение отлаживать программы (ну это на будущее).
2) Мой вариант:

var
  N, i, j, k: integer;

function min(a, b: integer): integer;
begin
  if a < b then
    min := a
  else
    min := b;
end;

begin
  readln(N, i, j);
  k := abs(i - j);
  writeln(min(k - 1, N - k - 1));
end.

Второй вариант (без if - так гораздо интереснее):

var
  N, i, j: integer;

begin
  readln(N, i, j);
  writeln((N - abs(N - 2 * abs(i - j))) div 2 - 1);
end.

3) Используйте кнопочку Решетка # для оформления кода.
4) Если Вам интересно разобраться в своей программе, а не просто получить правильное решение, то введите для проверки числа 10 1 3 и 10 3 1 и сравните результат.

[Stilet]

Фраза "А должно быть 100 баллов" убивает наповал

[kta87]

BDA, вам ТС спасибо то сказал(а)?

[Аватар]

А должно быть 100 баллов

Чего уж мелочиться. Лучше - а должно быть 1000 баллов. Или больше, в зависимости от уровня самооценки

[BDA]

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

Фраза "А должно быть 100 баллов" убивает наповал

Да

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

BDA, вам ТС спасибо то сказал(а)?

ТС еще на заходил(а)
UPD От ее имени поставили плюсик.

[Sasha_Smirnov]

Должно быть сколько заработали! А у ТС просто выражено стремление к идеалу.

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

BDA, вам ТС спасибо то сказал(а)?

Тот кустик черники, что в углу поста, лично я, наверно, месяца через 3 опознал как весы, и то по подсказке. Так что вы хотите от новобранцев!

[Poma][a]

без if - так гораздо интереснее

Math и Min, не? Конечно градус "интересности" понизится, зато (возможно) по красивше будет..

[BDA]

Сообщение от Poma][a

Math и Min, не? Конечно градус "интересности" понизится, зато (возможно) по красивше будет..

1) Поскольку "сидел" на turbo pascal, то min писал всегда руками (вроде модуля math нет в TP).
2) Что считать "красивше" - в последнее время, при решении олимпиадных задач, стоит цель (приятно попасть в топ на АЦМП) получения наиболее короткого кода в угоду простоте понимания (добавление uses сразу "раздуло" код).
3) Не знаю, как реализовывается min в библиотеке, но там он должен быть защищен от переполнения, а я всего лишь использовал формулу (-|a - b| + a + b) / 2, которая высчитывает тот самый минимум, но не защищена от переполнений.

[AnutaPr]

Спасибо большое) Выбрала первый вариант решения с min. Со вторым пока не очень разобралась... но разбираюсь))
И за разъяснение как код вставлять то же спасибо, теперь буду знать)