Можно ли решить такую задачу не используя условный оператор?

[Armorer]

Две очень похожие задачи. Первую у меня получилось решить без условия вторую нет.

1.Дни пронумерованы следующим образом: 0 -Воскресенье 1 - Понедельник ... 6 - Суббота. Дано целое число K. Определить номер дня недели для K-го дня года если известно, что первый день года - четверг.

Я решил так:

  Readln(N);
  Writeln((N+3) mod 7);

2.Дни пронумерованы следующим образом: 1 - Понедельник ... 6 - Суббота 7 -Воскресенье. Дано целое число K. Определить номер дня недели для K-го дня года если известно, что первый день года - суббота.

Вторую получается только так:

  Readln(N);
  N := (N+5) mod 7;
  if N = 0 then
    N := 7;
  Writeln(N);

Можно ли решить вторую не используя условие?

[Svetlag]

Можно массив ввести arr из семи элементов - 7,1,2,3,4,5,6. И обращаться к нему

Writeln( arr[ ((N+5) mod 7) +1]);

.

[Armorer]

Спасибо, я даже не подумал об этом=)

Но дело в том что это задачи из задачника по программированию. В нём все задачи сгруппированы по темам. Это из темы про целые числа. Массивы и условия идут потом. Думаю, что эта задача должна решатся без них.

Вот еще задача из самой первой темы ввод/вывод, та же проблема, не могу без условия=)

Даны коэффициенты квадратного уравнения A, B, C. Найти корни, считать что дискриминант положительный. Вывести сначала меньший корень потом больший.

  Readln( A, B, C );
  D := sqrt(B*B - 4*A*C);
  A := 2*A;
  X1 := (-B + D)/A;
  X2 := (-B - D)/A;
  if X2 > X1 then //можно ли по другому?
    Writeln(X1, X2)
  else
    Writeln(X2, X1);

[Greblin]

Вторая задачка:

N := (N + 5) mod 7;
N := N + ((7 - N) div 7) * 7;
//если N > 0, то второе слагаемое равно 0

[verginia]

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

Спасибо, я даже не подумал об этом=)

Но дело в том что это задачи из задачника по программированию. В нём все задачи сгруппированы по темам. Это из темы про целые числа. Массивы и условия идут потом. Думаю, что эта задача должна решатся без них.

Вот еще задача из самой первой темы ввод/вывод, та же проблема, не могу без условия=)

  Readln( A, B, C );
  D := sqrt(B*B - 4*A*C);
  A := 2*A;
  X1 := (-B + D)/A;
  X2 := (-B - D)/A;
  if X2 > X1 then //можно ли по другому?
    Writeln(X1, X2)
  else
    Writeln(X2, X1);

write(min(x1,x2),max(x1,x2));

[Arigato]

write(min(x1,x2),max(x1,x2));

А в Turbo Pascal такие функции есть?
Но если их нет, то их можно написать самому (без условных операторов):

function Min (A, B: Integer): Integer;
begin
  Min := (A + B - Abs (A - B)) div 2;
end; {func Min}

function Max (A, B: Integer): Integer;
begin
  Max := (A + B + Abs (A - B)) div 2;
end; {func Max}