Процессы: Хранения Передачи и Обработки информации (данных)
1. в Природе:
1) Хранение Информации - Существует теория о том что вода умеет хранить информацию, Животные так же владеют памятью к примеру кошка или собака всегда смодет найти дорогу домой или то что они запоминают твоё и своё имя ( чаще своё ), волки помнят всех своих волков из своей стаи и так же помнят где находться ихняя територия, попугаи запоминают множество слов и т.д.
2) Передача Информации - Всем животным по наследству передаётся какая то информация, условные рефлексы... Животные могут передавать информацию друг другу тоже к примеру сурикаты передают информацию на расстоянии о угрозе противника с помощью каких то своих условных сигналов...
3) Обработка Информации - Животные могут обрабатывать информацию последством атого же зрения к примеру: различать цвета, распозновать хищников, находить себе пищу...
2. В Обществе ( В каком смысле в Обществе У людей ? Или что то другое...)
3. В Технике:
1) Хранение информации - Технике иинформация хранится на различных носителях к примеру: жёсткий диск или карта памяти или микросхема, чипсет...
2) Передача Инфорации - Техническая Передача Информации происходит посредством Телефонной Сети (Телефонные разговоры), Интернет, Bluetooth, Wi-Fi, <span> IrDA (</span><span>ИК-порт), NFC и т.д. ...</span>
<span>3) Обработка Информация - Обработка Информация в Технике может проходить посредством: Обработки графической информации к примеру Видеокарта обрабатывает цифровую информацию и воспроизводит её графически на нашем мониторе, дисплее, или Телефоная Связь Телефон записывает наш звук - речь и кодирует её в спец сигнал и после декадирует в трубке сабеседника...</span>
Unit proect;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries,Forms,
Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Chart1: TChart;
Image5: TImage;
Image6: TImage;
Label14: TLabel;
Label15: TLabel;
SinSeries2: TLineSeries;
CosSeries2: TLineSeries;
Edit3: TEdit;
Edit4: TEdit;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Shape1: TShape;
SinSeries: TLineSeries;
CosSeries: TLineSeries;
SinCosSeries: TLineSeries;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
N = 100;
MIN = -5;
MAX = 5;
var
x, step: Double;
a, b, c, d, i: Integer;
begin
//чистка предыдущих графиков
//считываем переменные
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
d := StrToInt(Edit4.Text);
step := (MAX - MIN) / N;
x := MIN;
repeat
//Рисуем графики
SinSeries.AddXY(x, a * x + b);
CosSeries.AddXY(x, d * x * x);
SinCosSeries.AddXY(x, c / x);
SinSeries2.AddXY(x, sin(x));
CosSeries2.AddXY(x, cos(x));
//следующий
x := x + step;
until x > MAX;
end;
end.
6 файлов размером 200кб займут на дискете 1200кб = 1,2мб