Воспроизведите электронную таблицу для перевода не десятичного числа в десятичную систему счисления. выполните перевод в десятичную систему счисления следующих чисел: 1101, 1011(2); 35071, 214(8); 24013, 3201(5)
В ячейке записываешь формулу =1*2^3+1*2^2+1 =3*8^4+5*8^3+0*8^2+7*8^1+1*8^0
FinKozhevnikov28
02.02.2023
// 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
02.02.2023
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; {находим периметр}
=1*2^3+1*2^2+1
=3*8^4+5*8^3+0*8^2+7*8^1+1*8^0