В целом к профессиональным навыкам системного программиста можно отнести языки программирования, методы сборки новых программ из готовых частей, трансляторы, программы отладки в терминах высокоуровневых языков, библиотеку готовых заготовок. Еще одно новой профессией является операционщик – разработчик операционных систем. Данные системы являются сердцем программного обеспечения компьютера. Именно они управляют вводом в компьютер информации, которая поступает с клавиатуры или дисков, помещением выходных и входных данных на запоминающих устройствах, а еще манипуляцией с ними. <span>Операционные системы с каждым годом все более усложняются, ведь вырастают потребности массового пользователя, а также требования техники и науки. Именно поэтому от специализации системного программирования отделилась новая специализация – разработчик операционных систем или операционщик.
А объединения нескольких вычислительных машин, возникновение глобальных и локальных сетей потребовало от операционных систем исполнения все новых функций. В связи с этим возникла и новая специальность – программист-сетевик. </span><span>Специалисты, которые занимаются разработкой сетевых программ, должны хорошо разбираться в системах протоколов, которые приняты для данной сети, правилах формирования адресов различных точек сети, способах транспортировки информации и прочем. Программисты-сетевики, профессионалы своего дела, могут сжимать данные на входе, а также расшифровывать ее на выходе.</span>
<span>Существует формула, которая связывает между собой количество возможных информационных сообщений N и количество информации I, которое несет полученное сообщение:</span>
N = 2 в степени I, следовательно
8 = 2 в степени 3, следовательно 3 - количество информации которое несёт одна буква этого алфавита.
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.