"смекалкин,уходя в школу,вшел из дому на 3 минут позже младшего брата. расстояние до школы s метров .смекалкин идет со скоростью v1 м/мин, а его брат -v2 м/мин .догонит ли смекалкин брата, прежде ,чем тот придет в школу? "
Визуальная информация воспринимается с глаз. Благодаря им в мозг человека поступают различные зрительные образы, которые затем там обрабатываются. Слух необходим для восприятия информации, поступающей в виде звуков (речи, шумов, музыки, сигналов). Органы осязания ответственны за возможность восприятия тактильной информации. Рецепторы, расположенные на коже, позволяют оценить температуру исследуемого объекта, тип его поверхности, форму. Вкусовая информация поступает в мозг от рецепторов на языке и преобразуется в сигнал, по которому человек понимает, какой это продукт: кислый, сладкий, горький или соленый. Обоняние также нам в познании окружающего мира, позволяя различать и идентифицировать всевозможные запахи. Главную роль в восприятии информации играет зрение. На него приходится около 90% полученных знаний. Звуковой восприятия информации (радиопередача, например) составляет около 9%, а остальные органы чувств отвечают всего за 1%. - Читайте подробнее на FB.ru: http://fb.ru/article/187059/tipyi-i-sposobyi-vospriyatiya-informatsii
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var k:=ReadInteger('Введите 1<k<=n:'); if (k>n) or (k<1) then exit; var a:=MatrRandomReal(n,n,1,20); a.Println(7,2); k-=1; var d:=a[k,k]; Writeln(n*7*'-'); for var j:=0 to n-1 do a[k,j]/=d; a.Println(7,2) end.
2. А пока в школах учат писать вот так. Хорошо видно, насколько школа отстает от современных технологий.
const nn=20; var a:array[1..nn,1..nn] of real; i,j,n,k:integer; d:real; begin Write('n= '); Read(n); Write('Введите 1<k<=n: '); Read(k); if (k>n) or (k<1) then exit; randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=19*random+1; Write(a[i,j]:7:2) end; Writeln end; d:=a[k,k]; for i:=1 to 7*n do Write('-'); Writeln; for j:=1 to n do a[k,j]:=a[k,j]/d; for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:7:2); Writeln end end.
