Пользователь вводит целочисленное значение. Если оно попадает в диапазон [4;85],то выводит соответствующий комментарий.(составьте блок-схему и разработайте код).
Procedure WriteDMS(r: real); var dd, s: real; d, m: integer;
begin dd := 180 * r / Pi; d := Trunc(dd); dd := 60 * (dd - d); m := Trunc(dd); s := 60 * (dd - m); Writeln('=', d, ' град ', m, ' мин ', s:0:2, ' сек') end;
var a, b, c, dd: real;
begin Write('Введите через пробел стороны треугольника a,b,c: '); Readln(a, b, c); Writeln('Значения углов треугольника'); Write('А'); dd := ArcCos((sqr(b) + sqr(c) - sqr(a)) / (2 * b * c)); WriteDMS(dd); Write('B'); dd := ArcCos((sqr(a) + sqr(c) - sqr(b)) / (2 * a * c)); WriteDMS(dd); Write('C'); dd := ArcCos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b)); WriteDMS(dd); end.
Тестовое решение: Введите через пробел стороны треугольника a,b,c: 5.8 3.2 4.9 Значения углов треугольника А=88 град 53 мин 7.58 сек B=33 град 28 мин 41.54 сек C=57 град 38 мин 10.88 сек
А10=252
А2=11111100
Решение:
252/2 =126 остаток 0
126/2 =63 остаток 0
63/2 =31 остаток 1
31/2 =15 остаток 1
15/2 =7 остаток 1
7/2=3 остаток 1
3/2 = 1 остаток 1
1/2 =0 остаток 1
Записываем ответ снизу вверх:
А2=11111100
2)
А10=252
А8=374
Решение:
252/8 =31 остаток 4
31/8 =3 остаток 7
3/8 =0 остаток 3
Записываем ответ снизу вверх:
А8=374
3)
А10=252
А16=FC
F=15 C=12
Решение:
252/16 = 15 остаток 12(С)
15/16 = 0 остаток 15(F)
Записываем ответ снизу вверх:
А16=FC