Пользуясь дополнительными источниками информации, подгонять небольшое сообщение о том, на чем и с помощью каких инструментов люд
Пользуясь дополнительными источниками информации, подгонять небольшое сообщение о том, на чем и с помощью каких инструментов люди зарисывали информацию в былые времена.
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние способы записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var (a,b,c):=ReadReal3; var d:=b*b-4*a*c; if d<0 then Writeln('Корней нет') else if d=0 then begin var x:=-b/2/a; Writeln('Корень уравнения x=',x) end else begin var x1:=(-b-Sqrt(d))/2/a; var x2:=(-b+Sqrt(d))/2/a; Writeln('Корни уравнения: x1=',x1,', x2=',x2) end end.
1. Начало 2. k=0, i=0; Ввести: b, n, m[n] // m[n] - массив из n элементов 3. Если m[i] = b, то k=k+1 // m[i] обращение к i-ному элементу массива 4. Если i<n, то i=i+1 и вернутся в п.3 5. Вывести: k <span>6. Конец</span>
Двоеточие - это часть команды (оператора), который называется оператор присваивания. В данном контексте всегда используется два символа ":=". Команда присваивания y:=y-x означает, что берутся текущие значения переменных x и y, находится их разность, после чего результат записывается (говорят - "присваивается") переменной y. Например, если значение y было задано y:=20; а x:=1; то новое значение переменной y будет равно 20-1=19. В команде x:=x*2 все аналогично. Берется текущее (установленное ранее) значение переменной x, умножается на 2, а результат этого умножения становится новым значением переменой x. Старое значение при этом безвозвратно теряется.