А) Ваня решает у доски задачу; Хранение информации (в мозге Вани) Обработка информации (оперирование исходной информацией для получения новой по определенным правилам) Передача информации (От Вани – классу, используя доску)
б) Оля слушает по радио новости; Передача информации (от радио – Оле, используя динамики) Хранение информации (в мозге Оли)
в) Дима учит правило; Хранение информации (внешняя память, книга) Передача информации (от книги – Диме, используя текст) Хранение информации (в мозге)
г) Саша и Вова разговаривают по телефону; Хранение информации (в мозге у Саши) Передача информации (от Саши – Вове, используя телефон) Хранение информации (в мозге у Вовы)
д) Женя отправляет SMS-сообщение; Хранение информации (в мозге у Жени) Передача информации (от Жени – получателю, используя телефон) Обработка информации (кодирование по каналу связи, декодирование) Хранение информации (во внутренней памяти телефона у получателя)
<span>е) Лена рисует план квартиры. </span> Хранение информации (в мозге у Лены) Обработка информации (структурирование, математические расчеты) <span>Хранение информации (внешняя память, лист бумаги/холст)</span>
Примечание: Уравнение окружности имеет вид: Решение: Рассмотрим 3 случая: 1) <em>Точка лежит внутри окружности. </em>Пусть даны координаты точки x и y. Если их сумма квадратов не превышает квадрата радиуса, т.е.:
3) <em>Точка лежит вне окуржности </em>Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
Программа: program zadacha_1; var x,y,r:real; begin writeln('Введите координаты точки'); readln(x,y); writeln('Введите радиус окружности'); readln(r); if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности') else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности') else writeln('Точка вне окружности'); end.
1) Ввод чисел в массив: program vvod_mass; var a: array[1..12] of integer; i: integer; begin for i:=1 to 12 do begin write('a[', i, ']='); readln(a[i]); end; end. 2) program otric; var a: array[1..10] of integer; i,n: integer; begin randomize; for i:=1 to 10 do begin a[i]:=-10+random(21); writeln(a[i]); end; for i:=1 to 10 do if a[i]<0 then inc(n); write('Кол-во отрицательных чисел массива: ', n); end. 3) program chetniy; var a: array[1..8] of integer; i,n: integer; begin randomize; for i:=1 to 8 do begin a[i]:=-10+random(21); writeln(a[i]); end; for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n); write('Кол-во отрицательных чисел массива: ', n); end.