Музей(от греч. museon-храм музы)-заведение которое сохраняет и собирает экспонаты искуства , историческо-научные экспонаты, культурные ценности и др. экпонаты. Музей имеет важную роль в духовном и материальном познании , научно исследовании пропаганде конечных резултатов.музей делиться на несколько групп: историческая(общяя история,археология, этнографическая и др.) искуссктвовой музей(художественное исскуство, скульптура, рукоделие,прикладное искусство, театр, музыка кино, и др.) музей естествознания (биологический, зоологический,геологический, минеральный, и др.), технические музейы (авиацию, автотранспорт, корабле строение,промышленность, продукты производства),''комплексные музейы'' (история, хозяйство,естествознание, краеведчиские музейы и др.), мемориальные музейы( музей людей которые посветили себя в государство, исскуство литературеи науке ).Оснавные направления Музея- сбор учет систематизация восстановлени(рестоврация) и другие. Работы музейя выставка, производство экспозиций , темовые уроки проводить научно-опытные конферениции, печатание музейных изданий и другие.
Type Point = record x: integer; y: integer; end; Line = record P: Point; Q: Point; Len: double; end;
procedure LineLength(var pL: Line); // Вычисляет и сохраняет значение длины отрезка begin pL.Len := sqrt(sqr(pL.Q.x - pL.P.x) + sqr(pL.Q.y - pL.P.y)) end;
var A, B, C, D: Point; AB, AC, AD, BC, BD, CD: Line;
begin writeln('Введите попарно координаты четырех точек'); readln(A.x, A.y, B.x, B.y, C.x, C.y, D.x, D.y); with AB do begin P.x := A.x; P.y := A.y; Q.x := B.x; Q.y := B.y; LineLength(AB); end; with AC do begin P.x := A.x; P.y := A.y; Q.x := C.x; Q.y := C.y; LineLength(AC); end; with AD do begin P.x := A.x; P.y := A.y; Q.x := D.x; Q.y := D.y; LineLength(AD); end; with BC do begin P.x := B.x; P.y := B.y; Q.x := C.x; Q.y := C.y; LineLength(BC); end; with BD do begin P.x := B.x; P.y := B.y; Q.x := D.x; Q.y := D.y; LineLength(BD); end; with CD do begin P.x := C.x; P.y := C.y; Q.x := D.x; Q.y := D.y; LineLength(CD); end; writeln(AB.Len, ' ', AC.Len, ' ', AD.Len, ' ', BC.Len, ' ', BD.Len, ' ', CD.Len); if AB.Len = CD.Len then begin // AB и CD - претенденты if AC.Len = BD.Len then // Нашли ABDC writeln('Параллелограмм ABDC') else if AD.Len = BC.Len then // Нашли ABCD writeln('Параллелограмм ABCD') end else if AC.Len = BD.Len then begin // AC и BD - претенденты if AD.Len = BC.Len then // Нашли ACBD writeln('Параллелограмм ACBD') else if AB.Len = CD.Len then // Нашли ABCD writeln('Параллелограмм ACDB') end else if AD.Len = BC.Len then begin // AD и ВС - претенденты if AC.Len = BD.Len then // Нашли ADBC writeln('Параллелограмм ADBC') else if AB.Len = CD.Len then // Нашли ADCB writeln('Параллелограмм ADCB') end else writeln('Параллелограмм построить невозможно'); end.
Контрольный прогон:
Введите попарно координаты четырех точек 5 1 10 3 8 9 3 6 5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453 Параллелограмм построить невозможно
Изучение истории Киргизской ССР периода Великой Отечественной войны нельзя отнестись к числу малоисследованных научных проблем . В работах многих учёных собран обобщен значительный материал о роли Киргизской ССР в годы войны о героическом труде рабочих колхозников интеллигенции показана роль партийных комсомольских организации советов во всеобщей мобилизации трудового население на разгром врага освещены ратные подвиги киргистанцев на фронтах Отечественной войны . Однако в изучение рассматриваемое проблемы имеются и определённые проблемы общие тенденции процессов происходящих в народном хозяйстве целом и отдельном его отраслях в годы вайны
