Антивирусы. Специализированные программы для выявления и устранения вирусов. Чаще всего используют поиск заданных участков кода — сигнатур. Выполняются в виде “Фагов” (программ проверки) и “Мониторов” (программ, контролирующих операции с файлами и проверяющих изменения).
Специализированный фильтр — программа, контролирующая сообщения, которыми пользователь обменивается с сети. Она, например, проверяет получаемые и отправляемые письма или web-страницы.
2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)
uses Crt; const nn=100; var i,n,min:integer; a:array[1..nn] of integer; begin ClrScr; Randomize; Write('n='); Read(n); min:=100; for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]<min then min:=a[i] end; Writeln; for i:=1 to n do if a[i]<0 then a[i]:=a[i]*min; for i:=1 to n do Write(a[i],' '); Writeln; ReadKey end.
Программа считывает строку с клавиатуры, разбивает ее на числа (их может быть больше двух) и суммирует все найденные числа. Программа работает только с суммой, для выполнения других действий, необходима доработка.
Код: procedure calculateSum(str : string);var s0 : string; number, sum : real;begin sum := 0; foreach s0 in Regex.Split(str, '\++') do begin number := StrToFloat(s0); if (number > 0) then begin sum := sum + number; end; end; writeln(str + '=' + sum);end; var s : string;begin write('Введите пример: '); readln(s); calculateSum(s); end.
Антивирусы. Специализированные программы для выявления и устранения вирусов. Чаще всего используют поиск заданных участков кода — сигнатур. Выполняются в виде “Фагов” (программ проверки) и “Мониторов” (программ, контролирующих операции с файлами и проверяющих изменения).
Специализированный фильтр — программа, контролирующая сообщения, которыми пользователь обменивается с сети. Она, например, проверяет получаемые и отправляемые письма или web-страницы.