Иды информационных процессов
Среди всех информационных процессов можно выделить наиболее общие.
К ним относятся:
- получение,
- передача,
- хранение
- обработка информации.
Эти процессы являются базовыми.
Их выполнение порождает другие информационные процессы.
Так, например,
- получение информации может быть связано с её поиском, хранение — с накоплением;
- при передаче информации необходимо позаботиться о её защите от разрущающих воздействий.
Все процессы требуют той или иной формы представления информации, определяет которую процесс — кодирование. Он сопровождает все остальные процессы и является связующим звеном между ними.
Информационные процессы не изолированы, а протекают циклично в единстве и взаимосвязи друг с другом.
1. Объект - любая часть окружающей действительности, воспринимаемой человеком как единое целое
2. Объекты бывают: предметы, явления, процессы
3. Объекты предметы: телевизор, портфель, трактор
4. Объекты процессы: рисование, свечение, строительство
5. Объекты явления: землетрясение, шторм, наводнение
6. Каждый объект имеет имя, которое отличает его от других объектов
7. Имена бывают общие, единичные, собственные
8. Общие имена: вокзал, морс, горы
9. Каждый объект имеет имя, которое позволяет отличать его от других предметов
10. <span>Европейский город - общее имя
</span>11. Собака Шарик - имя собственное
12. Берлин в Германии - единичное имя
Var
d, a, b, c, x1, x2: real;
begin
writeln('Введите a, b, c');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x2:2:2);
end
else if d = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:2:2);
end
else
writeln('Нет действительных корней');
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function MaxDigit(n:integer):integer;
begin
Result:=0;
while n>0 do begin
var m:=n mod 10;
if m>Result then result:=m;
n:=n div 10
end
end;
begin
var n1,n2:integer;
Write('Введите через пробел два натуральных числа: ');
Read(n1,n2);
Writeln('s=',MaxDigit(n1)+MaxDigit(n2))
end.
<u><em>Тестовое решение</em></u>
Введите через пробел два натуральных числа: 53252 4654083
s=13
Блок схема, Текст программы и Скриншот работы в приложениях.