Тема 1.Технология обработки аудио- и видеоинформации
Запись аудио- и видеоинформации. Правила работы и безопасного поведения в компьютерном классе. Аудио- и видеофайлы. Программные средства записи и воспроизведения. Форматы аудиофайлов. Форматы видеофайлов
Занятие 1
Тема:Правила работы и безопасного поведения в компьютерном классе. Аудио- и видеофайлы. Программные средства записи и воспроизведения. Форматы аудиофайлов. Форматы видеофайлов
Цель:Повторить правила работы и безопасного поведения в компьютерном классе, изучить аудио- и видеофайлы, программные средства записи и воспроизведения, форматы аудиофайлов и форматы видеофайлов.
Учебная задача 1: Повтори правила работы и безопасного поведения в компьютерном классе. (Читай)
Цель:Изучить редактирование и конвертацию, загрузку и воспроизведение звукозаписи в аудио-редакторе, выделение фрагмента звукозаписи, обрезку фрагмента звукозаписи и применение эффекта, сохранение аудиофайла.
Тема: Графические возможности среды программирования.
Цель: Изучить основы работы с графикой, работу со справочной системой среды программирования PascalABC, основные графические примитивы, работу с пером и кистью.
uses GraphABC; var m:integer; begin Rectangle(250,50,390,250); SetBrushColor(clBlack); Circle(320,100,30); Circle(320,200,30); SetBrushColor(clWhite); writeln('Введите время'); read(m); writeln(m)1; if m mod 2 = 1 then FloodFill(320,100,clRed) else FloodFill(320,200,clGreen); end.
Цель: Изучить оператор цикла с предусловием и оператор цикла с параметром.
Учебная задача 1:Проверь домашнее задание.
Упражнение 7:
Var x1, y1, x2, y2, r_T, r_K: real; begin writeln('Танин дом'); read(x1,y1); writeln('Катин дом'); read(x2,y2); r_T := sqrt(x1*x1+y1*y1); r_K := sqrt(x2*x2+y2*y2); if r_T = r_K then writeln('одинаковые расстояния') else if r_T < r_K then writeln('Танин дом ближе') else writeln('Катин дом ближе'); end.
Упражнение 8:
uses GraphABC; var x,y, x0, y0, R_b, R_m, z: integer; begin writeln('Введите координаты центра мишени по x = '); read(x0); writeln('Введите координаты центра мишени по у = '); read(y0); writeln('Введите радиус большого круга = '); read(R_b); writeln('Введите радиус малого круга = '); read(R_m); Circle(x0,y0,R_b); Circle(x0,y0,R_m); writeln('Выстрел'); read(x,y); writeln(x,' ',y); z := sqr(x-x0)+sqr(y-y0); if z < sqr(R_m) then FloodFill(x,y,clLightGreen) else if z < sqr(R_b) then FloodFill(x,y,clYellow) else FloodFill(x,y,clRed); end.
uses GraphABC; var x,y,r: integer; begin SetPenWidth(3); SetBrushStyle(bsClear); for var i:= 1 to 10 do begin x := random(600); y := random(400); R := random(150); SetPenColor(clRandom); circle(x,y,r); end; end.
Реши задачу: нарисовать в графическом окне гриб, расположение гриба и его закраска задаётся случайным образом. (9 баллов).
Текст программы 18.2:
uses GraphABC; var x,y,d: integer; begin writeln('Координаты'); read(x,y); writeln (x,' ',y); writeln('Сторона'); read(d); writeln (d); SetBrushColor(clYellow); Ellipse (x + d div 3,y, x + 2 * d div 3,y + d); SetBrushColor(clBrown); Pie(x + d div 2,y + d div 3, d div 3,0,180); end.
Реши задачу: напишите программу для рисования фигуры из трёх треугольников (10 баллов).Рисунок
Тема: Составление алгоритмов для работы с графикой.
Цель: Изучить использование вспомогательных алгоритмов при решении задач.
Учебная задача 1:Изучи использование вспомогательных алгоритмов при решении задач. См. учебное пособие 8 класс, § 18.2.Обращай внимание на примеры.
Учебная задача 2: Балл накопительный:
Текст примера 18.4:
uses GraphABC; var n, x, y, a : integer; procedure pr_treug (x, y, a,b : integer); var x_c, y_c:integer; begin line(x, y, x + a,y); line(x, y, x, y + b); line(x + a, y, x, y + b); x_c := x + 2; y_c := y + 2; FloodFill(x_c,y_c,clRandom); end; begin writeln('Ввeдите количество'); read(n); writeln (n); writeln('Ввeдите длину катета'); read(a); writeln (a); for var i:= 1 to n do begin x:= random(500); y:= random(400); pr_treug(x, y, a, a); end; end.
Использование основных алгоритмических конструкций для решения практических задач
Занятие 23
Тема: Использование основных алгоритмических конструкций для решения практических задач.
Цель: Изучить использование числовых последовательностей, нахождение суммы элементов числовой последовательности и возведение числа в степень при решении практических задач.
var a, b, c, x: integer; begin write('Граница x = '); read(x); c := 1; b := 1; a := 2; write(c, ' ', b, ' '); while a < x do begin write(a, ' '); c := b; b := a; a := b + c; end; end.
var n, k, a:integer; begin write('Количество билетов n = '); read(n); k:= 0; for var i:= 1 to n do begin a:= random(1,100); write(a,' '); if a mod 5 = 0 then k := k+1; end; writeln; writeln('Выиграло ',k, ' билета(-ов)'); end.
var m : integer; a, S: real; begin write('Количество дней m = '); read(m); S := 0; for var n := 1 to m do begin a := n*n*n/(sqrt(n*n*n)-n+1); S := S+a; end; writeln('Всего бактерий = ',S, ' млн'); end.
var n, m: integer; a, S: real; begin write('Основание a = '); read(a); write('Показатель n = '); read(n); S := 1; m := abs(n); for var i:= 1 to m do S := S*a; if n<0 then S:= 1/S; writeln('Степень = ',S); end.
Использование основных алгоритмических конструкций для решения практических задач
Занятие 24
Тема: Использование основных алгоритмических конструкций для решения практических задач.
Цель: Изучить построение таблицы значений функции и выделение цифр из числа.
Учебная задача 1: Проверь домашнее задание:
var m : integer; a, S: real; begin write('Количество элементов m = '); read(m); S := 0; for var n := 1 to m do begin a := 1/(n*n*n); S := S+a; end; writeln('сумма = ',S); end.
Учебная задача 5:Выбери упражнения по своим силам:
Текст примера 19.9:
var k:integer; x,y,h: real; begin writeln('Количество значений'); readln(k); x := -3; h := 0.5; writeln('------------'); writeln('| x | y |'); writeln('------------'); for var n := 1 to k do begin y := (x+2)/(x*x+3); writeln('|',x:7:2,'|',y:10:3,'|'); x := x+h; end; writeln('------------'); end.
var k,n,z: integer; begin write('Введите n = '); read(n); k := 0; while n > 0 do begin //Текущая цифра z := n mod 10; writeln(z); //Уменьшение числа в 10 раз n := n div 10; //Подсчет кол-ва цифр k := k + 1; end; writeln('в числе ', k, 'цифр(-а/-ы))'); end..
Использование основных алгоритмических конструкций для решения практических задач
Занятие 25
Тема: Использование основных алгоритмических конструкций для решения практических задач.
Цель: Изучить алгоритм нахождения наибольшего общего делителя двух чисел.
Учебная задача 1: Проверь домашнее задание:
var i,k,n,z, m, p, c, g: integer; begin write('Введите n = '); read(n); k:=0; m:=0; c:=n; g:=n; while n > 0 do begin z:= n mod 10; k:= k + 1; n:= n div 10; end; while c > 0 do begin z:= c mod 10; c:= c div 10; p:=1; for var j:=1 to k-1 do p:=p*10; m:=m+z*p; k:=k-1; end; if g=m then writeln('yes') else writeln('no'); end.
var a,b:integer; begin write(' a = '); read(a); write(' b = '); read(b); while a<>b do if a>b then a := a - b else b := b - a; writeln('НОД = ',a); end.
var x,y,z,d,f:integer; function NOD (a,b:integer):integer; begin while a<>b do if a>b then a := a-b else b := b-a; NOD := a; end; begin write('Введите x = '); read(x); write('Введите y = '); read(y); write('Введите z = '); read(z); d := NOD(x,y); f := NOD(d,z); writeln('НОД = ',f); end.
Реши задачу:Вывести на экран k элементов последовательности Фибоначчи (5 баллов)
Реши задачу: Вывести на экран k чисел последовательности An=3A(n-1)+5, первый элемент последовательности равен 2 .(6 баллов)
Реши задачу: Сгенерируй последовательность случайных чисел, которые принадлежат промежутку [1..100], выведи их на экран и посчитай количество четных чисел. (7 баллов)
Реши задачу: Вывести на экран таблицу значений функции y=(x2+x3)/(x5)(8 баллов)
Реши задачу:напиши программу для рисования одной из фигур (9 баллов).
Учебная задача 3:Выполни упражнения - 1, 2, 3 . Результат пришли учителю на проверку.
Дополнительный материал:С помощью функции поиск определи количество повторяющихся слов в тексте, повторяющие слова находятся в таблице, результат вышли учителю.
Дополнительный материал: Создай документ, в котором текст разбит на две колонки. В левой колонке краткое описание океанов, в правой горы Килиманджаро и Джомолунгма. Вставь имеющие картинки. К тексту придумай заглавие. Используй заготовку учителя.Результат пришли учителю на проверку.
Создай открытку с днём Победы, используя коллекцию картинок. В открытке должен размещаться текст поздравления. Примеры открыток. (6 баллов).
Проиллюстрируйте текст, указанный учителем. Для иллюстраций можно использовать рисунки, хранящиеся на компьютере, изображения из Интернета или самостоятельно нарисовать рисунок в графическом редакторе и вставить его из файла или используя буфер обмена. (10 баллов).
Выполни упражнение - открой текст, установи для документа книжную ориентацию бумаги, и размер полей: левое — 35 мм, правое — 20 мм, верхнее и нижнее — по 15 мм. Каждый рассказ сделай с новой страницы, вставь после названия рисунок, задай нумерацию страниц (внизу по центру), выравнивание текста по ширине, заглавие по центру.
Выполни упражнение - открой текст, установи размер полей: левое — 30 мм, правое — 20 мм, верхнее и нижнее — по 20 мм., задай нумерацию страниц (вверху по центру), выравнивание текста по ширине, заглавие по центру, выравнивание стихотворения по левому краю, установи красную строку для абзацев, расстояние до и после абзаца 0 мм.
Результат пришли учителю на проверку.
Дополнительный материал: Выполни форматирование текста (установи номера страниц внизу справа, параметр страницы 1,5 - 1,5 - 1,5 - 1,5, установи абзацы, сделай выравнивание текст по ширине страницы) Результат пришли учителю на проверку.