сузанна_Людмила
?>

Воспроизведите электронную таблицу для перевода не десятичного числа в десятичную систему счисления. выполните перевод в десятичную систему счисления следующих чисел: 1101, 1011(2); 35071, 214(8); 24013, 3201(5)

Информатика

Ответы

devochkadafka624
В ячейке записываешь формулу
=1*2^3+1*2^2+1
=3*8^4+5*8^3+0*8^2+7*8^1+1*8^0
FinKozhevnikov28
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975
Jannadon77
1)
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может

2) присваивание, обозначается знаком "="
Например:
sum = 0;

3) 
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin

4)
var
     S, P, a, b: integer
begin
     write('Введите сторону а: ');
     readln(a);
     write('Введите сторону b: ');
     readln(b);
     
     S = a * b; {нахидим площадь}
     P = (a + b) * 2; {находим периметр}

     writeln('Площадь = ', S, ', периметр = ', P);
end.

5)
Var
     number, {Трехзначное число}
     num1, {Первая крайняя цифра}
     num2, {Вотрая крайняя цифра}
     : integer;
Begin
     write('Введите число');
    readln(number);
   
     num1 = number mod 10;
     num2 = number div 100;
    
     writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Воспроизведите электронную таблицу для перевода не десятичного числа в десятичную систему счисления. выполните перевод в десятичную систему счисления следующих чисел: 1101, 1011(2); 35071, 214(8); 24013, 3201(5)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

llipskaya
Ольга1520
Екатерина
nikiforovako76
Solovetzmila
АлександрАлександровна
slonikkristi69
simplexsol
mmoskow3
Ainura Pokhomova
vettime625
meu72
bulenbeiser
k-serga1
postbox