62 lines
2.2 KiB
HTML
62 lines
2.2 KiB
HTML
|
<h2>Example</h2>
|
|||
|
|
|||
|
<pre><code>алг
|
|||
|
нач
|
|||
|
| Решение квадратного уравнения.
|
|||
|
вещ a, b, c
|
|||
|
вещ таб корни[1:2]
|
|||
|
цел индекс, число корней
|
|||
|
вывод "Укажите первый коэффициент: "
|
|||
|
ввод a
|
|||
|
вывод нс, "Укажите второй коэффициент: "
|
|||
|
ввод b
|
|||
|
вывод нс, "Укажите свободный член: "
|
|||
|
ввод c
|
|||
|
решить квур(a, b, c, число корней, корни)
|
|||
|
если число корней = -1
|
|||
|
то
|
|||
|
вывод нс, "Первый коэффициент не может быть равен нулю.", нс
|
|||
|
иначе
|
|||
|
если число корней = 0
|
|||
|
то
|
|||
|
вывод нс, "Уравнение не имеет корней.", нс
|
|||
|
иначе
|
|||
|
если число корней = 1
|
|||
|
то
|
|||
|
вывод нс, "Уравнение имеет один корень.", нс
|
|||
|
вывод "x = ", корни[1], нс
|
|||
|
иначе
|
|||
|
вывод нс, "Уравнение имеет два корня.", нс
|
|||
|
нц для индекс от 1 до число корней шаг 1
|
|||
|
вывод "x", индекс, " = ", корни[индекс], нс
|
|||
|
кц
|
|||
|
все
|
|||
|
все
|
|||
|
все
|
|||
|
кон
|
|||
|
|
|||
|
алг решить квур(арг вещ a, b, c, арг рез цел число корней, арг рез вещ таб корни[1:2])
|
|||
|
нач
|
|||
|
вещ дискриминант
|
|||
|
если a = 0
|
|||
|
то
|
|||
|
число корней := -1
|
|||
|
иначе
|
|||
|
дискриминант := b**2 - 4 * a * c
|
|||
|
если дискриминант > 0
|
|||
|
то
|
|||
|
корни[1] := (-b - sqrt(дискриминант)) / (2 * a)
|
|||
|
корни[2] := (-b + sqrt(дискриминант)) / (2 * a)
|
|||
|
число корней := 2
|
|||
|
иначе
|
|||
|
если дискриминант = 0
|
|||
|
то
|
|||
|
корни[1] := -b / (2 * a)
|
|||
|
число корней := 1
|
|||
|
иначе
|
|||
|
число корней := 0
|
|||
|
все
|
|||
|
все
|
|||
|
все
|
|||
|
кон</code></pre>
|