Question

Переведите это решение на паскаль прошу! N = int(input()) A = int(input()) B = int(input()) C = int(input()) def time(x, y): return max(x * C + (N-x) * A, x * C + (x-y-1) * B, y * A) ans = N * A X = (N * A * A + N * A * B) // (2 * A * B + A * A - C * B) for x in (X, X + 1): y = (C + B) * x // (A + B) ans = min(ans, time(x, y)) print(ans)

Answer 1

Ответ:

def add(x, y):

   return x + y

Инструкция return говорит, что нужно вернуть значение. В нашем случае функция возвращает сумму x и y.

Теперь мы ее можем вызвать:

>>>

>>> add(1, 10)

11

>>> add('abc', 'def')

'abcdef'

Функция может быть любой сложности и возвращать любые объекты (списки, кортежи, и даже функции!):

>>>

>>> def newfunc(n):

...     def myfunc(x):

...         return x + n

...     return myfunc

...

>>> new = newfunc(100)  # new - это функция

>>> new(200)

300

Функция может и не заканчиваться инструкцией return, при этом функция вернет значение None:

>>>

>>> def func():

...     pass

...

>>> print(func())

None

Объяснение:

Answer 2

Конечно, вот ваше решение на языке Pascal:

pascalCopy code
var
  N, A, B, C: Integer;

function time(x, y: Integer): Integer;
begin
  time := Max(x * C + (N - x) * A, x * C + (x - y - 1) * B, y * A);
end;

var
  ans, X, x, y: Integer;

begin
  Readln(N);
  Readln(A);
  Readln(B);
  Readln(C);

  ans := N * A;
  X := (N * A * A + N * A * B) div (2 * A * B + A * A - C * B);

  for x := X to X + 1 do
  begin
    y := (C + B) * x div (A + B);
    ans := Min(ans, time(x, y));
  end;

  Writeln(ans);
end.

Этот код на Pascal должен выполнять те же самые операции, что и ваш Python код.