Вопросы

Лекция 10 Социально-педагогическая профилактика

End.

Begin

Var

End.

Begin

Var

Begin

Begin

Var

Begin

Begin

Var

Implementation

Type

Const

Interface

Найти минимум двух функций, задаваемых массивами значений с помощью соответствующих процедур.

END.

BEGIN

IMPLEMENTATION

TYPE

COMPLEX=RECORD RE,IM:REAL END;

PROCEDURE ADDC (X,Y:COMPLEX;

VAR Z:COMPLEX);

PROCEDURE ADDC;

Z.RE := X.RE + Y.RE;

Z.IM := X.IM + Y.IM;

END;

Инициирующая часть завершает модуль. Она должна начинаться со слова BEGIN и включать в себя операторы, которые исполняются до передачи управления основной программе и обычно используются для подготовки ее работы. Например, в них могут открываться нужные файлы, устанавливаться связь с другими устройствами. Однако чаще всего эта часть модуля отсутствует.

Для записи откомпилированного модуля на диск в файле с расширением TPU следует в пункте меню COMPILE выбрать пункт DESTINATION и установить в нем режим DISK. После этого следует нажать [F9] и при отсутствии ошибок модуль будет записан на диск.

В Турбо-Паскале имеется ряд стандартных модулей, находящихся в одноименных файлах или в составе библиотеки TURBO.TPL. Только один модуль SYSTEM автоматически подключается к каждой программе. Остальные модули становятся доступны только после указания их имен после слова USES.

Пример.

 

Текст модуля содержит процедуры MY1 и MY2, с помощью которых формируются массивы значений двух функций, и функцию MIN. определяющую минимальное значение среди всех элементов массива.

unit func;

n=100;

massiv=array[1..n]of real;

proc=procedure(n:integer;a,h:real;

var f:massiv);

procedure my1(m:integer;a,h:real;

var f:massiv);

procedure my2(m:integer;a,h:real;

var f:massiv);

function min(m:integer;a,h:real;

fun:proc):real;

procedure my1;

k:integer;

x:real;

for k:=1 to m do

x:=a+k*h;

f[k]:=sqr(sin(x))*cos(x)-ln(abs(x));

write(f[k]:4:2,' ');

end;

end;

procedure my2;

k:integer;

x:real;

for k:=1 to m do

x:=a+k*h;

f[k]:=x*x-2*x+8;

write(f[k]:4:2,' ');

end;

end;

function min;

f1:massiv;

minf:real;

k:integer;

fun(m,a,h,f1);

minf:=f1[1];

for k:=2 to m do

if f1[k]<minf then minf:=f1[k];

min:=minf;

end;

Текст основной программы:

 

program min_func2;

uses crt,func;

nm,k:integer;

a,b,h,x,ym:real;

clrscr;

write('Введите начало отрезка a=');

readln(a);

write('Введите конец отрезка b=');

readln(b);

write('Введите шаг h=');

readln(h);

nm:=round((b-a)/h+1);

ym:=min(nm,a,h,my1);

writeln('минимум функции Y1=',ym:4:2);

ym:=min(nm,a,h,my2);

writeln('минимум функции Y2=',ym:4:2);

1. Сущность и содержание социально-педагогической профилактики.

2. Основные подходы и направления профилактики дезадаптивного поведения детей и подростков.

 

1. В практике социального педагога в работе с трудными детьми, с детьми девиантного и делинквентного поведения получила широкое распространение профилактическая технология. Осуществление профилактической функции социальным педагогом более эффективно, если в ее основе лежит опора на положительные качества воспитанника и педагогический оптимизм.