Var a,b,alpha,s:real; begin writeln('Вычисление площади треугольника'); writeln('Введите (через пробел) длины двух сторон (см) треугольника'); readln(a,b); writeln('Введите величину угла (градус) между сторонами треугольника'); readln(alpha); alpha:=DegToRad(alpha); writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.') end.
Тестовое решение:
Вычисление площади треугольника Введите (через пробел) длины двух сторон (см) треугольника 25 17 Введите величину угла (градус) между сторонами треугольника 30 Площадь треугольника: 106.25 кв.см.
Вычисление площади треугольника Введите (через пробел) длины двух сторон (см) треугольника 11 16.3 Введите величину угла (градус) между сторонами треугольника 39 Площадь треугольника: 56.4185730576179 кв.см.
А)132031(4) переводим в двоичную систему. Каждую цифру заменяем двумя двоичными (4=2^2) по принципу 0 ⇒ 00б 1 ⇒ 01, 2 ⇒ 10, 3 ⇒ 11 132031(4)=01 11 10 00 11 01(2) ⇒ 11110001101(2) б) Для перевода из 2 с/с в 8 с/с справа налево разбиваем двоичное число на триады и заменяем каждую двоичную триаду соответствующей восьмеричной цифрой. 11110001101(2) = 11 110 001 101(2) = 3615(8) в) Для перевода в 10 с/с заменяем каждую восьмеричную цифру её произведением на 8 в степени, на единицу меньшей порядкового номера позиции цифры в числе, считая справа налево
2. 9347(11) +7039(11) ----------------- 15385(11) Объяснение: 7+9=16, но в 11с/с цифры только 0..10, поэтому 16 это 16-11=5 и перенос 1 в старший разряд.
3221(6) - 354(6) ------------- 2423(6) Объяснение: от 1 отнять 4 нельзя, поэтому занимаем "единичку" в старшем разряде. Но "единичка" в 6с/с - это 6, а не 10, как в 10с/с, поэтому вместо 1 мы получаем 1+6-7, далее из 7 вычитаем 3 и получаем 4. Теперь во втором справа разряде вместо 2 осталась 1 (мы "занимали единицу"), Из 1 нельзя вычесть 5, занимаем "единичку" у соседней 2 и.т.д.
Вложенным циклами вроде как