М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dasha8743
dasha8743
15.11.2021 10:06 •  Информатика

Построить блок схему алгоритма вычисления площади треугольника по формуле герона где р полупериметр треугольника со стронами а.в.с

👇
Ответ:
Nastya8laif
Nastya8laif
15.11.2021
Блок-схема в приложении!
Построить блок схему алгоритма вычисления площади треугольника по формуле герона где р полупериметр
4,4(75 оценок)
Открыть все ответы
Ответ:
Marikalitkina
Marikalitkina
15.11.2021
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var b:array[1..6,1..6] of integer:=(
    (19,21,23,25,27,29),(57,59,61,63,65,31),
    (55,81,83,85,67,33),(53,79,89,87,69,35),
    (51,77,75,73,71,37),(49,47,45,43,41,39));
  var a:array[1..6,1..6] of integer;  
  var k:=2;
  var k0,k1:integer;
  for var i:=1 to 6 do begin
    for var j:=1 to 6 do Print(b[i,j]);
    Writeln
    end;
  Writeln;
  repeat
    k0:=0;
    k1:=0;
    Writeln('k=',k);
    for var i:=1 to 6 do begin
      for var j:=1 to 6 do begin
        if (b[i,j] mod k) mod 2=0 then
          begin a[i,j]:=1; Inc(k1) end
        else begin a[i,j]:=0; Inc(k0) end;
        Print(a[i,j])
        end;
      Writeln
      end;
    Writeln('k0=',k0,', k1=',k1);
    if k0<>k1 then Inc(k)
  until k0=k1;
  Writeln(NewLine,'k=',k)
end.

Решение
19 21 23 25 27 29
57 59 61 63 65 31
55 81 83 85 67 33
53 79 89 87 69 35
51 77 75 73 71 37
49 47 45 43 41 39

k=2
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=3
0 1 1 0 1 1
1 1 0 1 1 0
0 1 1 0 0 1
1 0 1 1 1 1
1 1 1 0 1 0
0 1 1 0 1 1
k0=12, k1=24
k=4
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=5
1 0 0 1 1 1
1 1 0 0 1 0
1 0 0 1 1 0
0 1 1 1 1 1
0 1 1 0 0 1
1 1 1 0 0 1
k0=14, k1=22
k=6
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=7
0 1 1 1 1 0
0 0 0 1 1 0
1 1 1 0 1 0
1 1 0 0 1 1
1 1 0 0 0 1
1 0 0 0 1 1
k0=16, k1=20
k=8
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=9
0 0 0 0 1 1
0 0 0 1 1 1
0 1 1 1 1 1
1 0 1 1 1 1
1 0 0 0 1 0
1 1 1 0 0 0
k0=16, k1=20
k=10
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=11
1 1 0 0 0 0
1 1 1 1 1 0
1 1 1 1 0 1
0 1 0 1 0 1
0 1 0 0 0 1
0 0 0 1 1 1
k0=16, k1=20
k=12
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=13
1 1 1 1 0 0
0 0 0 0 1 0
0 0 0 0 1 0
0 0 0 0 1 0
1 1 1 1 1 0
1 1 1 1 1 1
k0=18, k1=18

k=13

ответ: 13
4,5(96 оценок)
Ответ:
domofon98
domofon98
15.11.2021

№1:

Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
101 = 2^{2}*1 + 2^{1}*0 + 2^{0}*1 = 4 + 0 + 1 = 5

Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда
101 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 = 0.625

 

Аналогично:

№2

101 = 2^{2}*1 + 2^{1}*0 + 2^{0}*1 = 4 + 0 + 1 = 5

101000 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 + 2^{-4}*0 + 2^{-5}*0 + 2^{-6}*0 = 0.625

 

№3

11001 = 2^{4}*1 + 2^{3}*1 + 2^{2}*0 + 2^{1}*0 + 2^{0}*1 = 16 + 8 + 0 + 0 + 1 = 25

101000 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 + 2^{-4}*0 + 2^{-5}*0 + 2^{-6}*0 = 0.625

 

№4

10100 = 2^{4}*1 + 2^{3}*0 + 2^{2}*1 + 2^{1}*0 + 2^{0}*0 = 16 + 0 + 4 + 0 + 0 = 20

101 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 = 0.625

 

 

 Если не понятен значок ^{  } - это степень.

 

 

Вложение к следующему заданию


Переведите из двоичной системы счисления в десятичную : 1) 101,101 2) 101,101000 3) 11001,101000 4)
4,7(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ