tify"> Program SashaSMasha;
веш; S, М var S, М: real;
поч висновок Вік Саші: begin write ( Вік
введення S Саші: );
висновок Вік readin (S);
Маші: write ( Вік
Введення М Маші: );
якщо S> М readln (М);
то висновок Саша if S> М
старше Маші then write ( Cашa
інакше якщо S = М старше Маші )
то висновок Саша else if S = М
і Маша then write ( Саша
ровесники і Маша ровесники )
інакше висновок else write ( Маша
Маша старше старше Саші )
Саші end.
кв
кв
кон
Приклад 2. Скласти алгоритм впорядкування значень трьох змінних за зростанням, тобто за будь-яких вихідних значеннях А, В, С відсортувати їх так, щоб стало А В С. Написати програму па Паскалі з цього алгоритму.
Рішення. У підрозділі 12.4 підручника [6] розглянуто алгоритм впорядкування значень двох змінні. Для вирішення даної задачі потрібно тричі застосувати цей алгоритм: упорядкувати А і В, впорядкувати В і С (після цього максимальне значення потрапить до С), ще раз порядок А і В. Таким чином, алгоритм буде мати структуру трьох послідовних неповних розгалужень. p>
Алг СОРТИРОВКА-3Program SORT_3;
вещ А, В, С, Хvar А, В, С, X: real;
начbegin
введення А, В, Сreadln (А, В, С);
якщо А> Вif A> У
тоthen begin: = А; X: = А;
А: = В; А: = В;
В: = ХВ: = Х
квend;
якщо В> СIF В> С
тоthen begin: = В; Х: = В;
В: = С; В: = С;
З: = ХС: = Х
квend;
якщо А> Вif A> У
тоthen begin: = А; Х: = А;
А: = В; А: = В;
В: = ХВ: = Х
квend;
висновок ...