Урок : "Линейный алгоритм"

• 1 слайд

  Линейный
  алгоритм
  (Версия для Pascal ABC)
  

• 2 слайд

  Введение 1
  Program n1;
  Uses Crt, GraphABC;
  Begin
  
  
  
  End.
  Заголовок программы
  Подключение дополнительных модулей
  Модуль для работы в текстовом режиме
  Модуль для работы с графикой
  Блок операторов
  CLRSCR;
  Оператор очистки экрана, от посторонних надписей.
  (Crt.TPU)
  // комментарии (пояснения)
  

• 3 слайд

  Блок 1. Графические возможности Pascal ABC 2
  Y
  X
  A
  x
  y
  A( , )
  X
  Y
  A
  x
  y
  Xmax=640
  Ymax=400
  

• 4 слайд

  Блок 1. Графические возможности Pascal ABC 3
  Y
  X
  Line( , , , );
  X1
  Y1
  X2
  Y2
  X1
  Y1
  X2
  Y2
  LineTo( , );
  X3
  Y3
  X3
  Y3
  

• 5 слайд

  Блок 1. Графические возможности Pascal ABC 4
  Y
  X
  Rectangle( , , , );
  X1
  Y1
  X2
  Y2
  X1
  Y1
  X2
  Y2
  Circle( , , );
  X
  Y
  R
  R
  X
  Y
  

• 6 слайд

  Блок 1. Графические возможности Pascal ABC 5
  Стандартные цвета задаются константами:
  clBlack – черный
  clWhite – белый
  clRed – красный
  clGreen – зеленый
  clBlue – синий
  clYellow – желтый
  SetPenColor(цвет);
  - установка цвета рисования
  

• 7 слайд

  Блок 1. Графические возможности Pascal ABC 6
  Виды линий задаются константами:
  psSolid
  psDash
  psDot
  psDashDot
  SetPenStyle(вид линии);
  - установка вида линии
  SetPenWidth(w);
  - устанавливает ширину линии, равную w пикселам.
  Только для SetPenWidth(1); толщина линии равна одному пикселю
  

• 8 слайд

  Блок 1. Графические возможности Pascal ABC 7
  Y
  X
  FloodFill( , , );
  цвет
  X
  Y
  X
  Y
  SetPixel( X , Y , цвет );
  - закрашивает один пиксель
  
  

• 9 слайд

  Блок 1. Графические возможности Pascal ABC 8
  Y
  X
  TextOut( , , );
  'строка'
  X
  Y
  X
  Y
  Точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст.
  строка
  

• 10 слайд

  Блок 1. Графические возможности Pascal ABC 9
  Задача 1. Составить программу изображающую прямоугольный параллелепипед ABCDA1B1C1D1, и построить сечение через ребра AD и B1C1.
  Program n1;
  Uses Crt, GraphABC;
  begin
  clrscr;
  
  End.
  Заготовка для программы, подключаем модуль графики.
  

• 11 слайд

  Блок 1. Графические возможности Pascal ABC 10
  Rectangle(50,100,210,300);
  Line(50,100,120,50);
  lineTo(280,50);
  lineTo(210,100);
  line(280,50,280,250);
  LineTo(210,300);
  lineTo(280,50);
  Рисуем видимые линии
  SetPenStyle(psDot);
  line(50,300,120,250);
  lineTo(120,50);
  lineTo(50,300);
  line(120,250,280,250);
  Рисуем невидимые линии
  А
  D
  B
  C
  А1
  D1
  B1
  C1
  TextOut(25,100,'A1');
  TextOut(212,100,'D1');
  TextOut(25,300,'A');
  TextOut(212,300,'D');
  TextOut(120,30,'B1');
  TextOut(280,30,'C1');
  TextOut(125,230,'B');
  TextOut(285,230,'C');
  Выводим названия вершин
  

• 12 слайд

  Блок 1. Графические возможности Pascal ABC 11
  Задача 2. Составить программу выводящую на экран следующее изображение.
  

• 13 слайд

  Блок 2. Линейная вычислительная программа 12
  Var
  A
  B
  C
  A,
  В,
  С :
  тип данных
  Integer
  Real
  Подготовили в памяти три переменных для хранения целых чисел
  ;
  2 байта
  2 байта
  2 байта
  

• 14 слайд

  Блок 2. Линейная вычислительная программа 13
  Числа с плавающей запятой:
  Целые числа
  

• 15 слайд

  Блок 2. Линейная вычислительная программа 14
  Переменная
  Операция
  присваивания
  9
  Значение
  := - знак присваивания
  имя := значение
  А:=5;
  А:=B+5;
  А:=B+C;
  А:=C;
  

• 16 слайд

  Блок 2. Линейная вычислительная программа 15
  Переменная
  9
  Значение
  WriteLn
  - вывод информации на экран
  9
  WriteLn(A)
  WriteLn('A')
  - выводит содержимое переменной А
  - выводит на экран букву А
  

• 17 слайд

  Блок 2. Линейная вычислительная программа 16
  WRITELN('Надпись');
  WRITELN(A:10:5);
  WRITELN('Надпись=',A:10:5);
  WRITELN(A:10);
  WRITELN(A);
  Выводим число в стандартном виде
  Выводим поясняющую надпись и десятичную дробь
  Выводим десятичную дробь
  Выводим поясняющую надпись
  Выводим целое число
  

• 18 слайд

  Блок 2. Линейная вычислительная программа 17
  WriteLn('1-я строка');
  WriteLn('2-я строка');
  WriteLn('3-я строка');
  Write('1-я строка');
  Write('2-я строка');
  Write('3-я строка');
  Окончание LN указывает, что следующая выводимая на экран информация будет выводится с новой строки
  

• 19 слайд

  Блок 2. Линейная вычислительная программа 18
  Переменная
  Значение
  Клавиатура
  9
  

• 20 слайд

  Блок 2. Линейная вычислительная программа 19
  ReadLn(a)
  - ввод информации с клавиатуры в переменную А
  Write('Введите А='); ReadLn(a);
  Выводим поясняющую надпись, что вводить
  Ждем, пока пользователь не введет с клавиатуры значение А и нажмет Enter
  Write('Введите силу '); ReadLn(F);
  Write('Введите массу '); ReadLn(m);
  Write('Введите время '); ReadLn(t);
  
  

• 21 слайд

  Блок 2. Линейная вычислительная программа 20
  Запись математических выражений
  

• 22 слайд

  Блок 2. Линейная вычислительная программа 21
  Запись тригонометрических функций
  

• 23 слайд

  Блок 2. Линейная вычислительная программа 22
  Используется для преобразования из дробного к целому типу
  

• 24 слайд

  Блок 2. Линейная вычислительная программа 23
  y:=(2*(x*x-4)+1)/sqrt(x*x-3*x);
  y:=abs(x*x*x-3*x)/(sqrt(x)+4);
  

• 25 слайд

  Блок 2. Линейная вычислительная программа 24
  x1:=(-b+sqrt(D))/2*a;
  ?
  x1:=(-b+sqrt(D))/(2*a);
  

• 26 слайд

  Блок 2. Линейная вычислительная программа 25
  Задача 3. (Алгебра 8 класс.Ю.Н. Макарычев. Стр. 123, №556) Найдите значение выражения, при а = -1,5.
  
  
  (Ответ: 7,5)
  Program n1;
  Uses Crt;
  var a,b:real;
  begin
  clrScr;
  a:=-1.5;
  b:=(a-(2*a-1)/a)/((1-a)/(3*a));
  writeln(b:10:5);
  end.
  Объявляем в памяти две переменных
  Очищаем экран от посторонних надписей
  Устанавливаем начальное значение А
  Вычисляем значение выражения
  Выводим результат на экран
  

• 27 слайд

  Блок 2. Линейная вычислительная программа 26
  Начало
  а = - 1,5
  Вывод B
  Конец
  a:=-1.5;
  begin
  clrScr;
  b:=(a-(2*a-1)/a)/((1-a)/(3*a));
  writeln(b:10:5);
  end.
  

• 28 слайд

  Блок 2. Линейная вычислительная программа 27
  Задача 4. Даны стороны прямоугольника a и b. Найти его площадь S=a*b и периметр P=(a+b)*2.
  Program n1;
  Uses Crt;
  Var a,b,s,p:Real;
  begin
  ClrScr;
  Write('ВВеди сторону А = '); Readln(a);
  Write('ВВеди сторону B = '); Readln(b);
  S:=a*b;
  P:=2*(a+b);
  Writeln(' S = ',S: 10: 5);
  Writeln(' P = ',P: 10: 5);
  end.
  Подключаем модуль CRT.TPU
  Выводим результаты на экран
  Описаны четыре переменных действительного типа
  Очищаем экран от посторонних надписей
  Вводим с клавиатуры значения переменных А и В
  Вычисляем площадь и периметр
  

• 29 слайд

  Блок 2. Линейная вычислительная программа 28
  Начало
  Ввод
  А, В
  S=ab
  P=2(a+b)
  Вывод
  S,P
  Начало
  Write('ВВеди сторону А = '); Readln(a);
  Write('ВВеди сторону B = '); Readln(b);
  Выводим поясняющую надпись, что вводить
  Ждем ввода значения переменной А с клавиатуры
  S:=a*b;
  P:=2*(a+b);
  Writeln(' S = ',S: 10: 5);
  Writeln(' P = ',P: 10: 5);
  

• 30 слайд

  Блок 2. Линейная вычислительная программа 29
  Задача 5. Составить программу обмена значениями двух переменных. (Например: если А=1 а В=3 то при выводе А должно выводиться 3, а при выводе В должно выводиться 1.)
  А
  В
  t
  1
  1
  3
  3
  1
  t:=A;
  A:=B;
  B:=t;
  Алгоритм
  

• 31 слайд

  Блок 2. Линейная вычислительная программа 30
  A:= A + B;
  A = 1 + 3 = 4
  A =
  B =
  B:= A – B;
  B = 4 – 3 = 1
  A:= A – B;
  A = 4 – 1 = 3
  А можно ли без дополнительной переменной?
  1
  3
  4
  1
  3
  

• 32 слайд

  Блок 2. Линейная вычислительная программа 31
  Задача 6. Дано число а. Не используя никаких операций, кроме умножения, и никаких функций получите а8 за три операции и а10 за четыре операции.
  a2∙a2 = a2+2 = a4
  a4∙a4 = a4+4 = a8
  a∙a = a1+1 = a2
  an∙am=an+m
  c:=a*a;
  b:=c*c;
  d:=b*b;
  a8∙a2 = a8+2 = a10
  m:=d*c;
  

• 33 слайд

  Блок 2. Линейная вычислительная программа 32
  Program n3;
  Uses Crt;
  var a,c,b,d,m:integer;
  Begin
  ClrScr;
  Write('ВВеди А = '); Readln(a);
  c:=a*a;
  b:=c*c;
  d:=b*b;
  writeln(a, ' в 8 степени = ',d:8);
  m:=d*c;
  writeln(a, ' в 10 степени = ',m:8);
  end.
  

• 34 слайд

  Блок 2. Линейная вычислительная программа 33
  Задача 7. Составить программу вычисляющую xy . Где x – основание степени, а y – показатель степени.
  Program n1;
  Uses Crt;
  var a,x,y:real;
  begin
  clrScr;
  Write('Введи x= ');Readln(x);
  Write('Введи y= ');Readln(y);
  a:=exp(y*ln(x));
  writeln(a);
  end.
  

• 35 слайд

  5
  DIV
  MOD
  Блок 2. Линейная вычислительная программа 34
  DIV – операция целочисленного деления
  MOD – остаток от деления целого на целое
  11 DIV 2 = 5
  11 MOD 2 = 1
  11
  2
  10
  1
  5
  1
  25 DIV 10 = 2
  - целочисленное деление на 10 уменьшает число на один разряд
  25 MOD 10 = 5
  остаток при делении на 10 выделяет последний разряд
  
  

• 36 слайд

  Блок 2. Линейная вычислительная программа 35
  Задача 8. Дано трехзначное число. Определить сумму цифр этого числа.
  Математическая модель:
  а – исходное число
  с:= a mod 10
  256 – исходное число
  c = 256 mod 10 = 6
  a:= a div 10
  a = 256 div 10 = 25
  d:= a mod 10
  d:= 25 mod 10 = 5
  a:= a div 10
  a:= 25 div 10 = 2
  S:= c + d + a
  S:= 6 + 5 + 2 = 13
  

• 37 слайд

  Блок 2. Линейная вычислительная программа 36
  Program n1;
  Uses Crt;
  var a,b,c,d,s:Integer;
  begin
  clrScr;
  Write('Введи A= ');Readln(a);
  c:= a mod 10;
  a:= a div 10;
  d:= a mod 10;
  a:= a div 10;
  S:= c + d + a;
  writeln('S =',S:5);
  end.
  Вводим трехзначное число
  Производим необходимые операции
  Выводим сумму на экран
  

• 38 слайд

  Блок 3. Геометрические построения. 37
  Задача 9. С клавиатуры вводятся стороны прямоугольника и масштаб. Необходимо построить этот прямоугольник увеличив в соответствии с масштабом
  а
  b
  (x+a,y)
  (x,y)
  (x,y-b)
  (x+a,y-b)
  Y
  X
  

• 39 слайд

  Блок 3. Геометрические построения 38
  Program n1;
  Uses Crt,GraphAbc;
  var a,b,m,x,y:Integer;
  begin
  clrScr;
  Write(‘Введи длину ');Readln(a);
  Write(‘Введи ширину ');Readln(b);
  Write(‘введи масштаб ');Readln(m);
  x:=10;
  y:=300;
  a:=a*m;
  b:=b*m;
  line(x,y,x+a,y);
  line(x,y,x,y-b);
  line(x+a,y,x+a,y-b);
  line(x,y-b,x+a,y-b);
  end.
  Подключаем модуль графики
  Вводим стороны и масштаб
  Устанавливаем координаты базовой точки
  Увеличиваем стороны в соответствии с масштабом
  Рисуем линии с использованием метода базовой точки
  line(x,y,x,y-b);
  lineTo(x+a,y-b);
  lineTo(x+a,y);
  lineTo(x,y);
  Можно построить прямоугольник, как замкнутую ломаную линию
  Rectangle(x,y,x+a,y-b);
  Можно построить прямоугольник, используя процедуру построения прямоугольника в виде рамки по диагонали
  

• 40 слайд

  Блок 3. Геометрические построения 39
  Задача 10. С клавиатуры вводятся стороны равнобедренного треугольника и масштаб. Необходимо построить этот треугольник увеличив в соответствии с масштабом.
  Y
  X
  а
  b
  c
  С(x,y)
  B(x+a,y)
  A(x+(a div 2),?)
  M(x+(a div 2),y)
  

• 41 слайд

  Блок 3. Геометрические построения 40
  Из треугольника CMA – прямоугольного по теореме Пифагора, найдем катет МА.
  CA=b, СM= a div 2
  Так как скорее всего МА будет выражаться дробным числом, то применим функцию преобразования типов TRUNC
  A(x+(a div 2),y-MA)
  Точка А будет иметь координаты:
  

• 42 слайд

  Блок 3. Геометрические построения 41
  Задача 11. С клавиатуры вводятся стороны треугольника и масштаб. Необходимо построить этот треугольник увеличив в соответствии с масштабом
  Y
  X
  а
  b
  c
  С(x,y)
  B(x+a,y)
  A(?,?)
  M
  

• 43 слайд

  Блок 3. Геометрические построения 42
  Решим геометрическую задачу
  СВ = а
  СМ = x
  MB = a - x
  В треугольниках СМА и АМВ катет АМ общий
  cm:=trunc((b*b-c*c+a*a)/(2*a));
  

• 44 слайд

  Блок 3. Геометрические построения 43
  Из треугольника CMA, прямоугольного, по теореме Пифагора:
  MA:=trunc(sqrt(b*b-CM*CM));
  A(x+cm,y-ma)
  line(x,y,x+a,y);
  line(x,y,x+cm,y-ma);
  line(x+cm,y-ma,x+a,y);
  Построим треугольник