<span>Клод Шеннон- основатель теории информации. Прожил достаточно долгую жизнь(1916-2001) Учённый,американский математик приложил свои руки к инженерии,кибернетики,электротехнике и теории информации. Мировую известность ему принесли "теории связи кодирования" Его отец ввёл понятие "бит"-как информационной единицы измерения. За свои неоценимые заслуги в революционных разработках отмечен многими наградами и премиями, в том числе и Нобелевской премией. </span>
Очевидно выражение такое: y = cos(2x)+sin(x/4)
Получим линейный алгоритм:
var x,y:real;
begin
writeln('Введите Х');
readln(x);
y:=cos(2*x)+sin(x/4);
writeln(y);
end.
… ( , . ? - ) :
возможно ещё несколько вариантов
Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>
Var A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
<span>end.
</span>