Как вводится информация на данных устройствах? мобильный телефон: телевизор микроволновая печь пылесос стиральная машина

На телефоне идёт цифровая обработка информация (вкратце - 1 и 0), они переводятся в другой более "восприимчивый" человеком код, и обрабатывается.. На других устройствах - всё аналогично.. Зависит от того, как запрограммированы микроконтроллеры/микропроцессоры в них:)

Объяснение:

uses GraphABC;

const

 Path = 'C:\Ilya\AlgoРитмы\Sankt-Peterburg.txt';

 DisplacementX = 10;

 DisplacementY = -10;

begin

 SetWindowIsFixedSize(true);

 

 var H := Window.Height;

 

 var A := ReadAllText(Path).Replace(',', '.').ToReals();

 var StepX := Window.Width / (A.Count - 1);

 var Min := Abs(A.Min);

 var Max := A.Max() + Min;

 var B := A.Select((x, i) -> (x, Round(StepX * i), Round(H - (A[i] + Min) / Max * H))).ToList();

 

 for var i := 0 to B.Count - 2 do

 begin

   var c := Round(255 - (B[i].Item3 + B[i].Item3) * 0.5 / H * 255);

   SetPenColor(RGB(0, c, c));

   SetBrushColor(RGB(0, c, c));

   Polygon(Arr(new Point(B[i].Item2, H), new Point(B[i].Item2, B[i].Item3),

               new Point(B[i + 1].Item2, B[i + 1].Item3), new Point(B[i + 1].Item2, H)));

 end;

 SetFontColor(clBlack);

 SetBrushColor(ARGB(200, 255, 255, 255));

 for var i := 0 to B.Count - 1 do

   TextOut(B[i].Item2 + DisplacementX, B[i].Item3 + DisplacementY, FloatToStr(B[i].Item1));

end.

Круговая диаграмма

Комментарии к коду  [показать]

uses GraphABC;

const

 N = 5;

 R = 150;

 K = 0.7;

var

 A: array of integer;

 Angle: real;

begin

 SetWindowIsFixedSize(true);

 SetWindowSize(500, 500);

 var W := Window.Width div 2;

 var H := Window.Height div 2;

 

 SetLength(A, N);

 for var i := 0 to N - 1 do

   Readln(A[i]);

 

 var Sum := A.Sum();

 

 SetPenWidth(2);

 var R2 := R * K;

 for var i := 0 to N - 1 do

 begin

   var ang := Round(A[i] / Sum * 360);

   SetBrushColor(clRandom());

   Pie(W, H, R, Round(Angle), Round(Angle - ang));

   var ang2 := DegToRad(360 - Angle + ang / 2);

   SetBrushColor(clWhite);

   TextOut(Round(W + R2 * Cos(ang2)), Round(H + R2 * Sin(ang2)), Format('{0} [~{1}%]', A[i], Round(A[i] / Sum * 100)));

   Angle -= ang;

 end;

import math

n = list()

print('Введите первое число: ', end='')

n.append(float(input()))

print('\nВведите второе число: ', end='')

n.append(float(input()))

print('\nВведите третье число: ', end='')

print('\n')

n.append(float(input()))

n.sort(reverse = True)

if (n[0] >= (n[1] + n[2])):

print('Треугольник не существует', end='')

else:

if(n[0] == n[1] == n[2]):

print('Треугольник равносторонний', end='')

elif(n[0] == n[1] or n[0] == n[2] or n[1] == n[2]):

print('Треугольник равнобедренный', end='')

else:

print('Треугольник разносторонний', end='')

if(round(n[0]**2, 6) == round((n[1]**2 + n[2]**2), 6)):

print('и прямоугольный')

print(n)