З метою зберігання, передавання, опрацювання, захисту повідомлень часто змінюють б їх подання.
Усні повідомлення записують на папері, замінюючи звуки людської мови літерами алфавіту. При цьому виконується збереження повідомлень. Під час розмови по телефону звуки перетворюються на електричні сигнали. Це робить можливим передавання повідомлень на великі відстані. Розв’язуючи задачу на уроці математики, слова, що позначають числа, записують цифрами, а математичні операції – спеціальними знаками. Це спрощує виконання операцій з опрацювання повідомлень. Для захисту змісту повідомлень від сторонніх осіб проводять шифрування, замінюючи літери в тексті повідомлення іншими літерами, числами або умовними позначеннями.
Код (лат. codex – книга) – система умовних знаків, сигналів для передавання, опрацювання та збереження повідомлень.
Кодування повідомлень — це процес перетворення за певними правилами одного подання набору даних в інший. Під час кодування повідомлення відбувається зміна вигляду повідомлення без зміни його змісту.
Кодування – це перетворення повідомлень у зручну для передавання, зберігання опрацювання форму.
Декодування – це перетворення закодованого повідомлення у форму, прийнятну для приймача.
Объяснение:
Площадь параллелограмма:
program chet;
var
sq, a , b : integer;
begin
writeln('Введите стороны параллелограмма ');
readln(a,b);
sq := a * b;
writeln('Площадь параллелограмма равна ', sq);
end.
Площадь трапеции:
program chet;
var
sq,h, a , b : real;
begin
writeln('Введите длину оснований ');
readln(a,b);
writeln('Введите высоту трапеции');
read(h);
sq := (a+b)/2 * h;
writeln('Площадь трапеции равна ', sq);
end.
Площадь круга:
program chet;
const
PI = 3.14;
var
sq,r : real;
begin
writeln('Введите радиус круга');
readln(r);
sq := PI * sqr(r);
writeln('Площадь круга равна ', sq);
end.
И площадь ромба:
program chetdsa;
var
sq,d,g : real;
begin
writeln('Введите чему равны диагонали ромба');
readln(d,g);
sq := (d*g)/ 2;
writeln('Площадь ромба равна ', sq);
end.
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.