Question

Определить два наибольших числа в последовательности и найти их частное.Не через массивы. Паскаль.

Answer 1

Var
    max, prev_max, n: integer;

begin
    max := -10000;
    prev_max := -10000;
    repeat
        read(n);
        if n > max then begin
            prev_max := max;
            max := n;
        end;
    until n = 0;
   
    writeln(max, ' ', prev_max, ' ', prev_max / max);
end.

Answer 2

Для определения двух наибольших чисел в последовательности и нахождения их частного без использования массивов в Pascal, можно использовать следующий подход:

1. Инициализируйте две переменные `max1` и `max2` со значениями, меньшими любого возможного числа в последовательности. 2. Считайте первое число из последовательности и присвойте его переменной `num`. 3. Если `num` больше `max1`, то присвойте `max2` значение `max1`, а `max1` - значение `num`. 4. Если `num` меньше `max1`, но больше `max2`, то присвойте `max2` значение `num`. 5. Повторяйте шаги 2-4 для остальных чисел в последовательности. 6. Найдите частное двух наибольших чисел, разделив `max1` на `max2`.

Вот пример кода на Pascal, реализующего этот подход:

program FindMaxAndDivide;

var
  num, max1, max2, quotient: real;

begin
  max1 := -1.0; // Инициализация max1 меньшим значением
  max2 := -1.0; // Инициализация max2 меньшим значением

// Считываем числа из последовательности
  while not SeekEof do
  begin
    readln(num);

if num > max1 then
    begin
      max2 := max1;
      max1 := num;
    end
    else if (num < max1) and (num > max2) then
    begin
      max2 := num;
    end;
  end;

// Находим частное двух наибольших чисел
  quotient := max1 / max2;

writeln('Наибольшие числа: ', max1:0:2, ' и ', max2:0:2);
  writeln('Частное: ', quotient:0:2);
end.

Примечание: Пожалуйста, обратите внимание, что в данном примере используется чтение чисел из последовательности до конца файла. Вам может потребоваться изменить эту часть кода в соответствии с вашими потребностями ввода чисел.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.