file_name: 445. Программирование на языке Паскаль.ppt

alt: Программирование на языке Паскаль

description:
1

Программирование на языке Паскаль

Введение
Ветвления
Сложные условия
Циклы
Циклы с условием
Оператор выбора

Графика
Графики функций
Процедуры
Рекурсия
Анимация
Функции
Случайные числа

alt: Программирование на языке Паскаль

description:
2

Программирование на языке Паскаль

Тема 1. Введение

alt: Алгоритм Свойства алгоритма дискретность : состоит из отдельных шагов (команд) понятность : должен включать только команды, известные исполнителю (входящие в

description:
3

Алгоритм

Свойства алгоритма
дискретность: состоит из отдельных шагов (команд)
понятность: должен включать только команды, известные исполнителю (входящие в СКИ)
определенность: при одинаковых исходных данных всегда выдает один и тот же результат
конечность: заканчивается за конечное число шагов
массовость: может применяться многократно при различных исходных данных
корректность: дает верное решение при любых допустимых исходных данных

Алгоритм – это четко определенный план действий для исполнителя.

alt: Программа Программа – это алгоритм, записанный на каком-либо языке программирования набор команд для компьютера

description:
4

Программа

Программа – это
алгоритм, записанный на каком-либо языке программирования
набор команд для компьютера

Команда – это описание действий, которые должен выполнить компьютер.
 откуда взять исходные данные?
 что нужно с ними сделать?

alt: Языки программирования Машинно-ориентированные (низкого уровня) - каждая команда соответствует одной команде процессора (ассемблер)

description:
5

Языки программирования

Машинно-ориентированные (низкого уровня) - каждая команда соответствует одной команде процессора (ассемблер)
Языки высокого уровня – приближены к естественному (английскому) языку, легче воспринимаются человеком, не зависят от конкретного компьютера
для обучения: Бейсик, ЛОГО, Паскаль
профессиональные: Си, Фортран, Паскаль
для задач искусственного интеллекта: Пролог, ЛИСП
для Интернета: JavaScript, Java, Perl, PHP, ASP

alt: Язык Паскаль 1970 – Никлаус Вирт (Швейцария) язык для обучения студентов разработка программ «сверху вниз» разнообразные структуры данных (массивы, структуры, множества)

description:
6

Язык Паскаль

1970 – Никлаус Вирт (Швейцария)
 язык для обучения студентов
 разработка программ «сверху вниз»

 разнообразные структуры данных (массивы, структуры, множества)

alt: Из чего состоит программа? program <имя программы>; const …; {константы} var …; {переменные} begin … {основная программа} end

description:
7

Из чего состоит программа?

program <имя программы>;
const …;{константы}
var …; {переменные}

begin
 … {основная программа}
end.

{ процедуры и функции }

комментарии в фигурных скобках не обрабатываются

alt: Из чего состоит программа? Константа – постоянная величина, имеющая имя

description:
8

Из чего состоит программа?

Константа – постоянная величина, имеющая имя.
Переменная – изменяющаяся величина, имеющая имя (ячейка памяти).
Процедура – вспомогательный алгоритм, описывающий некоторые действия (рисование окружности).
Функция – вспомогательный алгоритм для выполнения вычислений (вычисление квадратного корня, sin).

alt: Имена программы, констант, переменных

description:
9

Имена программы, констант, переменных

Имена могут включать
латинские буквы (A-Z)

цифры

знак подчеркивания _

заглавные и строчные буквы не различаются

Имена НЕ могут включать
русские буквы
пробелы
скобки, знаки +, =, !, ? и др.

имя не может начинаться с цифры

Какие имена правильные??
 AXby    R&B    4Wheel    Вася    “PesBarbos” TU154    [QuQu]     _ABBA    A+B

alt: Константы const i2 = 45; { целое число } pi = 3

description:
10

Константы

const
   	i2 = 45; { целое число }
	pi = 3.14; { вещественное  число }

	qq = 'Вася'; { строка символов }

	L  = True; { логическая величина }

целая и дробная часть отделяются точкой

можно использовать русские буквы!

может принимать два значения:
 True (истина, «да»)
 False (ложь, «нет»)

alt: Переменные Переменная – это величина, имеющая имя, тип и значение

description:
11

Переменные

Переменная – это величина, имеющая имя, тип и значение. Значение переменной можно изменять во время работы программы.

Типы переменных:
integer			{ целая }
real			{ вещественная }
char			{ один символ }
string			{ символьная строка }
boolean 			{ логическая }

Объявление переменных (выделение памяти):

var 	a, b: integer;
		Q: real;
		s1, s2: string;

alt: Как изменить значение переменной?

description:
12

Как изменить значение переменной?

Оператор – это команда языка программирования высокого уровня.

Оператор присваивания служит для изменения значения переменной.

	program qq;
	var a, b: integer;
	begin
	  a := 5;
	  b := a + 2;
	  a := (a + 2)*(b – 3);
	end.

a

?

5

5

b

?

5+2

7

a

5

7*4

28

Пример:

alt: Оператор присваивания Арифметическое выражение может включать константы имена переменных знаки арифметических операций: + - * / div mod вызовы функций круглые скобки ( ) умножение…

description:
13

Оператор присваивания

Арифметическое выражение может включать
константы
имена переменных
знаки арифметических операций:
	 	  + -   *   /     div    mod

вызовы функций
круглые скобки ( )

умножение

деление

деление нацело

остаток от деления

<имя переменной> := <выражение>;

alt: Какие операторы неправильные? имя переменной должно быть слева от знака := целая и дробная часть отделяются точкой нельзя записывать вещественное значение в целую переменную

description:
14

	program qq;
	var a, b: integer;
		 x, y: real;
	begin
	  a := 5;
   10 := x;
   y := 7,8;
   b := 2.5;
   x := 2*(a + y);
   a := b + x;
	end.

Какие операторы неправильные?

имя переменной должно быть слева от знака :=

целая и дробная часть отделяются точкой

нельзя записывать вещественное значение в целую переменную

alt: Ручная прокрутка программы program qq; var a, b: integer; begin a := 5; b := a + 2; a := (a + 2)*(b – 3);…

description:
15

Ручная прокрутка программы

program qq;
var 	a, b: integer;
begin
  a := 5;
  b := a + 2;
  a := (a + 2)*(b – 3);
  b := a div 5;
  a := a mod b;
  a := a + 1;
  b := (a + 14) mod 7;
end.

a

b

?

5

7

28

5

3

4

4

alt: Порядок выполнения операций вычисление выражений в скобках умножение, деление, div , mod слева направо сложение и вычитание слева направо z := (5*a*c+3*(c-d))/a*(b-c)/ b; x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a)); 2…

description:
16

Порядок выполнения операций

вычисление выражений в скобках
умножение, деление, div, mod слева направо
сложение и вычитание слева направо

z := (5*a*c+3*(c-d))/a*(b-c)/ b;

x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a));

 2 3 5 4  1   7 8  6  9

 2 6 3 4 7 5  1   12  8 11 10 9

alt: Сложение двух чисел Задача. Ввести два целых числа и вывести на экран их сумму

description:
17

Сложение двух чисел

Задача. Ввести два целых числа и вывести на экран их сумму.

Простейшее решение:

	program qq;
	var a, b, c: integer;
	begin
   read ( a, b );
   c := a + b;
   writeln ( c );
	end.

alt: Оператор ввода read ( a ); { ввод значения переменной a} read ( a, b ); { ввод значений переменных a и b}

description:
18

Оператор ввода

read ( a );    { ввод значения переменной a}

read ( a, b ); { ввод значений переменных a и b}

Как вводить два числа?
    через пробел:
	25 30
    через Enter:
	25
	30

alt: Оператор вывода write ( a ); { вывод значения переменной a} writeln ( a ); { вывод значения переменной a и переход на новую строчку}…

description:
19

Оператор вывода

write ( a );   { вывод значения переменной a}

writeln ( a ); { вывод значения переменной a и переход на новую строчку}

writeln ( 'Привет!' ); { вывод текста}

writeln ( 'Ответ: ', c );   { вывод текста и значения переменной c}

writeln ( a, '+', b, '=', c );

alt: Форматы вывода program qq; var i: integer; x: real; begin i := 15; writeln ( '>', i, '<' ); writeln ( '>', i:5, '<' );…

description:
20

Форматы вывода

program qq;
var i: integer;
    x: real;
begin
  i := 15;
  writeln ( '>', i, '<' );
  writeln ( '>', i:5, '<' );
  x := 12.345678;
  writeln ( '>', x, '<' );
  writeln ( '>', x:10, '<' );
  writeln ( '>', x:7:2, '<' );
 end.

>15<
>   15<

>1.234568E+001<
> 1.23E+001<
>  12.35<

всего символов

всего символов

в дробной части

alt: Полное решение program qq; var a, b, c: integer; begin writeln('Введите два целых числа'); read ( a, b ); c := a + b; writeln…

description:
21

Полное решение

	program qq;
	var a, b, c: integer;
	begin
   writeln('Введите два целых числа');
   read ( a, b );
   c := a + b;
   writeln ( a, '+', b, '=', c );
	end.

Протокол:
  Введите два целых числа
  25 30
  25+30=55

компьютер

пользователь

alt: Блок-схема линейного алгоритма начало конец c := a + b; ввод a , b вывод c блок «начало» блок «ввод» блок «процесс» блок «вывод» блок…

description:
22

Блок-схема линейного алгоритма

начало

конец

c := a + b;

ввод a, b

вывод c

блок «начало»

блок «ввод»

блок «процесс»

блок «вывод»

блок «конец»

alt: Задания «4»: Ввести три числа, найти их сумму и произведение

description:
23

Задания

«4»: Ввести три числа, найти их сумму и произведение.
    Пример:
	 Введите три числа:
	 4   5   7
	 4+5+7=16
	 4*5*7=140
«5»: Ввести три числа, найти их сумму, произведение и среднее арифметическое.
    Пример:
             	Введите три числа:
	 4   5   7
	 4+5+7=16
	 4*5*7=140
	 (4+5+7)/3=5.33

alt: Программирование на языке Паскаль

description:
24

Программирование на языке Паскаль

Тема 2. Ветвления

alt: Разветвляющиеся алгоритмы Задача

description:
25

Разветвляющиеся алгоритмы

Задача. Ввести два целых числа и вывести на экран наибольшее из них.
Идея решения: надо вывести на экран первое число, если оно больше второго, или второе, если оно больше первого.
Особенность: действия исполнителя зависят от некоторых условий (если … иначе …).

Алгоритмы, в которых последовательность  шагов зависит от выполнения некоторых условий, называются разветвляющимися.

alt: Вариант 1. Блок-схема полная форма ветвления блок «решение»

description:
26

Вариант 1. Блок-схема

полная форма ветвления

блок «решение»

alt: Вариант 1. Программа max := a; max := b; полная форма условного оператора program qq; var a, b, max: integer; begin writeln('Введите два целых числа');…

description:
27

Вариант 1. Программа

max := a;

max := b;

полная форма условного оператора

	program qq;
	var a, b, max: integer;
	begin
   writeln('Введите два целых числа');
   read ( a, b );
   if a > b then begin

   end
   else begin

   end;
   writeln ('Наибольшее число ', max);
	end.

alt: Условный оператор if <условие> then begin {что делать, если условие верно} end else begin {что делать, если условие неверно} end ;

description:
28

Условный оператор

	if <условие> then begin
   {что делать, если условие верно}
 end
 else begin
   {что делать, если условие неверно}
 end;

Особенности:
перед else НЕ ставится точка с запятой
вторая часть (else …) может отсутствовать (неполная форма)
если в блоке один оператор, можно убрать слова begin и end

alt: Что неправильно? if a > b then begin a := b; end else b := a; end; if a > b then begin a :=…

description:
29

Что неправильно?

	if a > b then begin
   a := b;
 end
 else
   b := a;
 end;

	if a > b then begin
   a := b;
 else begin
   b := a;
 end;

	if a > b then begin
   a := b;
 end;
 else begin
   b := a;
 end;

	if a > b then begin
   a := b;
 end
 else b > a begin
   b := a;
 end;

begin

end

begin

end

alt: Вариант 2. Блок-схема неполная форма ветвления

description:
30

Вариант 2. Блок-схема

неполная форма ветвления

alt: Вариант 2. Программа program qq; var a, b, max: integer; begin writeln('Введите два целых числа'); read ( a, b ); max := a; if b…

description:
31

Вариант 2. Программа

	program qq;
	var a, b, max: integer;
	begin
   writeln('Введите два целых числа');
   read ( a, b );
   max := a;
   if b > a then
     max := b;
   writeln ('Наибольшее число ', max);
	end.

неполная форма условного оператора

alt: Вариант 2Б. Программа program qq; var a, b, max: integer; begin writeln('Введите два целых числа'); read ( a, b ); max := b; if ???…

description:
32

Вариант 2Б. Программа

	program qq;
	var a, b, max: integer;
	begin
   writeln('Введите два целых числа');
   read ( a, b );
   max := b;
   if  ???  then
       ???
   writeln ('Наибольшее число ', max);
	end.

max := a;

a > b

alt: Что неправильно? if a > b then begin a := b; else b := a; if a > b then begin a := b; end;…

description:
33

Что неправильно?

	if a > b then begin
      a := b;
 else b := a;

	if a > b then begin
   a := b;
 end;
 else b := a;

	if a > b then
 else begin
   b := a;
 end;

	if a > b then
      a := b;
 else b := a; end;

a := b

end

a := b

	if b >= a then
    b := a;

alt: Задания «4»: Ввести три числа и найти наибольшее из них

description:
34

Задания

«4»: Ввести три числа и найти наибольшее из них.
    Пример:
		Введите три числа:
		4   15   9
		Наибольшее число 15
«5»: Ввести пять чисел и найти наибольшее из них.
    Пример:
           Введите пять чисел:
		4    15    9    56    4
		Наибольшее число 56

alt: Программирование на языке Паскаль

description:
35

Программирование на языке Паскаль

Тема 3. Сложные условия

alt: Сложные условия Задача. Фирма набирает сотрудников от 25 до 40 лет включительно

description:
36

Сложные условия

Задача. Фирма набирает сотрудников от 25 до 40 лет включительно. Ввести возраст человека и определить, подходит ли он фирме (вывести ответ «подходит» или «не подходит»).
Особенность: надо проверить, выполняются ли два условия одновременно.

alt: Вариант 1. Алгоритм начало ввод x 'подходит' конец да нет x >= 25? да нет x <= 40? ' не подходит ' ' не подходит…

description:
37

Вариант 1. Алгоритм

начало

ввод x

'подходит'

конец

да

нет

x >= 25?

да

нет

x <= 40?

'не подходит'

'не подходит'

alt: Вариант 1. Программа program qq; var x: integer; begin writeln('Введите возраст'); read ( x ); if x >= 25 then if x <= 40 then…

description:
38

Вариант 1. Программа

	program qq;
	var x: integer;
	begin
   writeln('Введите возраст');
   read ( x );
   if x >= 25 then
     if x <= 40 then
          writeln ('Подходит')
     else writeln ('Не подходит')
   else
     writeln ('Не подходит');
	end.

alt: Вариант 2. Алгоритм начало ввод x 'подходит' да нет x >= 25 и x <= 40? ' не подходит '

description:
39

Вариант 2. Алгоритм

начало

ввод x

'подходит'

да

нет

x >= 25 и
x <= 40?

'не подходит'

alt: Вариант 2. Программа сложное условие program qq; var x: integer; begin writeln('Введите возраст'); read ( x ); if (x >= 25) and (x <= 40)…

description:
40

Вариант 2. Программа

сложное условие

	program qq;
	var x: integer;
	begin
   writeln('Введите возраст');
   read ( x );
   if (x >= 25) and (x <= 40) then
        writeln ('Подходит')
   else writeln ('Не подходит')
	end.

alt: Сложные условия Сложное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций : not –

description:
41

Сложные условия

Сложное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций:
not – НЕ (отрицание, инверсия)
and – И (логическое умножение, конъюнкция,       одновременное выполнение условий)
or – ИЛИ (логическое сложение, дизъюнкция,       выполнение хотя бы одного из условий)
xor – исключающее ИЛИ (выполнение только        одного из двух условий, но не обоих)
Простые условия (отношения)
    <    <=    >    >=    =    <>

равно

не равно

alt: Сложные условия Порядок выполнения (приоритет = старшинство ) выражения в скобках not and or, xor <, <=, >, >=, =, <>

description:
42

Сложные условия

Порядок выполнения (приоритет = старшинство)
выражения в скобках
not
and
or, xor
<, <=, >, >=, =, <>
Особенность – каждое из простых условий обязательно заключать в скобки.
Пример

4     1     6    2      5     3

if not (a > b) or (c <> d) and (b <> a)
then begin
  ...
end

alt: Истинно или ложно при a := 2; b := 3; c := 4; not (a > b) (a < b) and (b < c) not…

description:
43

Истинно или ложно при a := 2; b := 3; c := 4;
not (a > b)
(a < b) and (b < c)
not (a >= b) or (c = d)
(a < c) or (b < c) and (b < a)
(a  c)
Для каких значений  x истинны условия:
(x < 6) and (x < 10)
(x < 6) and (x > 10)
(x > 6) and (x < 10)
(x > 6) and (x > 10)
(x < 6) or (x < 10)
(x < 6) or (x > 10)
(x > 6) or (x < 10)
(x > 6) or (x > 10)

Сложные условия

True

True

FALSE

(-; 6)



(6; 10)

(10; )

(-; 10)

(-; 6)  (10;)

(-; )

(6; )

x < 6

x > 10

x < 10

x > 6

True

True

alt: Задания «4»: Ввести номер месяца и вывести название времени года

description:
44

Задания

«4»: Ввести номер месяца и вывести название времени года.
    Пример:
		Введите номер месяца:
		4
		весна
«5»: Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом «год», «года» или «лет».
    Пример:
		Введите возраст:      Введите возраст:
		24                    57
		Вам 24 года           Вам 57 лет

alt: Программирование на языке Паскаль

description:
45

Программирование на языке Паскаль

Тема 4. Циклы

alt: Циклы Цикл – это многократное выполнение одинаковой последовательности действий

description:
46

Циклы

Цикл – это многократное выполнение одинаковой последовательности действий.
цикл с известным числом шагов
цикл с неизвестным числом шагов (цикл с условием)
Задача. Вывести на экран квадраты и кубы целых чисел от 1 до 8 (от a до b).
Особенность: одинаковые действия выполняются 8 раз.

alt: Алгоритм начало i, i2, i3 конец нет да i <= 8? i := 1; i := i + 1; i2 := i * i; i3…

description:
47

Алгоритм

начало

i, i2, i3

конец

нет

да

i <= 8?

i := 1;

i := i + 1;

i2 := i * i;
i3 := i2 * i;

задать начальное значение переменной цикла

проверить, все ли сделали

вычисляем квадрат и куб

вывод результата

перейти к следующему i

alt: Алгоритм (с блоком «цикл») начало i, i2, i3 конец i2 := i * i; i3 := i2 * i; i := 1,8 блок «цикл» тело…

description:
48

Алгоритм (с блоком «цикл»)

начало

i, i2, i3

конец

i2 := i * i;
i3 := i2 * i;

i := 1,8

блок «цикл»

тело цикла

alt: Программа program qq; var i, i2, i3: integer; begin for i:=1 to 8 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end;…

description:
49

Программа

program qq;
var i, i2, i3: integer;
begin

  for i:=1 to 8 do begin
    i2 := i*i;
    i3 := i2*i;
    writeln(i:4, i2:4, i3:4);
  end;
end.

переменная
цикла

начальное значение

конечное значение

alt: Цикл с уменьшением переменной Задача

description:
50

Цикл с уменьшением переменной

Задача. Вывести на экран квадраты и кубы целых чисел от 8 до 1 (в обратном порядке).
Особенность: переменная цикла должна уменьшаться.
Решение:

 for i:=8         1 do begin
    i2 := i*i;
    i3 := i2*i;
    writeln(i:4, i2:4, i3:4);
  end;

downto

alt: Цикл с переменной for <переменная> := <начальное значение> to <конечное значение> do begin {тело цикла} end;

description:
51

Цикл с переменной

	for <переменная> := <начальное значение> to
     <конечное значение> do begin
   {тело цикла}
 end;

Увеличение переменной на 1:

	for <переменная> := <начальное значение>                downto
     <конечное значение> do begin
   {тело цикла}
 end;

Уменьшение переменной на 1:

alt: Цикл с переменной Особенности: переменная цикла может быть только целой ( integer ) шаг изменения переменной цикла всегда равен 1 ( to ) или -1…

description:
52

Цикл с переменной

Особенности:
переменная цикла может быть только целой (integer)
шаг изменения переменной цикла всегда равен 1 (to) или -1 (downto)
если в теле цикла только один оператор, слова begin и end можно не писать:
если конечное значение меньше начального, цикл (to) не выполняется ни разу (проверка условия в начале цикла, цикл с предусловием)

for i:=1 to 8 do
  writeln('Привет');

alt: Цикл с переменной Особенности: в теле цикла не разрешается изменять переменную цикла (почему?) при изменении начального и конечного значения внутри цикла количество шагов не изменится:…

description:
53

Цикл с переменной

Особенности:
в теле цикла не разрешается изменять переменную цикла (почему?)
при изменении начального и конечного значения внутри цикла количество шагов не изменится:

n := 8;
for i:=1 to n do begin
  writeln('Привет');
  n := n + 1;
end;

нет зацикливания

alt: Цикл с переменной Особенности: после выполнения цикла во многих системах устанавливается первое значение переменной цикла, при котором нарушено условие: for i:=1 to 8 do writeln('Привет');…

description:
54

Цикл с переменной

Особенности:
после выполнения цикла во многих системах устанавливается первое значение переменной цикла, при котором нарушено условие:

for i:=1 to 8 do
  writeln('Привет');
writeln('i=', i);

for i:=8 downto 1 do
  writeln('Привет');
writeln('i=', i);

i=9

i=0

НЕ ДОКУМЕНТИРОВАНО

alt: Сколько раз выполняется цикл? a := 1; for i:=1 to 3 do a := a+1; a = 4 a := 1; for i:=3 to 1…

description:
55

Сколько раз выполняется цикл?

a := 1;
for i:=1 to 3 do a := a+1;

a = 4

a := 1;
for i:=3 to 1 do a := a+1;

a = 1

a := 1;
for i:=1 downto 3 do a := a+1;

a = 1

a := 1;
for i:=3 downto 1 do a := a+1;

a = 4

alt: Как изменить шаг? Задача. Вывести на экран квадраты и кубы нечётных целых чисел от 1 до 9

description:
56

for i:=1 to 9 do begin
    if     ???      then begin
      i2 := i*i;
      i3 := i2*i;
      writeln(i:4, i2:4, i3:4);
    end;
  end;

Как изменить шаг?

Задача. Вывести на экран квадраты и кубы нечётных целых чисел от 1 до 9.
Особенность: переменная цикла должна увеличиваться на 2.
Проблема: в Паскале шаг может быть 1 или -1.
Решение:

i mod 2 = 1

i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);

выполняется только для нечетных i

alt: Как изменить шаг? – II Идея: Надо вывести всего 5 чисел, переменная k изменяется от 1 до 5

description:
57

Как изменить шаг? – II

Идея: Надо вывести всего 5 чисел, переменная k изменяется от 1 до 5. Начальное значение i равно 1, с каждым шагом цикла i увеличивается на 2.
Решение:

  ???
  for k:=1 to 5 do begin
    i2 := i*i;
    i3 := i2*i;
    writeln(i:4, i2:4, i3:4);
    ???
  end;

i := i + 2;

i := 1;

alt: Как изменить шаг? – III Идея:

description:
58

Как изменить шаг? – III

Идея: Надо вывести всего 5 чисел, переменная k изменяется от 1 до 5. Зная k, надо рассчитать i.

Решение:

k

1

2

3

4

5

i

3

5

7

9

i = 2k-1

 for k:=1 to 5 do begin
      ???
    i2 := i*i;
    i3 := i2*i;
    writeln(i:4, i2:4, i3:4);
  end;

i := 2*k – 1;

alt: Задания «4»: Ввести a и b и вывести квадраты и кубы чисел от a до b

description:
59

Задания

«4»: Ввести a и b и вывести квадраты и кубы чисел от a до b.
    Пример:
		Введите границы интервала:
		4 6
		  4  16   64
		  5  25  125
		  6  36  216
«5»: Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, …
    Пример:
		  1     1     1
		  2     4     8
		  4    16    64
            ...
       46  2116 97336

alt: Программирование на языке Паскаль

description:
60

Программирование на языке Паскаль

Тема 5. Циклы с условием

alt: Цикл с неизвестным числом шагов

description:
61

Цикл с неизвестным числом шагов

Пример: Отпилить полено от бревна. Сколько раз надо сделать движения пилой?
Задача: Ввести целое число (<2000000) и определить число цифр в нем.
Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик.

Проблема: Неизвестно, сколько шагов надо сделать.
Решение: Надо остановиться, когда n = 0, т.е. надо делать «пока n <> 0».

n

count

123

0

12

1

1

2

0

3

alt: Алгоритм начало count конец нет да n <> 0? count := 0 ; count := count + 1; n := n div 10; обнулить счетчик…

description:
62

Алгоритм

начало

count

конец

нет

да

n <> 0?

count := 0;

count := count + 1;
   n := n div 10;

обнулить счетчик цифр

ввод n

выполнять «пока n <> 0»

alt: Программа program qq; var n, count: integer; begin writeln('Введите целое число'); read(n); count := 0; while n <> 0 do begin count := count +…

description:
63

Программа

program qq;
var n, count: integer;
begin
  writeln('Введите целое число');
  read(n);
  count := 0;
  while n <> 0 do begin
    count := count + 1;
    n := n div 10;
  end;
  writeln('В числе ', n, ' нашли ',
           count, ' цифр');
end.

 while n <> 0 do begin
    count := count + 1;
    n := n div 10;
  end;

, n1: integer;

n1 := n;

n1,

выполнять «пока n <> 0»

alt: Цикл с условием while <условие> do begin {тело цикла} end;

description:
64

Цикл с условием

	while <условие> do begin
   {тело цикла}
 end;

Особенности:
можно использовать сложные условия:
если в теле цикла только один оператор, слова begin и end можно не писать:

while (a<b) and (b<c) do begin
  {тело цикла}
end;

while a < b do
   a := a + 1;

alt: Цикл с условием Особенности: условие пересчитывается каждый раз при входе в цикл если условие на входе в цикл ложно, цикл не выполняется ни разу если…

description:
65

Цикл с условием

Особенности:
условие пересчитывается каждый раз при входе в цикл
если условие на входе в цикл ложно, цикл не выполняется ни разу
если условие никогда не станет ложным, программа зацикливается

a := 4; b := 6;
while a > b do
   a := a – b;

a := 4; b := 6;
while a < b do
   d := a + b;

alt: Сколько раз выполняется цикл? a := 4; b := 6; while a < b do a := a + 1; 2 раза a = 6…

description:
66

Сколько раз выполняется цикл?

a := 4; b := 6;
while a < b do a := a + 1;

2 раза
a = 6

a := 4; b := 6;
while a < b do a := a + b;

1 раз
a = 10

a := 4; b := 6;
while a > b do a := a + 1;

0 раз
a = 4

a := 4; b := 6;
while a < b do b := a - b;

1 раз
b = -2

a := 4; b := 6;
while a < b do a := a - 1;

зацикливание

alt: Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i := 1; while i <= 10 do begin {тело…

description:
67

Замена for на while и наоборот

for i:=1 to 10 do begin
  {тело цикла}
end;

i := 1;
while i <= 10 do begin
  {тело цикла}
  i := i + 1;
end;

for i:=a downto b do
  begin
  {тело цикла}
end;

i := a;
while i >= b do begin
  {тело цикла}
  i := i - 1;
end;

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.

Замена цикла for на while возможна всегда.

alt: Задания «4»: Ввести целое число и найти сумму его цифр

description:
68

Задания

«4»: Ввести целое число и найти сумму его цифр.
    Пример:
		Введите целое число:
		1234
		Сумма цифр числа 1234 равна 10.
«5»: Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.
    Пример:
 Введите целое число:   Введите целое число:
 1234                   1224
 Нет.		          Да.

description:
69

Последовательности

Примеры:
1, 2, 3, 4, 5, …
1, 2, 4, 7, 11, 16, …
1, 2, 4, 8, 16, 32, …

an = n

a1 = 1, an+1 = an+1

a1 = 1, an+1 = an + n

an = 2n-1

a1 = 1, an+1 = 2an

b1 = 1, bn+1 = bn+1

c1 = 2, cn+1 = 2cn

alt: Последовательности Задача: найти сумму всех элементов последовательности, которые по модулю больше 0,001:

description:
70

Последовательности

Задача: найти сумму всех элементов последовательности,
  которые по модулю больше 0,001:

Элемент последовательности (начиная с №2):

n

1

2

3

4

5

...

b

c

2

4

8

16

32

z

-1

1

-1

1

-1

b := b+1;

c := 2*c;

z := -z;

alt: Алгоритм начало S конец нет да |a| > 0

description:
71

Алгоритм

начало

S

конец

нет

да

|a| > 0.001?

S := S + a;

S := 0; b := 1; c := 2; z := -1; a := 1;

начальные значения

a := z*b/c;
b := b + 1; c := 2*c; z := -z;

первый элемент

a := 1;

S := 0;

новый элемент

изменение

alt: Программа program qq; var b, c, z: integer;

description:
72

Программа

program qq;
var b, c, z: integer;
    S, a: real;
begin
   S := 0; z := -1;
   b := 1; c := 2; a := 1;
   while abs(a) > 0.001 do begin
      S := S + a;
      a := z * b / c;
      z := - z;
      b := b + 1;
      c := c * 2;
   end;
   writeln('S =', S:10:3);
end.

z := - z;
b := b + 1;
c := c * 2;

переход к следующему слагаемому

S := 0; z := -1;
b := 1; c := 2; a := 1;

начальные значения

увеличение суммы

расчет элемента последовательности

alt: Задания «4»: Найти сумму элементов последовательности с точностью 0,001:

description:
73

Задания

«4»: Найти сумму элементов последовательности с точностью 0,001:

    Ответ:
		S = 1.157
«5»: Найти сумму элементов последовательности с точностью 0,001:
	Ответ:
		S = 1.220

alt: Цикл с постусловием Задача: Ввести целое положительное число (<2000000) и определить число цифр в нем

description:
74

Цикл с постусловием

Задача: Ввести целое положительное число (<2000000) и определить число цифр в нем.
Проблема: Как не дать ввести отрицательное число или ноль?
Решение: Если вводится неверное число, вернуться назад к вводу данных (цикл!).
Особенность: Один раз тело цикла надо сделать в любом случае => проверку условия цикла надо делать в конце цикла (цикл с постусловием).

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

alt: Цикл с постусловием: алгоритм начало конец да нет n > 0? тело цикла условие

description:
75

Цикл с постусловием: алгоритм

начало

конец

да

нет

n > 0?

тело цикла

условие ВЫХОДА

блок «типовой процесс»

ввод n

основной алгоритм

alt: Программа program qq; var n: integer; begin repeat writeln('Введите положительное число'); read(n); until n > 0;

description:
76

Программа

program qq;
var n: integer;
begin
   repeat
     writeln('Введите положительное число');
     read(n);
   until n > 0;
   ... { основной алгоритм }
end.

repeat
  writeln('Введите положительное число');
  read(n);
until n > 0;

until n > 0;

условие ВЫХОДА

Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

alt: Сколько раз выполняется цикл? a := 4; b := 6; repeat a := a + 1; until a > b; 3 раза a = 7…

description:
77

Сколько раз выполняется цикл?

a := 4; b := 6;
repeat a := a + 1; until a > b;

3 раза
a = 7

a := 4; b := 6;
repeat a := a + b; until a > b;

1 раз
a = 10

a := 4; b := 6;
repeat a := a + b; until a < b;

зацикливание

a := 4; b := 6;
repeat b := a - b; until a < b;

2 раза
b = 6

a := 4; b := 6;
repeat a := a + 2; until a < b;

зацикливание

alt: Задания (с защитой от неверного ввода) «4»:

description:
78

Задания (с защитой от неверного ввода)

«4»: Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10.
  Пример:
    Введите число >= 0:         Введите число >= 0:
    -234                        1233
    Нужно положительное число.  Нет
    Введите число >= 0:
    1234
    Да
«5»: Ввести натуральное число и определить, какие цифры встречаются несколько раз.
    Пример:
		Введите число >= 0:    Введите число >= 0:
		2323                   1234
		Повторяются: 2, 3	      Нет повторов.

alt: Программирование на языке Паскаль

description:
79

Программирование на языке Паскаль

Тема 6. Оператор выбора

alt: Оператор выбора Задача: Ввести номер месяца и вывести количество дней в этом месяце

description:
80

Оператор выбора

Задача: Ввести номер месяца и вывести количество                дней в этом месяце.
Решение: Число дней по месяцам:
28 дней – 2 (февраль)
30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь)
31 день – 1 (январь), 3 (март), 5 (май), 7 (июль), 8 (август), 10 (октябрь), 12 (декабрь)
Особенность: Выбор не из двух, а из нескольких                     вариантов в зависимости от номера месяца.

alt: Алгоритм начало конец выбор ни один вариант не подошел ввод

description:
81

Алгоритм

начало

конец

выбор

ни один вариант не подошел

ввод M

да

нет

M = 1?

D := 31;

нет

M = 2?

D := 28;

да

нет

M = 12?

D := 31;

да

 вывод D

ошибка

alt: Программа program qq; var M, D: integer; begin writeln('Введите номер месяца:'); read (

description:
82

Программа

program qq;
var M, D: integer;
begin
   writeln('Введите номер месяца:');
   read ( M );
   case M of
    2:        begin D := 28; end;
    4,6,9,11: begin D := 30; end;
    1,3,5,7,8,10,12: D := 31;
    else             D := -1;
   end;
   if D > 0 then
      writeln('В этом месяце ', D, ' дней.')
   else
      writeln('Неверный номер месяца');
end.

case M of
  2:        begin D := 28; end;
  4,6,9,11: begin D := 30; end;
  1,3,5,7,8,10,12: D := 31;
  else             D := -1;
end;

ни один вариант не подошел

alt: Оператор выбора Особенности: после case может быть имя переменной или арифметическое выражение целого типа ( integer ) или символьного типа ( char ) case i+3…

description:
83

Оператор выбора

Особенности:
после case может быть имя переменной или арифметическое выражение целого типа (integer)
   или символьного типа (char)

case i+3 of
 1: begin a := b; end;
 2: begin a := c; end;
end;

var c: char;
...
case c of
 'а': writeln('Антилопа');
 'б': writeln('Барсук');
 else writeln('Не знаю');
end;

alt: Оператор выбора Особенности: если нужно выполнить только один оператор, слова begin и end можно не писать нельзя ставить два одинаковых значения case i+3 of 1:…

description:
84

Оператор выбора

Особенности:
если нужно выполнить только один оператор, слова begin и end можно не писать
нельзя ставить два одинаковых значения

case i+3 of
 1: a := b;
 1: a := c;
end;

case i+3 of
 1: a := b;
 2: a := c;
end;

alt: Оператор выбора Особенности: значения, при которых выполняются одинаковые действия, можно группировать case i of 1: a := b; 2,4,6: a := c; 10

description:
85

Оператор выбора

Особенности:
значения, при которых выполняются одинаковые действия, можно группировать

case i of
 1:            a := b;
 2,4,6:        a := c;
 10..15:       a := d;
 20,21,25..30: a := e;
 else writeln('Ошибка');
end;

перечисление

диапазон

смесь

alt: Что неправильно? case a of 2: begin a := b; 4: a := c; end; case a of 2: a := b 4: a :=…

description:
86

Что неправильно?

case a of
 2: begin a := b;
 4: a := c;
end;

case a of
 2: a := b
 4: a := c
end;

;

case a of
 2..5: a := b;
 4: a := c;
end;

case a of
 0..2: a := b;
 6..3: a := c;
end;

3..6:

case a+c/2 of
 2: a := b;
 4: a := c;
end;

case a of
 2: a := b; d := 0;
 4: a := c;
end;

begin

end;

description:
87

Задания (с защитой от неверного ввода)

«4»: Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе.
  Пример:
    Введите номер месяца:    Введите номер месяца:
    -2                       2
    Введите номер месяца:    В этом месяце 28 дней.
    11                       Вы вводили неверно 0 раз.
    В этом месяце 30 дней.
    Вы вводили неверно 1 раз.
«5»: Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года.
    Пример:
		Введите номер месяца:
		12
		Введите день:
		25
      До Нового года осталось 6 дней.

alt: Программирование на языке Паскаль

description:
88

Программирование на языке Паскаль

Тема 7. Графика

alt: Система координат (0,0) (x,y) X

description:
89

Система координат

(0,0)

(x,y)

X

Y

x

y

alt: Управление цветом Цвет и толщина линий, цвет точек:

description:
90

Управление цветом

Цвет и толщина линий, цвет точек:
      Pen ( 1, 255, 0, 0 );
Цвет и стиль заливки:
      Brush ( 1, 0, 255, 0 );
Цвет текста:
      TextColor ( 0, 0, 255 );

толщина линии

R(red)
0..255

G(green)
0..255

B(blue)
0..255

0 – выключить
1 - включить

R

G

B

R

G

B

alt: Точки, отрезки и ломаные Pen (1, 0, 255, 0);

description:
91

Точки, отрезки и ломаные

Pen (1, 0, 255, 0); Line (x1, y1, x2, y2);

Pen (1, 0, 0, 255);
Point (x, y);

Pen (1, 255, 0, 0); MoveTo (x1, y1); LineTo (x2, y2);
LineTo (x3, y3);
LineTo (x4, y4);
LineTo (x5, y5);

alt: Фигуры с заливкой Pen (1, 0, 0, 255);

description:
92

Фигуры с заливкой

Pen (1, 0, 0, 255);
Brush (1, 255, 255, 0);
Rectangle (x1, y1, x2, y2);

Pen (1, 255, 0, 0);
Brush (1, 0, 255, 0);
Ellipse (x1, y1, x2, y2);

Brush (1, 100, 200, 255);
Fill (x, y);

description:
93

Текст

TextColor (0, 0, 255);
Brush (1, 255, 255, 0);
Font (20, 30, 600);
MoveTo (x, y);
writeln ('Привет!');

Привет!

(x, y)

размер
10 пикселей

угол
поворота

насыщенность:
 400 – нормальный
 600 – жирный

30о

description:
94

Пример

(200, 50)

(100, 100)

(300, 200)

program qq;
begin
   Pen(2, 255, 0, 255);
   Brush(1, 0, 0, 255);
   Rectangle(100, 100, 300, 200);
   MoveTo(100, 100);
   LineTo(200, 50);
   LineTo(300, 100);
   Brush(1, 255, 255, 0);
   Fill(200, 75);
   Pen(2, 255, 255, 255);
   Brush(1, 0, 255, 0);
   Ellipse(150, 100, 250, 200);
end.

alt: Задания «4»: «Лягушка» «5»: «Корона»

description:
95

Задания

«4»: «Лягушка»

«5»: «Корона»

alt: Штриховка (x1, y1) (x2, y2) N линий (N=5) h

description:
96

Штриховка

(x1, y1)

(x2, y2)

N линий (N=5)

h

Rectangle (x1, y1, x2, y2);
Line( x1+h,   y1, x1+h,   y2);
Line( x1+2*h, y1, x1+2*h, y2);
Line( x1+3*h, y1, x1+3*h, y2);
...

Rectangle (x1, y1, x2, y2);
h := (x2 – x1) / (N + 1);
x := x1 + h;
for i:=1 to N do begin
  Line( round(x), y1, round(x), y2);
  x := x + h;
end;

var x, h: real;

x

округление до ближайшего целого

x

alt: Штриховка (программа) (x1, y1) (x2, y2) h program qq; var i, x1, x2, y1, y2,

description:
97

Штриховка (программа)

(x1, y1)

(x2, y2)

h

program qq;
var i, x1, x2, y1, y2, N: integer;
   h, x: real;
begin
  x1 := 100; y1 := 100;
  x2 := 300; y2 := 200;
  N := 10;
  Rectangle (x1, y1, x2, y2);
  h := (x2 - x1) / (N + 1);
  x := x1 + h;
  for i:=1 to N do begin
    Line(round(x), y1, round(x), y2);
    x := x + h;
  end;
end.

N

alt: Как менять цвет? (x1, y1) (x2, y2)

description:
98

Как менять цвет?

(x1, y1)

(x2, y2)

Brush ( 1, c, c, c );
Fill ( ???, ??? );

серый: R = G = B

Шаг изменения c:

x

(x-1, y1+1)

hc := 255 div N;
c := 0;
for i:=1 to N+1 do begin
  Line(round(x), y1, round(x), y2);
  Brush(1, c, c, c );
  Fill(round(x)-1, y1+1);
  x := x + h; c := c + hc;
end;

var c, hc: integer;

description:
99

Штриховка

(x1, y1)

(x2, y2)

(x3, y2)

a

h

(x3+a, y1)

Line( x1+h,   y1, x1+h-a,   y2);
Line( x1+2*h, y1, x1+2*h-a, y2);
Line( x1+3*h, y1, x1+3*h-a, y2);
...

h := (x3 – x2) / (N + 1);
a := x1 – x2;
x := x1 + h;
for i:=1 to N do begin
  Line(round(x), y1, round(x-a), y2);
  x := x + h;
end;

x

x-a

alt: Штриховка (x1, y1) (x2, y2) hx hy y x y

description:
100

Штриховка

(x1, y1)

(x2, y2)

hx

hy

y

x

y

Line( x1, y1+hy,   x1+hx,   y1+hy)  ;
Line( x1, y1+2*hy, x1+2*hx, y1+2*hy);
Line( x1, y1+3*hy, x1+3*hx, y1+3*hy);
...

hx := (x2 – x1) / (N + 1);
hy := (y2 – y1) / (N + 1);
x := x1 + hx; y := y1 + hy;
for i:=1 to N do begin
  Line(x1, round(y), round(x), round(y));
  x := x + hx; y := y + hy;
end;

alt: Задания «4»: Ввести с клавиатуры число линий и построить фигуру: «5»:

description:
101

Задания

«4»: Ввести с клавиатуры число линий и построить фигуру:

«5»: Ввести с клавиатуры число линий и построить фигуру:

alt: Задания «4»: Ввести с клавиатуры число линий штриховки и построить фигуру, залив все области разным цветом

description:
102

Задания

«4»: Ввести с клавиатуры число линий штриховки и построить фигуру, залив все области разным цветом.

«5»: Ввести с клавиатуры число окружностей и построить фигуру, залив все области разным цветом.

alt: Программирование на языке Паскаль

description:
103

Программирование на языке Паскаль

Тема 8. Графики функций

alt: Построение графиков функций Задача: построить график функции y = 3 sin(x) на интервале от 0 до 2π

description:
104

Построение графиков функций

Задача: построить график функции y = 3 sin(x) на интервале от 0 до 2π.
Анализ:
максимальное значение  ymax = 3    при   x = π/2
минимальное значение   ymin = -3  при   x = 3π/2
Проблема: функция задана в математической системе координат, строить надо на экране, указывая координаты в пикселях.

alt: Преобразование координат (x,y)

description:
105

Преобразование координат

(x,y)

X

Y

x

y

Математическая
система координат

Экранная система координат (пиксели)

(xэ,yэ)

xэ

yэ

(0,0)

(0,0)

a

b

k – масштаб (длина изображения единичного отрезка на экране)

xэ = a + kx
yэ = b - ky

alt: Программа 2π h – шаг изменения x w – длина оси

description:
106

Программа

2π

h – шаг изменения x

w – длина оси ОХ в пикселях

на экране

оси координат

цикл построения графика

program qq;
const a = 50; b = 200; k = 50;
      xmin = 0; xmax = 6.2832;
var x, y, h: real;
    xe, ye, w: integer;
begin
   w := round((xmax - xmin)*k);
  Line(a-10, b, a+w, b);
  Line(a, 0, a, 2*b);
  x := xmin; h := 0.05;
  while x <= xmax do begin
    y := 3*sin(x);
    xe := a + round(k*x);
    ye := b - round(k*y);
    Point (xe, ye);
    x := x + h;
  end;
end.

alt: Как соединить точки? Алгоритм:

description:
107

Как соединить точки?

Алгоритм:

Если первая точка
  перейти в точку (xэ,yэ)
иначе
  отрезок в точку (xэ,yэ)

Программа:

начальное значение

выбор варианта действий

логическая переменная

var first: boolean;
    ...
begin
  ...
  first := True;
  while x <= xmax do begin
    ...
    if first then begin
       MoveTo(xe, ye);
       first := False;
    end
    else LineTo(xe, ye);
    ...
  end;
end.

alt: Задания «4»: Построить график функции y = x2 на интервале [-3,3]

description:
108

Задания

«4»: Построить график функции y = x2 на интервале [-3,3].

«5»: Построить график функции (эллипс)

alt: Программирование на языке Паскаль

description:
109

Программирование на языке Паскаль

Тема 9. Процедуры

alt: Процедуры Задача: Построить фигуру:

description:
110

Процедуры

Задача: Построить фигуру:
Особенность: Три похожие фигуры.
общее:    размеры, угол поворота
отличия: координаты, цвет

alt: Процедуры Процедура – это вспомогательный алгоритм, который предназначен для выполнения некоторых действий

description:
111

Процедуры

Процедура – это вспомогательный алгоритм, который предназначен для выполнения некоторых действий.
Применение:
выполнение одинаковых действий в разных местах программы
разбивка программы (или другой процедуры) на подзадачи для лучшего восприятия

alt: Процедуры Порядок разработки: выделить одинаковые или похожие действия (три фигуры) найти в них общее (размеры, форма, угол поворота) и отличия (координаты, цвет) отличия записать в…

description:
112

Процедуры

Порядок разработки:
выделить одинаковые или похожие действия (три фигуры)
найти в них общее (размеры, форма, угол поворота) и отличия (координаты, цвет)
отличия записать в виде неизвестных переменных, они будут параметрами процедуры

(x+100, y)

(x, y-60)

procedure Tr( x, y, r, g, b: integer);
begin
   MoveTo(x, y);
   LineTo(x, y-60);
   LineTo(x+100, y);
   LineTo(x, y);
   Brush(1, r, g, b);
   Fill(x+20, y-20);
end;

заголовок

MoveTo(x, y);
LineTo(x, y-60);
LineTo(x+100, y);
LineTo(x, y);
Brush(1, r, g, b);
Fill(x+20, y-20);

тело процедуры

координаты

цвет

параметры

alt: Программа program qq; begin

description:
113

Программа

program qq;

begin
   Pen(1, 255, 0, 255);
   Tr(100, 100, 0, 0, 255);
   Tr(200, 100, 0, 255, 0);
   Tr(200, 160, 255, 0, 0);
end.

(100,100)

100

60

фактические параметры

вызовы процедуры

procedure Tr( x, y, r, g, b: integer);
begin
  ...
end;

формальные параметры

процедура

alt: Процедуры Особенности: все процедуры расположены выше основной программы в заголовке процедуры перечисляются формальные параметры, они обозначаются именами, поскольку могут меняться при вызове процедуры в скобках…

description:
114

Процедуры

Особенности:
все процедуры расположены выше основной программы
в заголовке процедуры перечисляются формальные параметры, они обозначаются именами, поскольку могут меняться
при вызове процедуры в скобках указывают фактические параметры (числа или арифметические выражения) в том же порядке

procedure Tr( x, y, r, g, b: integer);

Tr (200, 100, 0, 255, 0);

x

y

r

g

b

alt: Процедуры Особенности: для каждого формального параметра после двоеточия указывают его тип если однотипные параметры стоят рядом, их перечисляют через запятую внутри процедуры параметры используются так…

description:
115

Процедуры

Особенности:
для каждого формального параметра после двоеточия указывают его тип
если однотипные параметры стоят рядом, их перечисляют через запятую
внутри процедуры параметры используются так же, как и переменные

procedure A (x: real; y: integer; z: real);

procedure A (x, z: real; y, k, l: integer);

alt: Процедуры Особенности: в процедуре можно объявлять дополнительные локальные переменные, остальные процедуры не имеют к ним доступа program qq; procedure

description:
116

Процедуры

Особенности:
в процедуре можно объявлять дополнительные локальные переменные, остальные процедуры не имеют к ним доступа

program qq;
  procedure A(x, y: integer);
  var a, b: real;
  begin
    a := (x + y)/6;
    ...
  end;
begin
  ...
end.

 procedure A(x, y: integer);
  var a, b: real;
  begin
    a := (x + y)/6;
    ...
  end;

локальные переменные

var a, b: real;

alt: Параметры-переменные Задача: составить процедуру, которая меняет местами значения двух переменных

description:
117

Параметры-переменные

Задача: составить процедуру, которая меняет местами значения двух переменных.
Особенности:
надо, чтобы изменения, сделанные в процедуре, стали известны вызывающей программе

program qq;
var x, y: integer;

begin
  x := 1; y := 2;
  Exchange ( x, y );
  writeln ( ’x = ’, x, ’ y = ’, y );
end.

procedure Exchange ( a, b: integer );
var c: integer;
begin
  c := a; a := b; b := c;
end;

эта процедура работает с копиями параметров

x = 1 y = 2

alt: Параметры-переменные Применение: таким образом процедура (и функция) может возвращать несколько значений,

description:
118

Параметры-переменные

Применение: таким образом процедура (и функция) может возвращать несколько значений,
Запрещенные варианты вызова
Exchange ( 2, 3 );     { числа }
Exchange ( x+z, y+2 ); { выражения }

procedure Exchange (       a, b: integer );
var c: integer;
begin
  c := a; a := b; b := c;
end;

var

параметры могут изменяться

alt: Задания «4»: Используя процедуры, построить фигуру

description:
119

Задания

«4»: Используя процедуры, построить фигуру.

«5»: Используя процедуры, построить фигуру.

равносторонний треугольник

alt: Программирование на языке Паскаль

description:
120

Программирование на языке Паскаль

Тема 10. Рекурсия

alt: Рекурсивные объекты Рекурсивный объект – это объект, определяемый через один или несколько таких же объектов

description:
121

Рекурсивные объекты

Рекурсивный объект – это объект, определяемый через один или несколько таких же объектов.

У попа была собака, он ее любил.
Она съела кусок мяса, он ее убил.
В ямку закопал, надпись написал:

Сказка о попе и собаке

Примеры:

Сказка о попе и собаке:

Факториал:

если

если

Рисунок с рекурсией:

alt: Дерево Пифагора Дерево Пифагора из

description:
122

Дерево Пифагора

Дерево Пифагора из N уровней – это ствол и отходящие от него симметрично два дерева Пифагора из N-1 уровней, такие что длина их стволов в 2 раза меньше и угол между ними равен 90o.

6 уровней:

alt: Дерево Пифагора Особенности: когда остановиться? деревья имеют различный наклон когда число оставшихся уровней станет равно нулю! (x1, y1) (x0, y0) α α+45o α-45o

description:
123

Дерево Пифагора

Особенности:
когда остановиться?
деревья имеют различный наклон

когда число оставшихся уровней станет равно нулю!

(x1, y1)

(x0, y0)

α

α+45o

α-45o

L

x1 = x0 + L·cos(α)
y1 = y0 – L·sin(α)

наклон «дочерних» деревьев

α + π/4
α – π/4

alt: Процедура угол α длина ствола procedure

description:
124

Процедура

угол α

длина ствола

procedure Pifagor(x0, y0, a, L: real;
                  N: integer);
const k = 0.6;    { изменение длины }
var x1, y1: real; { локальные переменные }
begin
  if N > 0 then begin
     x1 := x0 + L*cos(a);
     y1 := y0 - L*sin(a);
     Line (round(x0), round(y0),
           round(x1), round(y1));
     Pifagor (x1, y1, a+pi/4, L*k, N-1);
     Pifagor (x1, y1, a-pi/4, L*k, N-1);
  end;
end;

рекурсивные вызовы

закончить, если N=0

Рекурсивной называется процедура, вызывающая сама себя.

alt: Программа program qq; procedure

description:
125

Программа

program qq;
  procedure Pifagor(x0, y0, a, L: real;
                    N: integer);
  ...
  end;
begin
  Pifagor (250, 400, pi/2, 150, 8);
end.

угол α

длина ствола

число уровней

x0

y0

 Pifagor (250, 400, 2*pi/3, 150, 8);

alt: Используя рекурсивную процедуру, построить фигуру: «5»:

description:
126

«4»: Используя рекурсивную процедуру, построить фигуру:

«5»: Используя рекурсивную процедуру, построить фигуру:

Задания

alt: Программирование на языке Паскаль

description:
127

Программирование на языке Паскаль

Тема 11. Анимация

alt: Анимация Анимация (англ. animation ) – оживление изображения на экране

description:
128

Анимация

Анимация (англ. animation) – оживление изображения на экране.
Задача: внутри синего квадрата 400 на 400 пикселей слева направо двигается желтый квадрат 20 на 20 пикселей. Программа останавливается, если нажата клавиша Esc или квадрат дошел до границы синей области.

Проблема: как изобразить перемещение объекта на экране?
Привязка: состояние объекта задается координатами (x,y)
Принцип анимации:
рисуем объект в точке (x,y)
задержка на несколько миллисекунд
стираем объект
изменяем координаты (x,y)
переходим к шагу 1

alt: Как "поймать" нажатие клавиши?

description:
129

Как "поймать" нажатие клавиши?

Событие – это изменение в состоянии какого-либо объекта или действие пользователя (нажатие на клавишу, щелчок мышкой).
IsEvent – логическая функция, которая определяет, было ли какое-то действие пользователя.
Event – процедура, которая определяет, какое именно событие случилось.

if IsEvent then begin
  Event(k, x, y);
  if k = 1 then
    writeln('Клавиша с кодом ', x)
  else { k = 2 }
    writeln('Мышь: x=', x, ' y=', y);
end;

var k, x, y: integer;

alt: Как выйти из цикла при нажатии

description:
130

Как выйти из цикла при нажатии Esc?

program qq;
var stop: boolean;
    k,code,i: integer;
begin
  stop := False;
  repeat
    if IsEvent then begin
      Event(k, code, i);
      if (k = 1) and (code = 27) then
        stop := True;
    end;
    ...
  until stop;
end.

если что-то произошло...

что произошло?

если нажата клавиша с кодом 27 (Esc), то стоп

True, если надо остановиться

запуск цикла

alt: Процедура (рисование и стирание) procedure

description:
131

Процедура (рисование и стирание)

procedure Draw(x, y: integer; flag: boolean);
begin
  if flag then
    Brush(1, 255, 255, 0)
  else
    Brush(1, 0, 0, 255);
  Rectangle(x, y, x+20, y+20);
end;

(x, y)

(x+20, y+20)

Идеи
одна процедура рисует и стирает
стереть = нарисовать цветом фона
границу квадрата отключить (в основной программе)

рисовать (True) или нет (False)?

рисуем: цвет кисти – желтый

стираем: цвет кисти – синий

только заливка!

alt: Полная программа program qq; var x, y, k, code, i: integer; stop: boolean; procedure

description:
132

Полная программа

program qq;
var x, y, k, code, i: integer;
    stop: boolean;
  procedure Draw(x,y: integer; flag: Boolean);
  begin
  ...
  end;
begin
  Brush(1, 0, 0, 255);
  Rectangle(10, 10, 400, 400);
  Pen(0, 0, 0, 255);
  x := 10; y := 200; stop := false;
  repeat
    if IsEvent then begin
       ...
    end;
    Draw(x, y, True);
    Delay(10);
    Draw(x, y, False);
    x := x + 1;
    if x >= 400-20 then stop := true;
  until stop;
end.

процедура

начальные условия

выход по клавише Esc

выход при касании границы

синий фон

ждем 10 мс

отключить границу

alt: Два квадрата двигаются в противоположном направлении: «5»:

description:
133

«4»: Два квадрата двигаются в противоположном направлении:

«5»: Два квадрата двигаются в противоположном направлении и отталкиваются от стенок синего квадрата:

Задания

alt: Управление клавишами Задача : жёлтый квадрат внутри синего квадрата управляется клавишами-стрелками

description:
134

Управление клавишами

Задача: жёлтый квадрат внутри синего квадрата управляется клавишами-стрелками. Коды клавиш:
			влево – 37		вверх – 38		Esc – 27
			вправо – 39		вниз – 40
Проблема: как изменять направление движения?
Решение:

if {было событие} then begin
  if {нажата клавиша} then begin
    {получить код клавиши - code}
    if code = 37 then x := x – 1;
    if code = 38 then y := y – 1;
    if code = 39 then x := x + 1;
    if code = 40 then y := y + 1;
    if code = 27 then stop := True;
  end;
end;

IsEvent

Event ( k, code, i);
if k = 1 then begin

case code of
  37: x := x – 1; 38: y := y – 1;
  39: x := x + 1; 40: y := y + 1;
  27: stop := True;
end;

если было нажатие на клавишу, …

alt: Программа program qq; var x, y, k, code, i: integer; stop: boolean; begin

description:
135

Программа

program qq;
var x, y, k, code, i: integer;
    stop: boolean;

begin
  ...
  repeat
    Draw(x, y, True);
    Delay(20);
    Draw(x, y, False);

  until stop;
end.

procedure Draw(x,y: integer; flag: Boolean);
begin
  ...
end;

if IsEvent then begin
 ...
end;

процедура

основной цикл

обработка событий

alt: Как убрать мигание? Проблема : даже если не нажата никакая клавиша, квадрат перерисовывается через каждые 20 мс (мигание!)

description:
136

Как убрать мигание?

Проблема: даже если не нажата никакая клавиша, квадрат перерисовывается через каждые 20 мс (мигание!)
Что хочется: не перерисовать квадрат, если не было никакого события
Решение: нарисовать квадрат и ждать события
Новая проблема: как ждать события?
Решение новой проблемы: пустой цикл "пока не случилось событие, ничего не делай":

while not IsEvent do;

description:
137

Программа

program qq;
var x, y, k, code, i: integer;
    stop: boolean;

begin
  ...
  repeat
    Draw(x, y, True);
    while not IsEvent do;

  until stop;
end.

procedure Draw(x,y: integer; flag: Boolean);
begin
  ...
end;

Draw(x, y, False);
Event(k, code, i);
...

while not IsEvent do;

процедура

рисуем квадрат

ждем события

только теперь стираем

alt: Квадрат двигается при нажатии стрелок, однако не может выйти за границы синего квадрата: «5»:

description:
138

«4»: Квадрат двигается при нажатии стрелок, однако не может выйти за границы синего квадрата:

«5»: Квадрат непрерывно двигается, при нажатии стрелок меняет направление и отталкивается от стенок синего квадрата:

Задания

alt: Вращение Задача : изобразить модель вращения

description:
139

Вращение

Задача: изобразить модель вращения Земли вокруг Солнца.
Проблема: движение по окружности, как изменять координаты?
Решение: использовать в качестве независимой переменной (менять в цикле) угол поворота α

(x0, y0)

α

L

(x, y)

x = x0 + L·cos(α)
y = y0 – L·sin(α)

alt: Процедура procedure Draw(x, y: integer; flag: boolean); const r = 10; begin if flag then

description:
140

Процедура

procedure Draw(x, y: integer; flag: boolean);
const r = 10;
begin
  if flag then
    Brush(1, 100, 100, 255)
  else
    Brush(1, 0, 0, 0);
  Ellipse(x-r, y-r, x+r, y+r);
end;

рисовать (True) или нет (False)?

рисуем: цвет кисти – голубой

стираем: цвет кисти – черный

только заливка!

радиус Земли

(x-r, y-r)

(x,y)

(x+r, y+r)

alt: Константы и переменные program qq; const rSun = 60; { радиус

description:
141

Константы и переменные

program qq;
const rSun = 60;   { радиус Солнца}
      L  = 150;    { радиус орбиты Земли }
      x0 = 200;    { координаты центра Солнца}
      y0 = 200;
var x, y,          { координаты Земли }
    k, code, i: integer; { для Event }
    a, ha: real;       { угол поворота, шаг }
    stop: boolean; { признак остановки программы }

begin
  ...
end.

procedure Draw(x, y: integer; flag: Boolean);
begin
  ...
end;

alt: Основная программа program qq;

description:
142

Основная программа

program qq;
...
begin
  Brush(1, 0, 0, 0);  Fill(1,1);
  Brush(1, 255, 255, 0);
  Ellipse(x0-rSun, y0-rSun, x0+rSun, y0+rSun);
  a := 0; ha := 1*pi/180; { начальный угол, шаг 1o за 100 мс}
  stop := false;
  Pen(0,0,0,0);           { отключаем контуры }
  repeat
    x := round(x0 + L*cos(a));
    y := round(y0 - L*sin(a));
    Draw(x, y, True);
    Delay(100);
    Draw(x, y, False);

    a := a + ha;
  until stop;
end.

залить фон черным

рисуем Солнце

новые координаты

поворот на ha

ждем 100 мс

if IsEvent then begin
  Event(k, code, i);
  if (k = 1) and (code = 27) then stop := true;
end;

alt: Изобразить модель Солнца с двумя планетами, которые вращаются в противоположные стороны: «5»:

description:
143

«4»: Изобразить модель Солнца с двумя планетами, которые вращаются в противоположные стороны:

«5»: Изобразить модель системы Солнце-Земля-Луна:

Задания

alt: Программирование на языке Паскаль

description:
144

Программирование на языке Паскаль

Тема 12. Функции

alt: Функции Функция – это вспомогательный алгоритм (подпрограмма), результатом работы которого является некоторое значение

description:
145

Функции

Функция – это вспомогательный алгоритм (подпрограмма), результатом работы которого является некоторое значение.
Примеры:
вычисление          ,           ,
расчет значений по сложным формулам
ответ на вопрос (простое число или нет?)
Зачем?
для выполнения одинаковых расчетов в различных местах программы
для создания общедоступных библиотек функций

alt: Функции Задача: составить функцию, которая вычисляет наибольшее из двух значений, и привести пример ее использования

description:
146

Функции

Задача: составить функцию, которая вычисляет наибольшее из двух значений, и привести пример ее использования
Функция:

формальные параметры

function Max (a, b: integer): integer;
begin
  if a > b then Max := a
  else          Max := b;
end;

это результат функции

alt: Функции Особенности: заголовок начинается словом function формальные параметры описываются так же, как и для процедур можно использовать параметры-переменные в конце заголовка через двоеточие указывается тип…

description:
147

Функции

Особенности:
заголовок начинается словом function
формальные параметры описываются так же, как и для процедур
можно использовать параметры-переменные
в конце заголовка через двоеточие указывается тип результата
функции располагаются ВЫШЕ основной программы

alt: Функции Особенности: можно объявлять и использовать локальные переменные значение, которое является результатом, записывается в переменную, имя которой совпадает с названием функции ; объявлять ее

description:
148

Функции

Особенности:
можно объявлять и использовать локальные переменные
значение, которое является результатом, записывается в переменную, имя которой совпадает с названием функции; объявлять ее НЕ НАДО:

alt: Программа program qq; var a, b, max: integer; begin writeln('Введите два числа'); read(a, b); max :=

description:
149

Программа

program qq;
var a, b, max: integer;

begin
  writeln('Введите два числа');
  read(a, b);
  max := Max ( a, b );
  writeln('Наибольшее число ', max );
end.

function Max (a, b: integer): integer;
begin
  ...
end;

c

c

c

фактические параметры

вызов функции

alt: Задания «4»: Составить функцию, которая определяет сумму всех чисел от 1 до

description:
150

Задания

«4»: Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
    Пример:
	 Введите число:
	 100
	 сумма = 5050
«5»: Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …)
    Пример:
             	Введите номер клетки:
	 28
	 На 28-ой клетке 134217728 зерен.

alt: Задания (вариант 2) «4»: Составить функцию, которая определяет наибольший общий делитель двух натуральных и привести пример ее использования

description:
151

Задания (вариант 2)

«4»: Составить функцию, которая определяет наибольший общий делитель двух натуральных и привести пример ее использования.
    Пример:
	 Введите два числа:
	 14 21
	 НОД(14,21)=7
«5»: Составить функцию, которая вычисляет функцию синус как сумму ряда (с точностью 0.001)

    Пример:
             	Введите угол в градусах:
	 45
	 sin(45) = 0.707

x в радианах!

alt: Логические функции Задача: составить функцию, которая определяет, верно ли, что заданное число – простое

description:
152

Логические функции

Задача: составить функцию, которая определяет, верно ли, что заданное число – простое.
Особенности:
ответ – логическое значение (True или False)
результат функции можно использовать как логическую величину в условиях (if, while)
Алгоритм: считаем число делителей в интервале от 2 до N-1, если оно не равно нулю – число составное.

count := 0;
for i := 2 to N-1 do
  if N mod i = 0 then
    count := count + 1;
if count = 0 then
     { число N простое}
else { число N составное }

for i := 2 to N-1 do
  if N mod i = 0 then
    count := count + 1;

alt: Логические функции program qq; var

description:
153

Логические функции

program qq;
var N: integer;

begin
  writeln('Введите целое число');
  read(N);
  if Prime(N) then
       writeln(N, ' – простое число')
  else writeln(N, ' – составное число');
end.

function Prime (N: integer): boolean;
var count, i: integer;
begin
  i := 2; count := 0;
  while i*i <= N do begin
    if N mod i = 0 then count := count + 1;
    i := i + 1;
  end;
  Prime := (count = 0);
end;

вызов функции

результат – логическое значение

условие – это логическое значение

alt: Задания «4»: Составить функцию, которая определяет, верно ли, что сумма его цифр – четное число

description:
154

Задания

«4»: Составить функцию, которая определяет, верно ли, что  сумма его цифр – четное число.
    Пример:
	 Введите число:
	 136
     Сумма цифр четная.
«5»: Составить функцию, которая определяет, верно ли, что в заданном числе все цифры стоят по возрастанию.
	Пример:
             	Введите число:
	 258
	 Верно.

Введите число:
528
Неверно.

Введите число:
245
Сумма цифр нечетная.

alt: Программирование на языке Паскаль

description:
155

Программирование на языке Паскаль

Тема 13. Случайные числа

alt: Случайные числа Случайные явления : везде… бросание монеты («орел» или «решка») падение снега броуновское движение помехи при телефонной связи шум радиоэфира

description:
156

Случайные числа

Случайные явления: везде…
бросание монеты («орел» или «решка»)
падение снега
броуновское движение
помехи при телефонной связи
шум радиоэфира
Случайные числа – это такая последовательность чисел, для которой невозможно предсказать следующее даже зная все предыдущие.
Проблема: как получить на компьютере?
Возможные решения:
использовать внешний источник шумовых помех
с помощью математических преобразований

alt: Псевдослучайные числа Псевдослучайные числа – это такая последовательность чисел, которая обладает свойствами случайных чисел, но каждое следующее число вычисляется по заданной формуле

description:
157

Псевдослучайные числа

Псевдослучайные числа – это такая последовательность чисел, которая обладает свойствами случайных чисел, но каждое следующее число вычисляется по заданной формуле.
Примеры:
Случайные целые числа [0,m) (линейный конгруэнтный метод)

Случайные вещественные числа [0,1]

Литература:
Д. Кнут, Искусство программирования для ЭВМ, т.2.

дробная часть числа

a, c, m - целые числа

простое число

230-1

например,  k = 5

alt: Распределение случайных чисел Модель : снежинки падают на отрезок [a,b] распределение равномерное неравномерное

description:
158

Распределение случайных чисел

Модель: снежинки падают на отрезок [a,b]

распределение

равномерное

неравномерное

alt: Распределение случайных чисел Особенности : распределение – это характеристика всей последовательности , а не одного числа равномерное распределение одно, компьютерные датчики (псевдо)случайных чисел дают равномерное…

description:
159

Распределение случайных чисел

Особенности:
распределение – это характеристика всей последовательности, а не одного числа
равномерное распределение одно, компьютерные датчики (псевдо)случайных чисел дают равномерное распределение
неравномерных – много
любое неравномерное можно получить с помощью равномерного

a

b

a

b

alt: Генератор случайных чисел в Паскале

description:
160

Генератор случайных чисел в Паскале

Целые числа в интервале [0,N]:
  var x: integer;
  ...
  x := random ( 100 );  { интервал [0,99] }
Вещественные числа в интервале [0,1]
  var x: real;
  ...
  x := random;         { интервал [0,1] }

alt: Случайные числа Задача : заполнить прямоугольник 400 на 300 пикселей равномерно точками случайного цвета

description:
161

Случайные числа

Задача: заполнить прямоугольник 400 на 300 пикселей равномерно точками случайного цвета
Как получить случайные координаты точки?
x := random ( 400 );
y := random ( 300 );
Как добиться равномерности?
    обеспечивается автоматически при использовании     функции random
Как получить случайный цвет?
Pen (1, random(256), random(256), random(256));
Point ( x, y );

alt: Программа program qq; var x, y, k, code, i: integer; stop: boolean; begin stop :=

description:
162

Программа

program qq;
var x, y, k, code, i: integer;
    stop: boolean;
begin
  stop := False;
  repeat
    x := random(400);
    y := random(300);
    Pen(1, random(256), random(256), random(256));
    Point(x, y );
    if IsEvent then begin
      Event(k, code, i);
      if (k = 1) and (code = 27) then stop := True;
    end;
  until stop;
end.

случайные координаты

случайный цвет

выход по клавише Esc

alt: Ввести с клавиатуры координаты углов прямоугольника и заполнить его точками случайного цвета

description:
163

«4»: Ввести с клавиатуры координаты углов прямоугольника и заполнить его точками случайного цвета.

«5»: Заполнить треугольник точками случайного цвета (равномерно или неравномерно).
Подсказка: возьмите равнобедренный треугольник с углом 45о.

Задания

(100,100)

(300,200)

alt: 164 Конец фильма

description:
164

Конец фильма

title: Программирование на языке Паскаль


file_name: Земля и космос Эратосфен ЭРЫ .ppt

alt: Как называется наука, изучающая

description:
Как называется наука, изучающая Землю?

ЭРАТОСФЕН – «ОТЕЦ ГЕОГРАФИИ»

GEOGRAFIA

alt: Тема1. Земля и космос.

description:
Тема1.
Земля и космос.

alt: Земля в космическом пространстве

description:
Земля
в космическом
 пространстве

alt: Земля 30км/c 1. Земля-планета Солнечной системы

alt: Свет от Солнца доходит за 8,3 мин

description:
109 раз

Свет от Солнца  доходит за 8,3 мин.

Расстояние от Солнца  14960000 км = а.е. (астрономическая единица)

alt: Луна находится на расстоянии 400тыс

description:
Луна находится
на расстоянии 400тыс. км. от Земли.

alt: гравитация

description: гравитация

alt: Форма Земли

description: Форма Земли

alt: Форма Земли ГЕОИД

description:
Форма Земли

ГЕОИД

alt: 6371км 2. Размер Земли

description:
6371км

2. Размер Земли

description:
40000 км

Метр- 1/400000000 км

description:
Южный полюс

Северный полюс

Точки выхода воображаемой земной оси на  поверхность называются географическими полюсами.

3. Положение Земли
в пространстве

description:
Лишь ПОЛЯРНАЯ ЗВЕЗДА
Не стремится никуда!
И в любое время года
В самом центре хоровода Сможешь ты её найти,
Если сбился вдруг с пути.
Ось земная на неё
Направляет остриё.
Можешь быть уверен:
Где она - там СЕВЕР!
Та звезда - не просто точка,
А нога МИШУТКИ-дочки! Черный нос МЕДВЕДЯ-мамы
На неё укажет прямо!

Звезда-гигант.

В 120 раз больше Солнца.

Свет от нее доходит до Земли за 472 года.

description:
4. Положение
Земли
во времени

Земля существует во Вселенной 4,5 млрд.лет

alt: 3 млрд. лет формировалась поверхность планеты.

alt: Долгое время жизнь была скрытой

description: Долгое время жизнь была скрытой.

description: Всю  историю существования нашей планеты принято делить на основные этапы - эры. Эры  делятся на периоды.

title: Земля эры


file_name: Герои Советского Союза Елчева Лиля 2 А т к.pptx

alt: Герои Советского Союза и их подвиги

description: Герои Советского Союзаи их подвиги

description:
Зоя Анатольевна Космодемьянская (1923-1941) 18 лет

партизанка, красноармеец диверсионно-разведывательной группы штаба Западного фронта.
Первая женщина, удостоенная звания Герой Советского Союза (посмертно) во время Великой Отечественной войны.
Её образ отражён в художественной литературе, публицистике, кинематографе, живописи, монументальном искусстве, музейных экспозициях.

description:
Партизаны получили задание сжечь в течение 5—7 дней 10 населённых пунктов, в их числе деревню Петрищево (Рузский район Московской области).
27 ноября в 2 часа ночи Борис Крайнов, Василий Клубков и Зоя Космодемьянская подожгли в Петрищеве три дома, в которых располагались немецкие офицеры и солдаты; при этом у немцев погибло 20 лошадей.

description: С наступлением вечера 28 ноября, при попытке поджога Космодемьянская была схвачена. На допросе ничего не сказала и назвалась Таней. Была зверски замучена… и 29 ноября повешена фашистами…

description:
Александр Анатольевич Космодемьянский (1925-1945) 19 лет

Воевал на фронтах Великой Отечественной войны с октября 1943 года

alt: Погиб при штурме населённого пункта

description:
 Погиб при штурме населённого пункта Фирбрюдеркруг на Земландском полуострове
   западнее нынешнего Калининграда.

alt: Иван Васильевич Панфилов (1893-1941)

description:
Иван Васильевич Панфилов(1893-1941)

Выдающийся советский военачальник, генерал-майор, Герой Советского Союза

description: Прославился во время боев за Москву осенью 1941 г. в районе Волоколамска. Проявив личную храбрость и героизм, Панфилов умело организовал сопротивление частей 316-й стрелковой дивизии наступлению вермахта на волоколамском направлении. Солдаты Панфилова стояли насмерть против превосходящих сил противника, удерживая позиции.

description:
Подвиг 28 панфиловцев

Бойцы 4-й роты 2-го батальона 1075-го стрелкового полка 316-й дивизии во главе с политруком В.Г. Клочковым, занимавшие оборону в районе разъезда Дубосеково, 16 ноября остановили на 4 часа продвижение 50 вражеских танков, уничтожив 18 из них. Именно это событие вошло в историю как подвиг 28 героев-панфиловцев.

alt: Крючков Абрам Иванович 16. Максимов

description:
15. Крючков Абрам Иванович16. Максимов Николай Гордеевич17. Митин Гавриил Степанович18. Митченко Никита Андреевич19. Москаленко Иван Васильевич20. Натаров Иван Моисеевич
21. Петренко Григорий Алексеевич22. Сенгирбаев Мусабек23. Тимофеев Дмитрий Фомич24. Трофимов Николай Игнатьевич25. Шадрин Иван Демидович26. Шемякин Григорий Мелентьевич27. Шепетков Иван Алексеевич28. Шопоков Дуйшенкул

1. Ананьев Николай Яковлевич  2. Безродных Григорий Михеевич
3. Белашев Николай Никанорович
4. Бондаренко Яков Александрович 5. Васильев Илларион Романович6. Добробабин Иван Евстафьевич7. Дутов Петр Данилович8. Емцов Петр Кузьмич9. Есебулатов Нурсутбай (Нурсултан)10. Калейников Дмитрий Митрофанович
11. Клочков Василий Георгиевич 12. Кожубергенов Даниил Александрович
13. Конкин Григорий Ефимович14. Косаев Аликбай (Алмембай)

alt: Василий Георгиевич Клочков (1911-1941) 30 лет

description:
Василий Георгиевич Клочков(1911-1941)  30 лет

Военный комиссар 4-й роты 2-го батальона 1075-го стрелкового полка 316-й стрелковой дивизии 16-й армии Западного фронта, политрук, Герой Советского Союза. Награждён орденом Ленина, двумя орденами Красного Знамени.

alt: Звание Героя Советского Союза Василию

description: Звание Героя Советского Союза Василию Георгиевичу Клочков присвоено посмертно 21 июля 1942 года за беззаветное мужество и железную стойкость, проявленные при отражении атаки пятидесяти вражеских танков.Погиб 16 ноября 1941 года под Волоколамском у разъезда Дубосеково.На всю страну стали известны его легендарные слова "Велика Россия, а отступать некуда - позади Москва!". В критическую минуту боя младший политрук Клочков В.Г. первым бросился со связкой гранат под вражеский танк, подорвал его и погиб смертью героя.

alt: В родном для Василия Клочкова селе

description: В родном для Василия Клочкова селе Синодском ему установлен памятник

description:
Дмитрий Михайлович Карбышев (1880-1945) 64 года

генерал-лейтенант инженерных войск, профессор Военной академии Генерального штаба, доктор военных наук, Герой Советского Союза.

description: В начале июня 1941 года Д.М. Карбышев был командирован в Заподный Особый военный округ. Великая Отечественная война застала его в штабе 3-й армии в Гродно. Через 2 дня он перебрался в штаб 10-й армии. 27 июня штаб армии оказался в окружении. В августе 1941 года при попытке выйти из окружения генерал Карбышев был тяжело контужен в бою в районе Днепра, у деревни Добрейка Могилёвской области Белоруссии. В бессознательном состоянии был захвачен в плен.   Карбышев содержался в немецких концентрационных лагерях: Замосць, Хаммельбур, Флоссенбург, Майданек, Аушвиц, Заксенхаузен и Маутхаузен. Неоднократно от администрации лагерей получал предложения сотрудничать.   Не смотря на свой возраст был одним из активных руководителей лагерного движения сопротивления. В ночь на 18 февраля 1945 года в концлагере Маутхаузен (Австрия), в числе других заключённых (около 500 человек), был облит водой на морозе и погиб. Стал символом несгибаемой воли и стойкости.   16 августа 1946 года Дмитрию Михайловичу Карбышеву было посмертно призвано звание героя Советского Союза.   Награждён орденами Ленина, Красного Знамени и Красной Звезды.

alt: ЧЕРЕПАНОВ СЕРГЕЙ МИХАЙЛОВИЧ (1916-1944)

description:
ЧЕРЕПАНОВ СЕРГЕЙ МИХАЙЛОВИЧ (1916-1944)

Герой Советского Союза. Ушел на фронт добровольцем в августе 1942 г. Участвовал в боях на Волховском и Ленинградском фронтах.

alt: Ленинградский фронт) Черепанов

description: 24 января 1944 г. командир отделения 1249-го стрелкового полка 377-й стрелковой дивизии (59-я армия, Ленинградский фронт) Черепанов С. М. первым ворвался в деревню Поддубье (Новгородская обл.) и гранатой уничтожил пулемет противника. Был ранен в грудь, но не покинул поле боя. После нескольких контратак фашистов сержант Черепанов остался один - его товарищи были убиты. Метким огнем из автомата он продолжал уничтожать захватчиков, наседавших со всех сторон. А когда закончились патроны, последней гранатой подорвал себя и окружающих его врагов. Это случилось 24.01.1944 г. С. М. Черепанов похоронен в с. Поддубье Новгородской области.

alt: ЧЕРКАСОВ АЛЕКСЕЙ ИВАНОВИЧ (1914-1980)

description:
ЧЕРКАСОВ АЛЕКСЕЙ ИВАНОВИЧ (1914-1980)

Герой Советского Союза. В 1942 году Кожвинским райвоенкоматом (ныне Печорский городской) был призван в Красную Армию, стал военным сапером.

description: На фронте Великой Отечественной войны с февраля 1943 г. Возводил переправы, расчищал в минных полях проходы для танков, артиллерии, пехоты под Воронежем, в Курской битве, в боях за Украину, в Венгрии, Румынии, Чехословакии, Австрии. Командуя отделением 392-го саперного батальона (232-я стрелковая дивизия, Воронежский фронт), старший сержант Черкасов проявил геройство при форсировании Днепра в районе Вышгорода (Киевская обл.). Он одним из первых в батальоне в начале октября 1943 г. ночью под огнем противника переправил на лодке свое отделение через Днепр и прочно закрепился на правом берегу реки. Отвлекая на себя огонь неприятеля, способствовал успешному началу форсирования реки. Смело действовал на самой переправе, оперативно ремонтируя плавсредства, обеспечивая тем самым закрепление подразделений на правобережном плацдарме. 10 января 1944 г. старшему сержанту А. И. Черкасову присвоено звание Героя Советского Союза с вручением ордена Ленина и медали "Золотая Звезда". Награжден орденами Трудового Красного Знамени, Отечественной войны I степени, медалями.После демобилизации в 1945 г. жил в шахтерском городке Горское (Донбасс). Умер 07.08.1980г. Захоронен в г. Горское.

alt: ШЕВЕЛЕВ АНТОН АНТОНОВИЧ (1918-1981)

description:
ШЕВЕЛЕВ АНТОН АНТОНОВИЧ (1918-1981)

Герой Советского Союза. На фронтах Великой Отечественной войны с 1942 г. - в 455-м (30 гвардейском) авиационном полку бомбардировочной авиации дальнего действия. К октябрю 1944 г. гвардии капитан Шевелев совершил 222 боевых вылета на бомбардировку в тыл противника, 103 раза участвовал в бомбардировке крупных вражеских объектов по заданию командования Волховского, Ленинградского, Калининского, 1, 2, 3-го Белорусских фронтов.
16 марта 1943 г. самолет Шевелева, вылетевший на задание, был атакован истребителем противника. Самолет получил 30 пробоин, стал трудноуправляемым. Радист и стрелок были ранены. Однако А. А. Шевелев, проявив исключительное мужество, дошел до цели и успешно выполнил задание, мастерски произвел на своем аэродроме посадку самолета на одном колесе, спас самолет и жизнь членов экипажа.
5 ноября 1944 г. капитану А. А. Шевелеву присвоено звание Героя Советского Союза с вручением ордена Ленина и медали "Золотая Звезда". Награжден двумя орденами Боевого Красного Знамени, Отечественной войны I степени, медалями.

alt: ГАВРИЛОВ ИВАН САМСОНОВИЧ (1913-1944)

description:
ГАВРИЛОВ ИВАН САМСОНОВИЧ (1913-1944)

Герой Советского Союза. Член ВКП(б) с 1939 г. Призван в Красную Армию в марте 1943 г. Кожвинским райвоенкоматом. В октябре 1943 г. командир И. С. Гаврилов с бойцами своего отделения в числе первых скрытно от противника переправились на правый берег Днепра в районе Жуковки (южная окраина г. Киева). Внезапным броском выбили фашистов с занимаемых позиций и, отвлекая огонь на себя, помогли другим подразделениям успешно форсировать Днепр. За умелое командование отделением в бою, за отражение пяти контратак превосходящих сил противника и проявленное при этом мужество и героизм И. С. Гаврилову 29 октября 1943 г. присвоено звание Героя Советского Союза с вручением ордена Ленина и медали "Золотая Звезда". Он был награжден медалью "За отвагу". В одном из боев И. С. Гаврилов был тяжело ранен и 2 января 1944 г. скончался во фронтовом госпитале.

alt: Работу выполняла студентка группы 2

description: Работу выполняла студентка группы 2 А т⁄к Елчева Лилия

title: Кокурсная презентация "Был месяц май"


file_name: Красная книга..pptx

description:
		Специальная комиссия составила список животных и растений, которые находятся на грани исчезновения, и список редких видов.
Учёные решили назвать
этот список
Красной книгой.

Что такое красная книга?

description:
		Красный цвет – сигнал тревоги, опасности, предупреждения.
		Он, как красный сигнал светофора, предупреждает: «Осторожно! Может случиться беда».

Почему книгу назвали именно «Красная книга»?

description:
Животные из Красной книги.

Выбирай любую
маленькую картинку.

description:
Красный волк

Длина тела до 1 метра, вес от 12 до 21 кг, внешне напоминает лису. Обитает красный волк на Дальнем Востоке, в Китае и Монголии, предпочитает передвигаться небольшими стаями — от 8 до 15 особей.

description:
Амурский тигр

Амурский (уссурийский) тигр — редкий подвид кошачьих, который сохранился на территории нашей страны. В длину могут достигать два метра. Хвост у них тоже длинный – до одного метра.

alt: Лесная соня Небольшого размера животные

description:
Лесная соня

Небольшого размера животные. Длина тела
до 11,5 см, хвоста до 10 см. Хвост пушистый, тёмно-серого цвета. В коже хвоста присутствует большое количество кровеносных сосудов.

description:
Снежный барс (ирбис)

Ирбис отличается тонким, длинным, гибким телом, относительно короткими лапами, небольшой головой и очень длинным хвостом. Окраска меха светлая дымчато-серая с кольцеобразными и сплошными тёмными пятнами.

description:
Манул

Дикий кот с очень пушистой и длинной шерстью. Голова у манула небольшая, широкая и уплощённая, с маленькими округлыми ушками, которые широко расставлены. Глаза жёлтые, зрачки при ярком свете остаются круглыми.

description:
Сивуч

Трёхметровый тихоокеанский ушастый тюлень. Обитает на Курильских и Командорских островах, Камчатка и Аляска. Длина тела взрослого самца сивуча может достигать трёх метров, а вес — одной тонны!

description:
Беломордый дельфин

Короткоголовый дельфин с черными боками и плавниками , длина тела около трёх метров. Маленький клювик до 5 см делает их милыми и необычными.

alt: Зелёная черепаха Самые большие морские черепахи очень красивы в естественной среде, когда пасутся в прибрежных водах в густых водорослях или рассекают водную гладь мощными передними…

description:
Зелёная черепаха

Самые большие морские черепахи очень красивы в естественной среде, когда пасутся в прибрежных водах в густых водорослях или рассекают водную гладь мощными передними лапами, снабженными ластами.

description:
Никогда и нигде не наноси вред и не уничтожай животных;
Никогда и нигде не лови детенышей диких животных и не уноси домой;
Никогда не забывай, что животные – наши друзья;
Никогда и нигде не подходи близко к жилищам животных и не разрушай их.

Помни!
   Животные нуждаются в нашей защите.

Памятка по охране животных.

alt: Спасибо за внимание!

description: Спасибо за внимание!

title: Презентация по окружающему миру " Красная книга"


file_name: Человек - Личность.pptx

alt: Человек – личность Урок обществознания в 6 классе

description:
Человек – личность

      Урок обществознания в
 6 классе. (ФГОС)

СЕНЕКА ЛУЦИЙ АННЕЙ

alt: План уроков (тема изучается на 2х уроках) 1

description:
План уроков(тема изучается на 2х уроках)

1. Что такое личность.
2. Индивидуальность – плохо или хорошо?
3. Сильная личность – какая она

alt: Определяем план действий (обсуди с одноклассниками)

description:
Определяем план действий (обсуди с одноклассниками)

Почему человек не только биологическое, но и социальное существо?

Проблема урока
Почему личностью может стать только человек  среди людей?

Что нам надо узнать, чтобы решить проблему урока?

alt: Версии появления человека на Земле 1

description:
Версии появления человека на Земле

1. божественная
2. космическая
3. эволюционная

alt: Божественная человек, как и все живое на нашей планете, был создан

description:
Божественная

человек, как и все живое на нашей планете, был создан Богом

Космическая

жизнь на нашу планету была привнесена из космоса

Эволюционная

человек возник в ходе естественной и длительной эволюции жизни на Земле

alt: Древнейшие люди появились на Земле около 3 миллионов лет тому назад в

description:
Древнейшие люди появились на Земле около 3 миллионов лет тому назад в Африке.
По мнению ученых, именно трудовая деятельность способствовала выделению человека из мира животных.

alt: Формирование человека современного вида шло следующими путями: 1

description:
Формирование человека современного вида шло следующими путями:

1.	Прямохождение.
2.	Совершенствование руки.
3.	Совершенствование мозга.
4.	Формирование трудовых навыков.

description:
«homo sapiens»(человек разумный) появился около 40 тыс. лет тому назад.

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

alt: Человек – высшая ступень развития живых организмов на

description:
Человек – высшая ступень развития живых организмов на Земле.
Человек - живое существо, обладающее даром мышления и речи, способностью создавать орудия и пользоваться ими в процессе общественного труда.
Человек – БИОСОЦИАЛЬНОЕ СУЩЕСТВО.

alt: Потребность в питании. Потребность в заботе старших

description:
Потребность в питании.

Потребность в заботе старших.

Потребность в безопасности.

Люди так же, как и животные, проявляют заботу о потомстве.

В человеке много биологических (природных)  качеств.

alt: Как биологический вид Подчиняется биофизическим, биохимическим, физиологическим закономерностям развития (сходство с другими животными): строение и развитие организма (рост, старость, смерть) дыхание, питание, размножение, выкармливание детей…

description:
Как биологический вид

Подчиняется биофизическим, биохимическим, физиологическим закономерностям развития (сходство с другими животными):
строение и развитие организма (рост, старость, смерть)
дыхание, питание, размножение, выкармливание детей молоком
инстинкты, эмоции
биологические
потребности

alt: Как биологический вид Обладает особенностями (отличие от животных): прямостояние и прямохождение свободные верхние конечности мышление и членораздельная речь разум и самосознание

alt: Развивается речь. Развивается абстрактное мышление

description:
Развивается речь.

Развивается абстрактное мышление.

Развивается воображение.

Человек – существо социальное.

У человека в течение жизни
 формируются  социальные качества.

alt: Характеристика человека как социального субъекта 1

description:
Характеристика человека как социального субъекта

1. Способность изготавливать орудия труда и использовать их, как способ производства материальных благ.
2. Способность к социальной целенаправленной творческой деятельности.
3. Способность преобразовывать окружающую действительность, создавать необходимые ему материальные и духовные ценности.
4. Сознание и разум.
5.Свобода и ответственность.

alt: Основные отличия человека от животного: 1

description:
Основные отличия человека от животного:

1. человек обладает мышлением и членораздельной речью
2. человек способен к сознательной целенаправленной творческой деятельности
3. человек в процессе своей деятельности преобразует окружающую его действительность, создает необходимые ему материальные и духовные блага и ценности
4. человек способен изготавливать орудия труда и использовать их как средство производства материальных благ
5. человек удовлетворяет не только свои материальные, но и духовные потребности.

description:
Выберите из приведенного списка то, что отличает человека от животного, и то, что объединяет их и присуще им обоим:

1) Наличие эмоций
2) Инстинктивные действия
3) Условные рефлексы
4) Обладание сознанием
5) Наличие мотивов, целей, способов
6) Осуществление замещения реальных действий условными
7) Овладение опытом
8) Письменный язык
9) Прямохождение
10) Забота о потомстве
11) Деятельность всегда методически обоснована,
направлена на формирование системы знаний, умений, навыков

description:
Человек

Существо уникальное (открытое миру, неповторимое, духовно незавершенное)

Существо универсальное (способное к любому виду деятельности)

Существо целостное (интегрирует в себе физическое, психическое и духовное начало)

description:
Человек и животное

Приспособление к природной среде путем ее масштабной переработки, ведущей к созданию искусственной среды существования человека.

Приспособление к условиям среды прежде всего путем перестройки собственного организма, механизмом которой являются мутационные изменения, закрепляемые средой

Деятельность человека

Активность животного

alt: Человек и животное Целеполагание в деятельности

description:
Человек и животное

Целеполагание в деятельности
Сознательная постановка целей, способность анализировать ситуацию
Продуктивный, творческий, созидательный характер

Целесообразность в активности
Подчинение инстинкту, действия изначально запрограммированы
Потребительский характер: не создает ничего нового по сравнению с тем, что дано природой

Деятельность человека

Активность животного

description:
Человек и животное

Воздействие на среду специально сделанными средствами труда, создание искусственных объектов, которые усиливают физические возможности человека

Воздействие на среду осуществляется, как правило, органами тела, данными природой.
Отсутствие способности изготавливать орудия труда с помощью ранее сделанных средств

Деятельность человека

Активность животного

alt: Рубрика – «ВСПОМНИ»…… Что происходило с детьми, которых воспитывали животные?

description:
Рубрика – «ВСПОМНИ»……

Что происходило с детьми,
которых воспитывали животные?

alt: Работа с вопросами рубрики «Вспомни»

description:
Работа с вопросами рубрики «Вспомни»

Что происходило с детьми, которые воспитывались животными? Какие свойства человека относятся к Биологическим?

alt: Рубрика – «Обсудим вместе»… Что нужно ребёнку для того, чтобы он развивался как человек?

description:
Человек без общества остается биологическим существом, неким «маугли», которому присущи исключительно животные привычки.
Чтобы стать человеком разумным, ребенок должен воспитываться людьми и получить человеческое воспитание

alt: Что нужно ребенку для того, чтобы он развивался как человек?

description:
Что нужно ребенку для того, чтобы он развивался как человек?
Чем человек отличается от животных?
Обобщение ответов учащихся:
Человек обладает мышлением и членораздельной речью
Человек преобразует окружающую действительность, создает необходимые ему материальные и духовные блага и ценности
Человек воспроизводит не только свою биологическую, но и социальную сущность и поэтому должен удовлетворять не только свои материальные, но и духовные потребности
Человек способен изготавливать орудия труда и использовать их как средство производства материальных благ

alt: Работа с текстом учебника – Что такое личность, с последующей беседой

description:
Работа с текстом учебника – Что такое личность,  с последующей беседой

Что и кто воздействует на человека в процессе его жизни? Как влияют?

alt: Качества личности воспитывает то, что нас окружает: - семья, - школа, - друзья, - игра, - труд, - ученье

description: Качества личности воспитывает то, что нас окружает:- семья,                       - школа,- друзья,- игра,- труд,- ученье.

description:
ЛИЧНОСТЬ – это совокупность качеств человека, которые приобретаются в процессе жизни в обществе,
в деятельности и общении с другими людьми

Что такое личность ?

description:
Толкования понятия - личность

Личность – это результат социального становления индивида путем преодоления трудностей и накопления жизненного опыта.
Личность – это человек, который проявляет активную жизненную позицию, несет ответственность за свой выбор и свою деятельность.
Личность – это сущность человека, самое главное, что присуще данному человеку, совокупность его внутренних свойств как существа общественного.
Вопросы: - Какое из определений Вам кажется более точным? Почему?
- Какое определение дает нам учебник?

alt: Каждый человек — личность. Черты личности могут быть:

description:
Каждый человек — личность.Черты личности могут быть:

Отрицательные
(пороки)
неуважение                         циагрессивность                     грубость        раздражительность            игнорирование

Положительные (достоинства)
отзывчивостьуважение                           состраданиемужествостарательность                   желание помочьтерпимость                          чуткость
настойчивость
воля                                     целеустремлённость

description:
Личность обладает СОЗНАНИЕМ

СОЗНАНИЕ –это отношение человека к миру, понимание того, что он делает, как живет, о чем мечтает.
Сознание свойственно только человеку, поэтому и личностью становится ТОЛЬКО ЧЕЛОВЕК

alt: Личность способна к ДЕЯТЕЛЬНОСТИ

description:
Личность способна к ДЕЯТЕЛЬНОСТИ

ТРУДОВАЯ ДЕЯТЕЛЬНОСТЬ

УЧЕБНАЯ ДЕЯТЕЛЬНОСТЬ

description:
Чтобы деятельность протекала успешно, человек приобретет необходимые умения и навыки

Какие навыки и качества нужны для отличной учебы ?

alt: Картинная галерея Составь словесные портреты девушек, изображенных на полотнах

description:
      Картинная галереяСоставь словесные портреты девушек, изображенных на полотнах В.А.Серова и З.Е. Серебряковой. Можно ли по их внешнему виду представить черты их характера?

?

alt: Индивидуальность –неповторимые, уникальные черты человека

description:
Индивидуальность –неповторимые, уникальные черты человека

Черты индивидуальности проявляются во всем: в деятельности, поведении, эмоциях и чувствах

description:
       Индивидуальность – это совокупность характерных особенностей и свойств, отличающих одного индивида от другого .

Что значит «белая ворона»?
Индивидуальность – плохо или хорошо?

alt: Индивидуальность – плохо или хорошо?

description:
Индивидуальность – плохо или хорошо?

Индивидуальность – неповторимое своеобразие, отличительные особенности (внутренние и внешние)от других людей

alt: Создатель: Спиридонова Н.Н.- учитель

description: Создатель: Спиридонова Н.Н.- учитель МОУ "СОШ №4"

alt: Рубрика «Путешествие в прошлое»

description:
Рубрика «Путешествие в прошлое»

Читаем текст на стр. 13

Герострат поджег храм Артемиды. Зачем?
Герострат сжег храм Артемиды в ту ночь, когда на свет появился Александр Македонский. Вспоминаем историю строительства и разрушения храма Артемиды

alt: Удалось ли художнику передать индивидуальность каждого персонажа картины?

description:
Удалось ли художнику передать индивидуальность каждого персонажа картины?  В чем это проявилось?

В.А. Серов. Петр I

alt: Сильная личность – кто она? Валерий

description:
Сильная личность – кто она?

Валерий Брумель - спортсмен

alt: Рубрика – «Жил на свете человек»

description:
Рубрика – «Жил на свете человек»

Людвиг ван Бетховен

alt: Сильная личность достоинства пороки ? ?

description:
Сильная личность

    достоинства

        пороки

?

     ?

alt: Сильная личность должна быть нравственной и иметь положительные черты

description:
Сильная личность должна быть нравственной и иметь положительные  черты.
Нужно уважать себя, но к своим поступкам относиться критически…
Индивидуальность это хорошо! Человек должен иметь собственные черты  и отличаться от других, это делает его интересным…

ВЫВОДЫ:

alt: Составь предложение из «рассыпавшихся слов»

description:
Составь предложение из «рассыпавшихся слов»   Рождается, существо,        как, личность, как,          человек, и, биологическое,      развивается

Человек рождается , как биологическое существо, а развивается как личность

alt: Закрепление материала Герои фильма «Приключения

description:
Закрепление материала

      Герои фильма «Приключения Электроника» мальчик Сережа Сыроежкин и робот Электроник внешне были похожи друг на друга.
      Что нужно знать про героев, чтобы определить, чем различаются их личности?

alt: Что такое наследственность? Можно ли влиять на наследственность?

description:
2-й урок темы

Что такое наследственность?
Можно ли влиять на наследственность?

alt: Человек – существо биосоциальное

description:
Человек – существо биосоциальное

   Составь предложение из слов:

существо, рождается, как, личность, человек, как, биологическое развивается.

Человек рождается, как существо биологическое, развивается как личность.

description:
Распределите положительные и отрицательные качества личности:

отзывчивость, сострадание, игнорирование, неуважение, агрессивность, раздражительность, мужество, цинизм, уважение, грубость.

alt: Проверь себя Установи соответствие между понятиями и определениями: понятие определение 1

description:
Проверь себяУстанови соответствие между понятиями и определениями:

понятие

определение

1.Индивидуальность

А. Отношение человека к миру, понимание того, что он делает, как живет, о чем мечтает.

2. Сознание

Б.Совокупность качеств человека, которые приобретаются им в процессе жизни в обществе

3. Личность

В. Совокупность характерных особенностей и свойств, отличающих одного индивида от другого.

alt: Домашнее задание: Прочитать § 1

description: Домашнее задание:Прочитать § 1.Вспомните, какие книги, в которых герой является сильной личностью, ты читал. Напишите авторов и названия 2-3-х книг. Что позволяет тебе считать героев этих книг сильными личностями.

alt: Назовите основные сходства человека и животных

description:
Назовите основные сходства человека и животных.
Назовите основные отличия человека от животных.
Какие свойства человека относятся к биологическим?

alt: Вспомни то, что знаешь Точки зрения на происхождение человека

description:
Вспомни то, что знаешь

Точки зрения на происхождение человека

Что их отличает?

Чем они схожи?

alt: Домашнее задание Параграф 1, подготовь рассказ о человеке, которого ты считаешь сильной личностью

title: "Человек-личность" Презентация по обществознанию 6 класс


file_name: Конкуренция и её виды.pptx

title: Презентация к уроку "Конкуренция и ее виды"