После того как мы узнали, что такое уравнение, и научились решать самые простые из них, в которых находили неизвестное слагаемое, уменьшаемое, множитель и т.п., логично познакомиться с уравнениями и других видов. Следующими по очереди идут линейные уравнения, целенаправленное изучение которых начинается на уроках алгебры в 7 классе. Понятно, что сначала надо объяснить, что такое линейное уравнение, дать определение линейного уравнения, его коэффициентов, показать его общий вид. Дальше можно разбираться, сколько решений имеет линейное уравнение в зависимости от значений коэффициентов, и как находятся корни. Это позволит перейти к решению примеров, и тем самым закрепить изученную теорию. В этой статье мы это сделаем: детально остановимся на всех теоретических и практических моментах, касающихся линейных уравнений и их решения. Сразу скажем, что здесь мы будем рассматривать только линейные уравнения с одной переменной, а уже в отдельной статье будем изучать принципы решения линейных уравнений с двумя переменными.
a) При r=17 условие выполняется, значит r увеличится на единицу.
Команды не связаны операторными скобками (begin r:=r+1;t:=8; end), поэтому t:=8; выполнится безусловно.
r=18; t=8;
б) При r = 9 условие не выполняется, поэтому значение r останется неизменным.
r = 9; t = 8;
3) for i:= - 10 to - 9 do begin k:=i;write(k);end.
Цикл For не выполнится ни разу. На экран не будет выведено ничего.
Цикл "For i:= A to B do" выполняется B-A+1 раз, при условии, что B>=A. В нём значение i меняется от A до B, с каждой итерацией прибавляется единица.
Цикл "For i:= A downto B do" выполнится A-B+1 раз, при условии, что A>=B В нём значение i тоже меняется от A до B, но с каждой итерацией от i отнимается единица.
4) а) Var A:integer; Begin Write('Введите сумму покупок: ');ReadLn(A); if A<5 then Write('Скидка не предоставляется') else if (A>=5)and(A<10) then Write('Скидка: 0.5%') else if (A>=10)and(A<20) then Write('Скидка: 2%') else Write('Скидка: 5%') End.
б)
Var A,i:integer; Begin For i:= 1 to 10 do Begin Write('Введите сумму покупок: '); ReadLn(A); if A<5 then WriteLn('Скидка не предоставляется') else if (A>=5)and(A<10) then WriteLn('Скидка: 0.5%') else if (A>=10)and(A<20) then WriteLn('Скидка: 2%') else WriteLn('Скидка: 5%') End End.
