Рассмотрите следующий пример из жизни. Сотрудник, только что устроившийся на работу, говорит охраннику, что работает в этой организации менеджером.
По инструкции охранник не верит словесным убеждениям и требует от менеджера подтверждающий документ, чтобы впустить его в здание.
Новый сотрудник показывает соответствующий документ, двери организации открываются, и охранник пропускает сотрудника внутрь.
Проанализируйте, какая часть этого примера является идентификацией, какая – аутентификацией, а какая – регистрацией.
202
269
Ответы на вопрос:
Type frac = record p: integer; q: 1..32767 end; function gcd(a: integer; b: integer): integer; {нахождение нод} var i: integer; begin while b < > 0 do begin a : = a mod b; i : = b; b : = a; a : = i end; result : = a end; function redfrac(a: frac): frac; {сокращение дроби} var igcd: integer; r: frac; begin igcd : = gcd(a.p, a.q); r.p : = a.p div igcd; r.q : = a.q div igcd; redfrac : = r end; function add(a, b: frac): frac; {сложение дробей} var r: frac; begin r.p : = a.p * b.q + b.p * a.q; r.q : = a.q * b.q; add : = redfrac(r) end; function mult(a, b: frac): frac; {умножение дробей} var r: frac; begin r.p : = a.p * b.p; r.q : = a.q * b.q; mult : = redfrac(r) end; var m, n, k: frac; begin m.p : = 4; m.q : = 15; {4/15} n.p : = 9; n.q : = 25; {9/25} k : = add(m, n); writeln(k.p, '/', k.q); k : = mult(m, n); writeln(k.p, '/', k.q); end. результат выполнения программы: 47/75 12/125
Популярно: Информатика
-
VasyaHrenov03.05.2021 10:37
-
Серыйпрайм01.02.2020 17:53
-
skyblue120.01.2021 06:11
-
divamurmyrlena08.02.2022 03:35
-
помогите117704.11.2020 05:35
-
gen197820.10.2020 14:03
-
соня158205.04.2023 13:56
-
виктория200314109.02.2023 01:12
-
marmeladka090702.01.2022 19:27
-
алгебра17106.03.2020 20:10