А) Ваня решает у доски задачу; Хранение информации (в мозге Вани) Обработка информации (оперирование исходной информацией для получения новой по определенным правилам) Передача информации (От Вани – классу, используя доску)
б) Оля слушает по радио новости; Передача информации (от радио – Оле, используя динамики) Хранение информации (в мозге Оли)
в) Дима учит правило; Хранение информации (внешняя память, книга) Передача информации (от книги – Диме, используя текст) Хранение информации (в мозге)
г) Саша и Вова разговаривают по телефону; Хранение информации (в мозге у Саши) Передача информации (от Саши – Вове, используя телефон) Хранение информации (в мозге у Вовы)
д) Женя отправляет SMS-сообщение; Хранение информации (в мозге у Жени) Передача информации (от Жени – получателю, используя телефон) Обработка информации (кодирование по каналу связи, декодирование) Хранение информации (во внутренней памяти телефона у получателя)
е) Лена рисует план квартиры. Хранение информации (в мозге у Лены) Обработка информации (структурирование, математические расчеты) Хранение информации (внешняя память, лист бумаги/холст)
Const n=8; var aNam, aFam, aDat: array[1..n] of string; i: integer;
begin aNam[1]:='Олег'; aFam[1]:='Бубенков'; aDat[1]:='1993'; aNam[2]:='Игорь'; aFam[2]:='Бросов'; aDat[2]:='1991'; aNam[3]:='Тимур'; aFam[3]:='Наружный'; aDat[3]:='1961'; aNam[4]:='Анастасия'; aFam[4]:='Боброва'; aDat[4]:='1985'; aNam[5]:='Михаил'; aFam[5]:='Тапаров'; aDat[5]:='1957'; aNam[6]:='Евгений'; aFam[6]:='Костарева'; aDat[6]:='1992'; aNam[7]:='Мария'; aFam[7]:='Никитин'; aDat[7]:='1977'; aNam[8]:='Ксения'; aFam[8]:='Бабенкова'; aDat[8]:='1978'; writeln('Лица, чьи фамилии начинаются на букву "Б"'); for i := 1 to n do if aFam[i][1] = 'Б' then writeln(aNam[i],' ',aFam[i], ' (', aDat[i], ')') end.
тестовый прогон:
Лица, чьи фамилии начинаются на букву "Б" Олег Бубенков (1993) Игорь Бросов (1991) Анастасия Боброва (1985) Ксения Бабенкова (1978)
Возможна также более "современная" запись программы
const n = 8;
type tP = record Nam: string; Fam: string; Dat: string end;
var M: array[1..n] of tP; i: integer;
begin with M[1] do begin Nam := 'Олег'; Fam := 'Бубенков'; Dat := '1993' end; with M[2] do begin Nam := 'Игорь'; Fam := 'Бросов'; Dat := '1991' end; with M[3] do begin Nam := 'Тимур'; Fam := 'Наружный'; Dat := '1961' end; with M[4] do begin Nam := 'Анастасия'; Fam := 'Боброва'; Dat := '1985' end; with M[5] do begin Nam := 'Михаил'; Fam := 'Тапаров'; Dat := '1957' end; with M[6] do begin Nam := 'Евгений'; Fam := 'Костарева'; Dat := '1992' end; with M[7] do begin Nam := 'Мария'; Fam := 'Никитин'; Dat := '1977' end; with M[8] do begin Nam := 'Ксения'; Fam := 'Бабенкова'; Dat := '1978' end; writeln('Лица, чьи фамилии начинаются на букву "Б"'); for i := 1 to n do With M[i] do begin if Fam[1] = 'Б' then writeln(Nam, ' ', Fam, ' (', Dat, ')') end end.
1024 байт = 1 кб
800 бит = 100 байт
64 бита = 8 байт
0,5 кб = 512 байт