Презентация по информатики на тему "Основы Pascal" (9 класс)

• 1 слайд

  Основы программирования
  учитель информатики
  Ушанов С.В.
  ГБОУ школа №20
  Санкт- Петербург
  2015-2016 уч.г.
  

• 2 слайд

  Главное меню
  RUN {ctrl+F9}
  Запуск на трансляцию и выполнение
  
  {ctrl+Break}
  При зацикливание
  

• 3 слайд

  Структура программы
  Заголовок
  Раздел описания переменных
  Раздел операторов (тело программы)
  

• 4 слайд

  Некоторые правила
  Каждый оператор заканчивается «;»;
  Конец программы «END.» ;
  Писать оператор можно БОЛЬШИМИ и маленькими буквами;
  В имени программы (заголовке) нельзя использовать стандартные имена;
  
  

• 5 слайд

  Некоторые стандартные функции
  

• 6 слайд

  DIR – нахождение целой части от деления двух целых чисел
  
  15DIR7 → 2
  
  MOD – нахождение остатка от деления двух целых чисел
  
  15MOD7 → 1
  

• 7 слайд

  Логические операторы
  NOT
  
  AND
  
  OR
  

• 8 слайд

  Логическая операция И (AND)
  Обозначение AND: &
  Логическая операция И выполняется с двумя битами, назовем их a и b.
  Результат выполнения логической операции И будет равен 1, если a и b
  равны 1, а во всех остальных (других) случаях, результат будет равен 0.
  Смотрим таблицу истинности логической операции and.
  

• 9 слайд

  ИЛИ (OR)
  Обозначение OR: |
  Логическая операция ИЛИ выполняется с двумя битами (a и b).
  Результат выполнения логической операции ИЛИ будет равен 0,
  если a и b равны 0 (нулю), а во всех остальных (других) случаях,
  результат равен 1 (единице). Смотрим таблицу истинности логической операции OR.
  

• 10 слайд

  НЕ (not)
  Обозначение NOT: ~
  Логическая операция НЕ выполняется с одним битом. Результат выполнения этой логической операции напрямую зависит от состояния бита. Если бит находился в нулевом состоянии, то результат выполнения NOT будет равен единице и наоборот. Смотрим таблицу истинности логической операции НЕ.
  
  

• 11 слайд

  Оператор присваивания
  :=
  
  A:=B+C
  A:=A+A
  

• 12 слайд

  Модуль CRT
  модуль управления экраном
  
  clrscr – выполняет гашение пользовательского экрана, что бы каждая отладка выдавала результат на чистый экран.
  

• 13 слайд

  Оператор Readln
  пользователю не нужно делать переход на пользовательский экран для просмотра результата самому.
  Оператор Writeln
  

• 14 слайд

  Program Proizv2;
  Uses
  Crt;{Подключаем модуль Crt}
  Var
  number1, {переменная, в которой будет содержаться первое число}
  number2, {переменная, в которой будет содержаться второе число}
  rezult {переменная, в которой будет содержаться результат}
  : integer;
  Begin
  ClrScr;{Используем процедуру очистки экрана из модуля Crt}
  Write ('Введите первое число ');
  {Выводим на экран символы, записанные между апострофами}
  Readln (number1);
  {Введенное пользователем число считываем в переменную number1}
  Write ('Введите второе число ');
  {Выводим на экран символы, записанные между апострофами}
  Readln (number2);
  {Введенное пользователем число считываем в переменную number2}
  rezult := number1 * number2;
  {Находим произведение введенных чисел и присваиваем переменной rezult}
  Write ('Произведение чисел ', number1, ' и ', number2, ' равно ', rezult);
  {Выводим на экран строчку, содержащую ответ задачи}
  Readln;{Процедура задержки экрана}
  End.
  

• 15 слайд

  Линейные алгоритмы
  Найти площадь фигуры гриб,
  шапка - полукруг с радиусом R
  ножка – прямоугольник со сторонами a и b
  
  

• 16 слайд

  PROGRAM GRIB;
  USES CRT;
  VAR
  R,a,b,S1,S2,S: REAL;
  BEGIN
  Clrscr;
  WRITELN (‘введите R,a,b’);
  READLN(R,a,b);
  S1:=3.14*SQR(R)/2;
  S2:=a*b;
  S:=S1+S2;
  WRITELN(‘S=‘,S:5:1);
  READLN;
  END.
  

• 17 слайд

  Самостоятельная работа
  Вычислить площадь кольца
  S=𝜋( 𝑟 1 2 − 𝑟 2 2 ), где r1 – внешний круг
  r2 - внутренний круг
  

• 18 слайд

  2. Вычислить площадь равностороннего треугольника
  𝑆= 𝑎 2 3 4
  
  где a – сторона треугольника
  

• 19 слайд

  3. Вычислить вес балки имеющей основание a*b, длиной l, удельный вес материала V
  

• 20 слайд

  4. Вычислить стоимость партии товара если известна цена товара “a” и количество в партии n.
  

• 21 слайд

  5. Из пункта А и В выехали навстречу друг другу автомобиль и мотоцикл. Скорость авто V1, скорость мотоцикла V2. Расстояние между пунктами S.
  Через сколько времени они встретятся и на каком расстоянии от А и В.
  

• 22 слайд

  Ветвление
  Вычислить площадь прямоугольника со сторонами a,b и площадь круга с радиусом r. Площадь какой фигуры больше и на сколько.
  

• 23 слайд

  PROGRAM PRIMER;
  USER CRT;
  VAR
  a, b, r, S1, S2: REAL;
  BEGIN
  Clrscr;
  WRITELN (‘vvedite a,b I r’);
  Readen (a,b,r);
  S1:=a*b;
  S2:=3.14*SQR(r);
  IF S1>S2 then
  WRITELN (‘пл. прям. Больше на:’,(S1-S2):5:1);
  else
  WRITELN (‘пл. круга больше на:’,(S2-S1):5:1);
  Readen;
  END.
  

• 24 слайд

  Разность площадей заложена сразу же в операторе вывода, можно было ввести VAR еще D, тогда
  If S1>S2 then
  Begin
  D:=s1-s2;
  Writeln (‘пл. прям больше на:’,D:5:1);
  END
  Else
  Begin
  D:=s2-s1;
  Writeln (‘pl. kruga bolshe na:’D:5:1)
  END.
  

• 25 слайд

  Спасибо за внимание!