Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Матрица состоит из строк и столбцов. Таким образом, каждый элемент матрицы определяется двумя координатами: номером строки и столбца, на пересечении которых он находится. Поэтому матрица является двумерным массивом, в отличие от линейного массива, который называется одномерным.

Элемент матрицы А, находящийся на пересечении i-ой строки и j-ого столбца, обозначается:

 

А[ i, j ] .

ОПИСАНИЕ МАТРИЦЫ В ПРОГРАММЕ

Матрица, как и одномерный массив, описывается в программе в разделе описания переменных VAR с помощью служебного слова ARRAY.

 

VAR имя_массива:ARRAY[1..n,1..m] OF тип;

где n - число строк,

m - число столбцов,

тип - тип элементов матрицы.

Размерность матрицы равняется числу элементов матрицы, т. е. n ´ m.

ОПЕРАЦИИ НАД ВСЕЙ МАТРИЦЕЙ

Поскольку матрица является двумерным массивом, т.е. изменение идет и номера строки и номера столбца, то при работе со всей матрицей используют два цикла (один - по строкам, другой - по столбцам), которые "вкладывают" друг в друга. Такие циклы называются вложенными.

1. ВВОД МАТРИЦЫ.

Пример: ввести матрицу 6 ´ 8.

for i:=1 to 6 do {цикл по строкам}

for j:=1 to 8 do {цикл по столбцам}

read(a[i, j]);

При вводе матрицу удобнее набирать на экране по строкам, после каждой строки нажимая клавишу ENTER.

2. ВЫВОД МАТРИЦЫ_.

При выводе матрица должна сохранять свой первоначальный вид.

Пример: вывести на экран матрицу 6´8.

for i:=1 to 6 do begin

for j:=1 to 8 do write(a[i, j]);

НЕ нашли? Не то? Что вы ищете?

writeln; {переход на новую строку}

end;

3. ВЫЧИСЛЕНИЕ СУММЫ ВСЕХ ЭЛЕМЕНТОВ МАТРИЦЫ.

Пример:вычислить сумму всех элементов матрицы 6 ´ 8.

program prim;

var a:array[1..6,1..8] of real;

i, j:integer;s:real;

begin

for i:=1 to 6 do

for j:=1 to 8 do read(a[i, j]);

s:=0;

for i:=1 to 6 do

for j:=1 to 8 do s:=s+a[i, j];

writeln('сумма=',s);

end.

ОПЕРАЦИИ С ОТДЕЛЬНОЙ СТРОКОЙ ИЛИ СТОЛБЦОМ МАТРИЦЫ

Отдельную строку или столбец матрицы можно рассматривать как линейный массив, поэтому при программировании используется один цикл (если операция со строкой, то цикл организуется по столбцам и наоборот).

Примеры:

1. Вычислить сумму элементов 3-го столбца матрицы 6 ´ 8 .

s:=0;

for i:=1 to 6 do s:= s+a[i,3];

2. Вычислить максимальный элемент 3-й строки матрицы 6 ´ 8.

max:=a[3,1];

for j:=1 to 8 do

if max<a[3,j] then max:=a[3,j];

3. ОПЕРАЦИИ С КВАДРАТНОЙ МАТРИЦЕЙ.

Матрица называется квадратной , если число строк и столбцов совпадает. В квадратной матрице, кроме строк и столбцов, еще различают главную и побочную диагонали:

побочная диагональ главная диагональ

Главную и побочную диагональ тоже можно рассматривать как линейный массив. При программировании операций с диагоналями используются следующие формулы общего элемента:

главная диагональ : A[i, i]

побочная диагональ A[i, n+1-i] ,

где i - текущий номер строки(столбца),

n - количество строк(столбцов) матрицы.

Пример: вычислить произведение элементов побочной диагонали

матрицы 6 ´ 6.

p:=1;

for i:=1 to 6 do p:=p*a[i,7-i];

СМЕШАННЫЕ ОПЕРАЦИИ НАД МАТРИЦАМИ

Примеры:

1. Вычислить сумму элементов строк с четными индексами матрицы 6 ´ 8.

.

.

.

1 способ.

s:=0;

for i:=1 to 3 do

for j:=1 to 8 do s:=s+a[i*2,j];

2 способ.

s:=0;

i:=2;

repeat

for j:=1 to 8 do s:=s+a[i, j];

i:=i+2;

until i>6;

2. Вычислить сумму элементов каждой строки матрицы 6 ´ 8.

1 способ. Сумма элементов каждой строки запоминается в соответствующем элементе дополнительного одномерного массива S.

® s[1]

® s[2]

® s[3]

® s[4]

® s[5]

® s[6]

program prim;

var a:array[1..6,1..8] of real;

s:array[1..6] of real;

i, j:integer;

begin

for i:=1 to 6 do

for j:=1 to 8 do read(a[i, j]);

for i:=1 to 6 do begin

s[i]:=0;

for j:=1 to 8 do s[i]:=s[i]+a[i, j];

end;

for i:=1 to 6 do writeln( 'сумма ', i, '-й строки = ' , s[i]);

end.

2 способ. Сумму каждой строки можно не накапливать, а сразу выводить на печать.

® печать

® печать

® печать

® печать

® печать

® печать

program prim;

var a:array[1..6,1..8] of real;

s: real;

i, j:integer;

begin

for i:=1 to 6 do

for j:=1 to 8 do read(a[i, j]);

for i:=1 to 6 do begin

s:=0;

for j:=1 to 8 do s:=s+a[i, j];

writeln( 'сумма ' , i, '-й строки= ' , s);

end;

end.

ЗАДАЧИ

1. Вычислить

2. Вычислить

3. Вычислить

4. Вычислить

5. Найти максимальный элемент матрицы 6´5.

6. Определить индексы максимального элемента матрицы 6´5.

7. Вычислить сумму положительных элементов 3-го столбца матрицы 6´5.

8. Определить количество отрицательных элементов 3-й строки матрицы 6´5.

9. Определить, есть ли на главной диагонали матрицы 6´6 нулевые элементы.

10. Заменить все отрицательные элементы побочной диагонали матрицы 6´6 нулями.

11. Вычислить .

12. Вычислить максимальный элемент каждой строки матрицы 5´6.

13. Вычислить сумму элементов диагоналей матрицы 5´5.

14. Определить :

а) среднее арифметическое минимального и максимального элементов матрицы 5´6 ;

б) количество элементов матрицы, превосходящих это среднее арифметическое.

15. Определить сумму элементов матрицы 5´5, находящихся над главной диагональю.

16. В матрице 10´10 поменять местами элементы 3-его столбца и 3-ей строки.

17. Определить количество четных элементов матрицы 6´10.

18. Вычислить .

19. Вычислить минимальный элемент каждой строки матрицы 6´10.

20. Вычислить сумму максимальных элементов столбцов матрицы 6´10.

21. Поменять местами минимальный и максимальный элементы матрицы 7´12.

22. Вычислить сумму элементов матрицы, находящихся на фигуре:

1 11

 

(6,6)

11

23. Дана матрица 7´8.Определить номер столбца с минимальной суммой элементов.

24. Определить количество положительных элементов матрицы 5´8.

25. Вывести на экран строки матрицы 5´6, не содержащие нули.

26. В матрице 10´20 найти количество всех элементов, меньших заданного Т.

27. Сформировать матрицу 10´10 по следующему правилу: элементы главной диагонали приравнять 1, ни-

же главной диагонали - 0, а выше - сумме индексов.

28. Сформировать матрицу С 10´10 , где при i ³ j и при i<j.

29. В матрице 10´15 поменять нумерацию элементов, т. е. .

30. Переформировать двумерный массив 10´10 таким образом, чтобы строки нового массива располагались

по возрастанию их поэлементных сумм.

31. Дана матрица 10´10. Найти произведение суммы элементов главной диагонали на сумму элементов

первой строки этой матрицы.

32. Преобразовать матрицу 10´15, разделив все элементы этой матрицы на величину, которая является

максимальной суммой элементов ее строк.

33. Преобразовать матрицу 10´15, разделив элементы каждой строки на величину, равную среднему зна-

чению положительных элементов этой же строки.

34. В матрице 10´10 поменять местами элементы строки и столбца, на пересечении которых находится ми-

нимальный из положительных элементов.

35. Наименьший элемент каждой строки матрицы 10´12 , начиная со второй, заменить наибольшим эле-

ментом предшествующей строки.

30.СИМВОЛЬНЫЕ ПЕРЕМЕННЫЕ

Символьные переменные служат для хранения одного символа.

ОПИСАНИЕ СИМВОЛЬНОЙ ПЕРЕМЕННОЙ

Символьные переменные описываются в разделе описаний VAR следующим образом:

 

VAR имя:CHAR;

Пример: VAR a:CHAR;

ПРИСВОЕНИЕ ЗНАЧЕНИЙ СИМВОЛЬНЫМ ПЕРЕМЕННЫМ

Примеры: a:='h';

b:='+';

c:='1';

ВВОД СИМВОЛЬНЫХ ПЕРЕМЕННЫХ

Символьные переменные вводятся с помощью оператора READ или READLN.

При вводе значения символьных переменных располагаются без пробела друг от друга.

Примеры: read(a, b,c);

1) строка ввода : KOT

результат : переменная А получит значение "К"

переменная В получит значение "О"

переменная С получит значение "Т"

2) строка ввода : К_О_Т

результат : переменная А получит значение "К"

переменная В получит значение " "

переменная С получит значение "О"

ВЫВОД СИМВОЛЬНЫХ ПЕРЕМЕННЫХ

Вывод символьных переменных осуществляется так же, как и числовых переменных, например: write(a);

МАССИВЫ СИМВОЛЬНЫХ ПЕРЕМЕННЫХ

Если в программе требуется работать с целыми словами или предложениями, то используется массив символьных переменных (слово состоит из букв, каждая буква - символьная переменная, отсюда следует, что слово - массив символьных переменных).

ОПИСАНИЕ МАССИВА СИМВОЛЬНЫХ ПЕРЕМЕННЫХ

Массив символьных переменных описывается в разделе описаний VAR с помощью служебного слова ARRAY.

 

VAR имя:ARRAY[1..n] OF CHAR; ,

где имя - имя массива символьных пременных;

n - число символов в массиве (букв в слове), если заранее количество символов неизвестно,

то можно брать максимально возможное (например, для слова - 40).

ВВОД МАССИВА СИМВОЛЬНЫХ ПЕРЕМЕННЫХ

При вводе массива символьных переменных анализируют символ конца строки ввода(позиция в строке, на которой находился курсор, когда нажали клавишу ENTER).Символ конца строки ввода в Паскале имеет обозначение EOLN ( End Of LiNe ).

Тогда ввод массива символьных переменных осуществляется следующим блоком операторов:

i:=1; {счетчик символов}

while not eoln do begin {пока не EOLN}

read(a[i]);{ввод i-го символа}

i:=i+1;

end;

l:=i-1; {длина введенной информации}

ВЫВОД МАССИВА СИМВОЛЬНЫХ ПЕРЕМЕННЫХ

Вывод массива символьных переменных может осуществляться двумя способами:

1) for i:=1 to l do write(a[i]);

фактическая длина массива, рассчитанная при вводе

2) write(a);

СРАВНЕНИЕ МАССИВА СИМВОЛЬНЫХ ПЕРЕМЕННЫХ И СТРОКОВОЙ КОНСТАНТЫ

Сравнение массива символьных переменных и строковой константы осуществляется посимвольно.

Пример: Написать оператор сравнения символьного массива А и слова "кот".

if (a[1]='к') and (a[2]='о') and (a[3]='т') then...

Задача. Подсчитать количество букв "о" в введенном слове.

program prim;

var i, s,l:integer;

a:array[1..40] of char;

begin

writeln('введи слово');

i:=1;

while not eoln do begin

read(a[i]); i:=i+1; end;

l:=i-1; {длина слова }

readln; {закрыть строку ввода}

s:=0;

for i:=1 to l do if a[i]='o' then s:=s+1;

writeln('букв "о" в слове =',s);

end.

Задача. В введенном слове поменять местами первую и последнюю буквы. Работу закончить, если введено слово “end”.

program prim;

var a:array[1..40] of char;

i, l:integer;

c:char;

label 1,2;

begin

1: writeln(‘введите слово’);

i:=1;

while not eoln do begin

read(a[i]); i:=i+1; end; readln; l:=i-1;

c:=a[1]; a[1]:=a[l]; a[l]:=c;

writeln(a);

if (a[1]=‘e’) and (a[2]=‘n’) and (a[3]=‘d’) then goto 2 else goto 1;

2: end.

31. СТРОКОВЫЕ ПЕРЕМЕННЫЕ

Для упрощения работы с массивами символьных переменных существуют строковые переменные, содержащие от 0 до 255 символов.

ОПИСАНИЕ СТРОКОВОЙ ПЕРЕМЕННОЙ

Описание строковой переменной осуществляется в разделе VAR с помощью служебного слова STRING.

 

VAR имя:STRING[длина]; ,

где имя - имя строковой переменной;

длина - максимальное количество символов в строковой переменной, фактически может

быть меньше.

Длину можно не указывать, тогда она считается равной 255 :

VAR a:string;

ПРИСВОЕНИЕ ЗНАЧЕНИЙ СТРОКОВЫМ ПЕРЕМЕННЫМ

Примеры: а:='школа';

b:='12345';

c:='';пустая строка, т. е. не содержит ни одного символа.

ВВОД СТРОКОВОЙ ПЕРЕМЕННОЙ

Осуществляется так же, как и ввод числовых переменных:

READLN(A);

ВЫВОД СТРОКОВЫХ ПЕРЕМЕННЫХ

Осуществляется так же, как и вывод числовых переменных:

WRITELN(A);

КОНКАТЕНАЦИЯ (СОЕДИНЕНИЕ) СТРОК

Конкатенация строк осуществляется с помощью знака "+" .

Пример: b:='Cидоров';

c:='Петя';

a:=c+' '+b;

в результате "а" получит значение "Петя Сидоров".

ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ СО СТРОКОВЫМИ ПЕРЕМЕННЫМИ

1. LENGTH - определение фактической длины строки.

 

обращение : имя:=length(строка);

Пример: h:='паровоз';

n:=length(h);

в результате "n" будет равно 7.

Задача. Определить количество букв "о" во введенном слове.

program prim;

var a:string;

l, i,s:integer;

begin

readln(a);

l:=length(a);

s:=0;

for i:=1 to l do

if a[i]='o' then s:=s+1;

writeln('количество букв о =',s);

end.

2. COPY - выделение части строки.

 

обращение : имя:=сopy(cтрока, нач. позиция, к-во_символов)

Пример. a:='паровоз';

b:=copy(a,3,3); {выделяем из строки А начиная с 3-го символа 3 символа}

в результате "b" будет равно "ров".

3. DELETE - удаление части строки.

 

обращение : delete(строка, нач. позиция, к-во_символов)

Пример. a:='паровоз';

delete(a,3,2); {удаляем из строки А начиная с 3-го символа 2 символа}

в результате "а" будет равно "павоз".

4. INSERT - вставка символов в строку.

 

обращение : insert(набор_символов, строка, позиция_вставки)

Пример. a:='паоз';

b:='ров';

insert(b, a,3); {набор символов из переменной "b" вставляется в строку "а"

начиная с 3-й позиции}

в результате "а" примет значение "паровоз"

5. POS - поиск подстроки в строке.

 

обращение : имя:=pos(подстрока, строка)

Ищется указанная подстрока в строке. Результат будет равен номеру первого символа строки, с которого обнаружено первое вхождение подстроки. Если подстрока не обнаружена, то результат будет равен 0.

Примеры: a:='паровоз';

1) n:=pos('o',a);

в результате "n" будет равно 4.

2) n:=pos('у',a);

в результате "n" будет равно 0.

6. STR - преобразование числового значения в строковое.

 

обращение : STR(число, строка);

Пример: var n:integer; a:string;

begin

n:=13;

str(n, a);

в результате переменная "а" получит значение '13' .

7. VAL - преобразование строкового значения в числовое.

 

обращение : VAL(строка, число, номер_неправ. символа)

номер_неправ. символа - переменная, в которую запоминается номер неправильного символа, в случае, если строковое значение нельзя перевести в числовое.

Пример. var n, k:integer;a:string;

begin

a:='13';

val(a, n,k);

в результате переменная "n" получит значение 13.

ЗАДАЧА. Составить программу, которая в введенном слове после каждой буквы А вставляет знак "-". Если букв А в слове нет, то программа работу заканчивает.

1 способ. Изменения происходят в том же введенном слове.

program prim;

var a:string;s, i,l:integer;

label 1,2;

begin

1:writeln('введи слово');

readln(a);

l:=length(a);

s:=0; {счетчик количества букв А}

i:=1; {берем первую букву}

repeat

if a[i]='a' then begin s:=s+1;

insert('-',a, i+1); {вставляем знак "-" после i-й буквы }

i:=i+1; { порядковый номер этого знака "-" в слове }

l:=l+1; { увеличиваем длину слова, т.к. вставили в него знак "-" }

end;

i:=i+1; {берем следующую букву в слове }

until i>l;

writeln('к-во букв "а" в слове =',s);

if s=0 then goto 2

else begin

writeln(a);

goto 1;

end;

2:end.

2 способ. Введенное слово остается неизмененным, а результат "собирается" в дополнительной строковой переменной.

program prim;

var a, b:string;

s, i,l:integer;

label 1,2;

begin

1: writeln('введи слово');

readln(a);

l:=length(a);

i:=pos('a',a); {определяем, есть ли буква "а" в слове}

if i=0 then goto 2;

s:=0; {счетчик букв "а" в слове }

b:=''; {строка-результат пока пустая}

for i:=1 to l do begin

b:=b+a[i]; { в строку "b" добавили i-ю букву из введенного слова }

if a[i]='a' then begin s:=s+1;

b:=b+'-'; { в строку "b" добавили знак "-" }

end;

end;

writeln('количество букв А в слове =',s);

writeln(b);

goto 1;

2:end.

32. РАБОТА С ФРАЗАМИ

Фразой называется набор слов, разделенных одним или несколькими пробелами.

В большинстве случаев, если в программе нужно сделать какой - либо анализ введенной фразы, то ее необходимо предварительно разбить на слова.

АЛГОРИТМ РАЗБИВКИ ФРАЗЫ НА СЛОВА

Пусть S - введенная фраза, тогда для хранения отдельных слов фразы заведем массив B.

var s:sring; b:array[1..40] of string;{считаем, что больше 40 слов в фразе не будет}

i, j:integer;

label 1,2;

begin

readln(s);

j:=1; {текущий номер слова в фразе}

1: i:=pos(' ',s); { есть ли в фразе пробелы?}

if i=0 then {пробелов нет, т.е. в фразе только одно слово}

begin b[j]:=s;goto 2; end;

if i=1 then {фраза начинается с пробела, его нужно удалить}

begin delete(s,1,1);goto 1;end;

if i<>1 then {пробел в фразе есть, но не на первом месте, выделяем слово с начала фразы и

удаляем его из фразы}

begin b[j]:=copy(s,1,i-1);

delete(s,1,i-1);j:=j+1;goto 1; end;

2: ......

ЗАДАЧА. Составить программу, которая в введенной фразе удаляет самое короткое слово. Программа работу заканчивает, если фраза состоит из одного слова.

program prim;

var s:string; b:array[1..40] of string;

l:array[1..40] of integer;

i, min, j,k:integer;

label 1,2;

begin

readln(s);

{ разбивка фразы на слова }

j:=1;

1:i:=pos(' ',s);

if i=0 then begin b[j]:=s;goto 2;end;

if i=1 then begin delete(s,1,1);goto 1;end;

if i<>1 then begin b[j]:=copy(s,1,i-1);delete(s,1,i-1);

j:=j+1;goto 1;end;

2:if j>1 then {если в фразе больше одного слова}

begin

{определение длины каждого слова}

for i:=1 to j do l[i]:=length(b[i]);

{определение минимального элемента массива "l" и его индекса}

min:=l[1];k:=1;

for i:=2 to j do

if l[i]<min then begin min:=l[i];k:=i;end;

{ удалить слово из фразы - равносильно выводу ее на экран без этого слова}

for i:=1 to k-1 do write(b[i],' ');

for i:=k+1 to j do write(b[i],' ');

writeln;

end;

end.

ЗАДАЧА. Составить программу, которая слова введенной фразы преобразует следующим образом: в каждом слове после каждых двух букв вставляется символ "-".

program prim;

var s:string; b:array[1..40] of string;

i, j,k:integer;

label 1,2;

begin

readln(s);

{ разбивка фразы на слова }

j:=1;

1:i:=pos(' ',s);

if i=0 then begin b[j]:=s;goto 2;end;

if i=1 then begin delete(s,1,1);goto 1;end;

if i<>1 then begin b[j]:=copy(s,1,i-1);delete(s,1,i-1);

j:=j+1;goto 1;end;

2:for i:=1 to j do begin

s:=b[i]; {запоминаем слово в переменной S}

k:=1; {текущий номер буквы в слове }

repeat

write(s[k]); {выводим "к"-ю букву слова}

k:=k+1;

if k<=length(s) then {если в слове есть буква с номером "к"}

write(s[k]); { то выводим ее }

if k<>l then {если буква с номером "к" не последняя}

write('-'); {то выводим после нее "-"}

k:=k+1;

until k<>l;

write(' '); {вывод пробела между словами}

end;

end.

Примечание. Не во всех задачах с фразами нужно разбивать фразу на слова, например, задача: "подсчитать количество букв "о" в введенной фразе" не требует разбивки фразы на слова:

program prim;

var s:string;k, i,l:integer;

begin

readln(s);

l:=length(s);

k:=0;

for i:=1 to l do

if s[i]='o' then k:=k+1;

writeln('в фразе ',s,' букв "о" =',k);

end.

ЗАДАЧИ

1. Заменить в заданном слове все буквы "о" пробелами.

2. Выяснить, какая из букв: первая или последняя, встречается в заданном слове чаще.

3. Сколько букв "у" в слове стоит на четных местах?

4. Проверить, является ли данное слово "перевертышем".

5. Вычеркнуть из заданного слова все буквы, совпадающие с его последней буквой.

6. Список А содержит фамилии 20 учеников класса. Список В - их возраст. Вывести на экран фамилии

тех, кому больше 16 лет.

7. Задан список 20 областных центров России. Вывести на экран название города с максимальным коли-

чеством букв.

8. Даны два слова А и В. Можно ли из букв, входящих в слово А составить слово В?

9. Составить программу, которая введенное слово, если его длина меньше 10 символов, располагает по

центру поля, состоящего из 10 символов "-" .

10. Составить программу, которая в введенном слове меняет местами первую и последнюю буквы.

11. Вывести на экран первую половину введенного слова.

12. Удалить из слова первую и последнюю буквы.

13. Вставить в слово после первых двух букв знак "-".

14. Заменить в слове каждую четную букву на "*" .

15. Вывести введенное слово "наоборот" .

16. В введенном слове после каждой буквы вставить знак "-".

17. В слове заменить знаком "-" все буквы, кроме первой и последней.

33. МОДУЛЬ CRT

Для выполнения различных сервисных операций в TURBO PASCAL существуют библиотеки стандартных подпрограмм и данных ( модули ).

Модуль CRT предназначен для работы с клавиатурой, экраном в текстовом режиме и управления звуковыми сигналами. Для подключения модуля CRT к программе используется оператор

 

USES CRT,

который помещается в программу сразу после заголовка программы.

Для управления экраном в текстовом режиме используются следующие процедуры:

1) Процедура WINDOW - задание размеров окна.

 

Обращение: WINDOW(x1,y1,x2,y2);

x-позиция в строке

y-номер строки

 

(x1,y1)

 
1

Y

 
 

25

X

 
1 80

В Паскале весь ввод/вывод осуществляется в пределах некоторого окна экрана. По умолчанию этим окном считается весь экран:

WINDOW(1,1,80,25)

2) Процедура TEXTBACKGROUND - определение цвета фона окна.

Обращение: TEXTBACKGROUND(код);

код - код цвета фона ( 0-7 )

3) Процедура TEXTCOLOR - определение цвета символов в окне.

Обращение: TEXTCOLOR(код);

код - код цвета символа ( 0-15 )

4) Процедура CLRSCR - очистка окна и заполнение его цветом фона.

Обращение: CLRSCR;

Задача: Вывести на экране в разных цветах:

 

1) определение размеров

9

 

b

 

a

 
ab=cd=20

ac=bd=7

f

 

e

 
ef=hg=5

11

 
eh=fg=2

2) программа:

program color;

uses crt;

begin

{ определение всего экрана, фон-светлосерый }

window(1,1,80,25); textbackground(7);

clrscr;

{ определение 1-го окна, фон-красный }

window(27,9,46,15); textbackground(4);

clrscr;

{ определение 2-го окна, фон-черный }

window(47,11,51,15); textbackground(0);

clrscr;

end.


 


34. ИНФОРМАТИКА И ИНФОРМАЦИЯ


Информатика изучает методы представления, накопления, передачи и обработки информации с помощью компьютеров.

Что же такое информация ? Информация поступает по телефону, радио, телеграфу, телевидению, от бабушек во дворе. Она записыва - ется на магнитофонах, фотобумаге, передается человеческой речью, распространяется в виде документов, газет, книг. Информацию хранят в библиотеках, книгах. Ее сообщают нам измерительные приборы, вкус пищи, запахи, звуки музыки. Это все формы представления информации.

Информация - совокупность сведений об изучаемом объекте. С понятием "информация" тесно связано понятие "данные".

Данные - это величины, их отношения, факты, преобразование и обработка которых позволяет извлечь информацию, т. е. данные - это сырье для получения информации. Следовательно, обработка данных есть приведение их к такому виду, который наиболее удобен для получения из них информации.

Информация обладает рядом свойств, характерных для любой ее формы:

1) Ценность. Информация является ценной, если она важна и существенна для данного времени.

2) Полезность . Информация является полезной, если она уменьшает неопределенность знаний о чем-либо,

обеспечивает своевременность принятия конкретного решения или конкретного действия.

3) Полнота. Полнота информации характеризуется избыточностью, достаточностью или недостаточ-

ностью.

4) Истинность . По истинности информация может быть достоверной или недостоверной.

5) Ясность . Если ценная информация выражена непонятным языком, то она может оказаться бес-

полезной. Наоборот, если сложная информация представлена ясно и понятно, то это будет способ-

ствовать скорейшему ее уяснению и использованию.

Процессы, в которых участвует информация, называются информационными. Информационный процесс состоит из сбора, хранения, передачи, обработки и использования информации.

Глядя на дорогу, по которой мы идем, мы собираем информацию с помощью зрения. В нервной ткани глаза информация преобразуется и передается в зрительные отделы головного мозга. Здесь она подвергается дальнейшей обработке, и результат обработки немедленно используется: к нашим мышцам поступают сигналы, и мы обходим лужи, перешагиваем камни.

Другой пример – система терморегуляции. Наша кожа содержит 1300 тысяч клеток-датчиков, собирающих информацию о температуре тела. Собранная информация поступает в определенные участки головного мозга. Тут информация обрабатывается, и в случае необходимости либо интенсивнее прокачивается теплая кровь по сосудам (обогрев тела), либо усиливается потоотделение (охлаждение тела).

35. ЕДИНИЦЫ ИЗМЕРЕНИЯ ИНФОРМАЦИИ. КОЛИЧЕСТВО ИНФОРМАЦИИ

Человек всё любит измерять. И для информации придуманы единицы измерения. Некомпьютерная информация измеряется в количестве книг, страниц, знаков и т. д. Остановимся подробнее на измерении компьютерной информации.

Наименьшей единицей информации является бит (двоичный разряд), принимающий значения 1 или 0.

1 байт = 8 бит (1 символ клавиатуры соответствует 1 байту информации)

Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8