Конспект лекций по программированию для начинающих. Гладков В.П. - 77 стр.

                                        79

                        then write('3*4+5*',chas,'=',n)
                        else if ost=3
                        then write('3*1+5*',chas,'=',n)
                        else write('3*3+5*',chas,'=',n).
    Пример 9.34. В старой лавке Аладин нашел пять волшебных ламп,
заставить работать которые можно было, ударив их друг о друга. В момент
удара из ламп сыпались искры, причем при любом ударе из каждой конкретной
лампы высыпалось одно и то же количество искр, но не совпадающее с
количеством искр, высыпавшихся из другой лампы. Волшебство появлялось из
той лампы, искр из которой высыпалось больше. Написать программу для
определения самой волшебной лампы.
    Решение. Обозначим лампы именами L1, L2, L3, L4, L5. Переменные с
этими именами будут хранить количество искр, высыпавшихся при ударе из
одноименной лампы. Тогда задача сводится к поиску максимального значения
из пяти заданных:
    program pr1;
    var L1,L2,L3,L4,L5 :integer;{количество искр в соответствующей лампе}
         m : integer; {максимальное количество искр среди просмотренных ламп}
         n : integer; {номер лампы с максимальным количеством искр}
    begin       write('введите пять чисел - количество искр, ',
                        'высыпавшихся из пяти ламп ');
                readln(L1,L2,L3,L4,L5);
                m := L1; n := 1; {пусть пока самой волшебной будет первая лампа}
                if m < L2
                then begin m := L2; n := 2 end;
                if m < L3
                then begin m := L3; n := 3 end;
                if m < L4
                then begin m := L4; n := 4 end;
                if m < L5
                then begin m := L5; n := 5 end;
                write ( 'Самая волшебная лампа ',n,'. В ней ', m, ' искр.')
    end.
    Пример 9.35. Решить систему уравнений
                                        ⎧a ⋅ x = b,
                                        ⎨
                                        ⎩x + c ⋅ y = 1.
    Решение. Если a=0 и b<>0, то x не существует и у системы нет решений.
Если a=0 и b=0, то x может быть x=1-c·y, где y - любое. Если a<>0, то x=b/a.
Подставляя во второе уравнение, получаем c·y=(a-b)/a. Если c=0 и a-b=0 или
a=b, то y - любое, а x=1. Если c=0 и a-b<>0 или a<>b, то y не существует и
система решений не имеет. Если c<>0, то y=(a-b)·c/a, a x=b/a.
    Построим таблицу решений:
                  a=0, b<>0               1
                  a=0, b=0                    1
                  a<>0, c=0, a=b                  1