Клод Шеннон - основатель теории информации в первую очередь. Прожил достаточно долгую плодотворную жизнь(1916 - 2001). Как учёный этот американский математик приложил свои руки и в инженерии, кибернетики, электротехнике, математике и теории информации. Мировую известность ему принесли разработки теории связи кодирования. Отец первой промышленной радиоуправляемой игрушки и первым ввёл понятие "бит" - как информационной единицы измерения. За свои неоценимые заслуги в революционных разработках отмечен многими наградами и премиями, в том числе и Нобелевской премией.
Задание 2, 1: program zadacha1; uses crt; var x, y: real; begin clrscr; write('enter x: '); readln (x); x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы // переводим из градусов (так как мы задаем значение в градусах) в радианы y:=sqr(cos(x))+sqr(sin(x))*sin(x); writeln ('y=', y:0:4); readkey; end.
2 program zadacha2; uses crt; var y: real; begin clrscr; y:=sqr(sin(pi))+ pi/2; writeln ('y=', y:0:4); readkey; end.
3 program zadacha3; uses crt; var x, y: real; begin clrscr; write ('enter x: '); readln (x); x:=(x*pi)/180; y:=sin(x)/cos(x) + 0.25; writeln ('y=', y:0:4); readkey; end.
4 program zadacha4; uses crt; var x, y, z: integer; begin clrscr; write ('enter x, z'); readln (x, z); y:=abs(x)+2*abs(z); writeln ('y=', y:0:4); readkey; end.
a : array [1..6, 1..7] of Integer;
i, e, col, row : Integer;
begin
for i := 1 to 6 do
for e := 1 to 7 do
a[i, e] := Random(100);
for i := 1 to 7 do col := col + a[2, i];
for i := 1 to 6 do row := row + a[i, 3];
if col > row then Writeln('2-го столбца');
if col < row then Writeln('3-ей строки');
if col = row then Writeln('равны');
Readln;
end.