конспект урока и приложения / конспекты_1 / конспект 1 / konspekt

1.

2.

3.

4.

5.

6.

Организационный момент

• Приветствие учеников

• Объявление темы, целей и плана урока. Постановка задач перед учащимися

• Перекличка

Фронтально решаем тест.

Я рассказываю новый материал.

Часто, для решения задачей, нам необходимы не только арифметические действия, но и функции, в частности сегодня мы рассмотрим функции возведения в квадрат, извлечение корня и модуль.

Про функцию модуля я рассказываю: если значение переменной x не меньше 0 (x>=0), то значение функции abs(x) равно значению переменной х, а если значение переменной х отрицательно, то значение функции abs(x) равно значению переменной х, взятому с противоположным знаком.

Для задачи на последнем слайде вместе пишем программный код.

program my;

var x,y,y1: integer;

begin

x:=-3;

y:=abs(x)+sqr(sqr(x));

x:=3;

y1:=abs(x)+sqr(sqr(x));

writeln (y);

writeln (y1);

end.

Ребята решают задачи с карточек. Те, кто решит раньше, получают дополнительные карточки.

Я прошу ребят создать 5 отдельных программ.

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

1. program my;

var a,b,c: integer;

begin

read(a);

b:=2012;

c:=b-a;

writeln ('ваш примерный возраст ',c);

end.

2. program my;

var x,y: integer;

begin

read (x);

y:=sqr(sqr(x))*x;

writeln (y);

end.

3. program my;

Var x,c:integer;

Begin

Read(x);

c:=abs(x+4) – abs(sqr(x)-3*x+6);

writeln(c);

end.

4. program my;

Var x,y:integer;

Begin

x:=14;

y:=3;

x:=y;

y:=x;

writeln(x);

writeln(y);

end;

5. program my;

Var x,y,t: integer;

Begin

Readln(x);

Readln(y);

t:=x;

x:=y;

y:=t;

writeln(x);

writeln(y);

end;

Решение дополнительных задач:

program my;

var a,b,c, new: integer;

begin

read(a);

b:= a div 10;

c:= a mod 10;

new:=c*10+b;

writeln (new);

end.

program my;

Var a: integer;

y: real;

Begin

Readln(a);

y:=(sqr(a)+1)/sqrt(sqr(a)+1);

writeln(y);

end.

Я проверяю, отвечаю на появившиеся вопросы и выставляю оценку; отпускаю с урока.

Ученики слушают учителя

На экране первый слайд

Тест в Power point

Презентация «программирование»

4 слайд и Pascal

карточки и Pascal

Сдают задачи, уходят с урока.