{$APPTYPE CONSOLE} Const n = 13; Type Mass = array[1..n] of integer;
Procedure BbIBOD(Var A:Mass); Var i:integer; Begin For i:= 1 to n do Write(' ',A[i]) End;
Function SWP(Var A:Mass; c:real):integer; Var i,j:integer; Begin For i:= 1 to n do if (A[i] < 0)and(A[i] <= c) then j:=i; if j <> 0 then Begin WriteLn('Искомый элемент: ',A[j],'[',j,']'); A[j]:=Sqr(A[j]); i:=A[n-1]; A[n-1]:=A[j]; A[j]:=i; Write('Новый массив:'); BbIBOD(A); End else Write('В массиве нет отрицательных элементов') End;
Var A:Mass; i:integer; c:real; Begin Randomize; Write('Исходный массив(',n,'):'); For i:= 1 to n do A[i]:=random(2*n+1)-n; BbIBOD(A); WriteLn; Write('Введите число: '); ReadLn(c); SWP(A,c); ReadLn End.
Алгебра высказываний является составной частью одного из современных быстро развивающихся разделов математики - математической логики. Математическая логика применяется в информатике, позволяет моделировать простейшие мыслительные процессы. Одним из занимательных приложений алгебры высказываний - решение логических задач.В логических задачах исходными данными являются не только и не столько числа, а сложные логические суждения, подчас весьма запутанные. Эти суждения и связи между ними бывают иногда столь противоречивы, что для их разрешения привлекают вычислительные машины.Для решения экономической задачи в практической части была выбрана среда табличного процессора MS Excel