Человек в своей деятельности постоянно создает и использует модели окружающего мира. 1. модели позволяют представить в наглядной форме объекты и процессы, недоступные для непосредственного восприятия: : модели двигателей; : глобус – модель земли(реальный размер большой) ; – модели кристаллическая решетка, молекул (реальные размеры маленькие); биология – по муляжу человека изучаем внутреннее строение2. при проектировании механизмов и устройств, зданий, электрических цепей используют модели – чертежи и макеты. – изучение объемных фигур3. теоретические модели (для развития науки) – теории законов, гипотез и тд. иногда создание таких моделей коренным образом меняет представления человека об окружаюжем мире: коперник- гелиоцентрическая система мира, модель атома резерфорда-бора, геном человека)4. художественное творчество - перенос реальной действительности на полотно, скульптура, театр, басня – отношения между животными – отношения между людьми
Спасибо
Ответ дал: Гость
var slovo,simval: string; i,k: integer; begin k: =0; write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.
я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой
Ответ дал: Гость
uses graph; {подключен модуль graph}var x,y,h: integer; procedure grinit; {процедура инициализации режима графики}var graphdriver: integer; {для графического адаптера} graphmode : integer; {для графического режима} errorcode : integer; {для кода ошибки}begin graphdriver : =detect; {режим автоопределения} initgraph(graphdriver ,graphmode,''); {инициализация} errorcode : =graphresult; {результат инициализации} if errorcode < > grok then {если не успешно,} begin writeln('ошибка графики: ',grapherrormsg(errorcode )); writeln('программа остановлена.'); halt(1) end {if}end; begin grinit; {вызов инициализации} x: =getmaxx div 2; y: =getmaxy div 2; h: = 30; {кол-во шагов до финиша} while x+y> 0 do begin cleardevice; circle(x, y, 10); delay(100); x: = x + getmaxx div h; y: = y - getmaxy div h; end; readln; {пауза до нажатия } closegraph; {закрытие графического режима}end.
Популярные вопросы