profile
Опубликовано 4 года назад по предмету Информатика от Jummy

Составьте алгоритм упорядочения значения трех переменных по возрастанию, т.е. при любых исходных значениях А, В и С, отсортируйте их так, чтобы стало А<В<С. 
На паскале программу напишите)

  1. Ответ
    Ответ дан HRAshton
    procedure swap(var a, b: real);
    var t: real;
    begin
         t := a;
         a := b;
         b := t;
    end;

    var a, b, c: real;
    begin
         readln(a, b, c);
         if (a > b) then swap(a, b);
         if (b > c) then swap(b, c);
         if (a > b) then swap(a, b);
         writeln(a, ' ', b, ' ', c);
    end.
    ===========================
    Без процедур:

    var a, b, c, t: integer;
    begin
         readln(a, b, c);
         if (a > b) then
         begin
              t := a;
              a := b;
              b := t;
         end;
         if (b > c) then
         begin
              t := b;
              b := c;
              c := t;
         end;
         if (a > b) then
         begin
              t := a;
              a := b;
              b := t;
         end;
         writeln(a, ' ', b, ' ', c);
    end.
    1. Ответ
      Ответ дан ДорианГрейМладший
      Я напишу вам еще одну задачку, вы постараетесь решить, а потом я выложу вопрос с призами ввиде пунктов и кину вам ссылку. Мне приятно, и вам не за "спасибо") Договорились?