Program gt;
var n,i:integer;
a:array[1..1000]of integer;
begin
randomize;
read(n);
for i:=1 to n do
a[i]:=random(40)-20;
for i:=1 to n do
begin
write(a[i]:4,' ');
if(i mod 4=0)then writeln;
end;
for i:=1 to 4-n mod 4 do
write(0:4,' ');
end.
Тебе из будет трудно искать на рабочем столе или в память компьютера, также они будут длинные и название будет показываться не полностью
Код Бодо кодирует каждый символ в 5 бит (32 символа) или в 6 бит (64 символа) . То есть на любой символ приходится одинаковое количество информации. А в коде Морзе такого нет.
Var Ax,Ay,Ox,Oy,R:real;
Begin
WriteLn('Точка А:');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Центр окружности:');
Write(' x = ');ReadLn(Ox);
Write(' y = ');ReadLn(Oy);
Write('Радиус окружности: ');ReadLn(R);
if sqr(Ax-Ox)+Sqr(Ay-Oy) < R*R then WriteLn('Точка лежит внутри окружности')
else if sqr(Ax-Ox)+Sqr(Ay-Oy) = R*R then WriteLn('Точка лежит на окружности')
else WriteLn('Точка находится вне окружности')
End.
Var
Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
Begin
WriteLn('Координаты первой вершины');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Координаты второй вершины');
Write(' x = ');ReadLn(Bx);
Write(' y = ');ReadLn(By);
WriteLn('Координаты третьей вершины');
Write(' x = ');ReadLn(Cx);
Write(' y = ');ReadLn(Cy);
AB:=Sqr(Ax-Bx)+Sqr(Ay-By);
BC:=Sqr(Bx-Cx)+Sqr(By-Cy);
CA:=Sqr(Cx-Ax)+Sqr(Cy-Ay);
if (AB+BC=CA)or(BC+CA=AB)or(CA+AB=BC) then WriteLn('Треугольник - прямоугольный')
else WriteLn('Данный треугольник не является прямоугольным')
End.
Формула количества информации
<span>N-кол-во цветов, i-кол-во бит на одну точку</span>