ЕСЛИ с1 > с2 ТО ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с1 > с3 ТО Вывод.Цепь("^Первый.") ИНАЧЕ Вывод.Цепь("^Первый и третий.") АЕСЛИ с2 > с1 ТО ЕСЛИ с3 > с2 ТО Вывод.Цепь("^Третий.") АЕСЛИ с2 > с3 ТО Вывод.Цепь("^Второй.") ИНАЧЕ Вывод.Цепь("^Второй и третий.") ИНАЧЕ ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с3 < с1 ТО Вывод.Цепь("^Первый и второй.") ИНАЧЕ Вывод.Цепь("^Ничья.") КОН
После того как мы узнали, что такое уравнение, и научились решать самые простые из них, в которых находили неизвестное слагаемое, уменьшаемое, множитель и т.п., логично познакомиться с уравнениями и других видов. Следующими по очереди идут линейные уравнения, целенаправленное изучение которых начинается на уроках алгебры в 7 классе. Понятно, что сначала надо объяснить, что такое линейное уравнение, дать определение линейного уравнения, его коэффициентов, показать его общий вид. Дальше можно разбираться, сколько решений имеет линейное уравнение в зависимости от значений коэффициентов, и как находятся корни. Это позволит перейти к решению примеров, и тем самым закрепить изученную теорию. В этой статье мы это сделаем: детально остановимся на всех теоретических и практических моментах, касающихся линейных уравнений и их решения. Сразу скажем, что здесь мы будем рассматривать только линейные уравнения с одной переменной, а уже в отдельной статье будем изучать принципы решения линейных уравнений с двумя переменными.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
м1, с1, м2, с2, м3, с3: ЦЕЛ;
УКАЗ
Вывод.Цепь("Первый спортсмен: ");
м1 := Приём.Число(); Вывод.Цепь(":"); с1 := Приём.Число();
Вывод.Цепь("^Второй спортсмен: ");
м2 := Приём.Число(); Вывод.Цепь(":"); с2 := Приём.Число();
Вывод.Цепь("^Третий спортсмен: ");
м3 := Приём.Число(); Вывод.Цепь(":"); с3 := Приём.Число();
с1 := с1 + м1 * 60;
с2 := с2 + м2 * 60;
с3 := с3 + м3 * 60;
ЕСЛИ с1 > с2 ТО
ЕСЛИ с3 > с1 ТО
Вывод.Цепь("^Третий.")
АЕСЛИ с1 > с3 ТО
Вывод.Цепь("^Первый.")
ИНАЧЕ
Вывод.Цепь("^Первый и третий.")
АЕСЛИ с2 > с1 ТО
ЕСЛИ с3 > с2 ТО
Вывод.Цепь("^Третий.")
АЕСЛИ с2 > с3 ТО
Вывод.Цепь("^Второй.")
ИНАЧЕ
Вывод.Цепь("^Второй и третий.")
ИНАЧЕ
ЕСЛИ с3 > с1 ТО
Вывод.Цепь("^Третий.")
АЕСЛИ с3 < с1 ТО
Вывод.Цепь("^Первый и второй.")
ИНАЧЕ
Вывод.Цепь("^Ничья.")
КОН
КОН Задание.