Презентация по информатике на тему: "Арифметические выражения в Паскале".

• 1 слайд

  Арифметические выражения в Паскале
  

• 2 слайд

  Цели урока:
  Научиться правильно записывать арифметические выражения в Паскале;
  
  Определить порядок составления программы в Паскале.
  
  

• 3 слайд

  Актуализация знаний
  Что означают операторы WriteLn и ReadLn?
  Какие типы переменных означают Integer, Real?
  Определите, что будет напечатано при выполнении следующих фрагментов программ:
  А) a:=10; a:=10*a-5; WriteLn(a);
  
  Б) a:=50; a:=-a; WriteLn (a);
  
  В) a:=25; b:=20; a:=b-a; b:=a-b; WriteLn(a, ‘ ‘, b);
  95
  -50
  -5 -25
  

• 4 слайд

  Указать, допущены ли в следующих записях ошибки, если «да», то какие.
  
  

• 5 слайд

  Заполните таблицу
  4
  5
  -4
  -5
  2
  5
  

• 6 слайд

  Порядок выполнения операций:
   1. вычисление функции;
  
  2. операция смены знака (–);
  
  3. *, /, div, mod;
  
  4.  +, –.
  Операции в скобках выполняются в первую очередь.
  
  
  

• 7 слайд

  Вычислить:
  10+Sqr(2+1)=
  
  3-8+21 div 3=
  
  5*2-4*20/4 mod 3=
  
  Sqrt(8+Int(41.5)) =
  
  40 mod (4 div 2) =
  
  
  
  
  
  
  
  
  
  19
  2
  8
  0
  7
  

• 8 слайд

  Пусть значения переменных X и Y равны, соответственно, 3 и 2, какие значения будут иметь эти переменные после выполнения операторов присваивания?
  
  А) X:=X+2*Y; Y:=Y/2;
  Б) X:=1; X:=X+Y;
  В) X:=Y; Y:=X;
  
  (X=7, Y=1)
  (X=3, Y=2)
  (X=2, Y=2)
  

• 9 слайд

  Определить, что напечатает данная программа:
  Program t;
  Var a,b:integer;
  BEGIN
  a:=(Sqr(2)-1)*(2-Sqr(2-2))-11;
  b:=11 div (a-4);
  WriteLn(Sqr(a)+b-1);
  END.
  
  -1
  -5
  23
  

• 10 слайд

  Запишите с помощью операторов PASCAL
  

• 11 слайд

  Запишите с помощью операторов PASCAL
  

• 12 слайд

  Перевести на язык математики:
  

• 13 слайд

  №1. Определить, сколько попугаев поместится на удаве
  
  

• 14 слайд

  Определить, сколько попугаев поместится на удаве ?
  
  Program m;
  Var a,b,с: integer;
  BEGIN
  write ('a='); readln (a);
  write ('b='); readln (b);
  c:= b div a;
  writeln ('Поместится', с, попугаев');
  END.
  
  
  

• 15 слайд

  
  №2. Дано трёхзначное число. Найдите сумму его цифр.
  

• 16 слайд

  Выделение цифр числа
  

• 17 слайд

  var a, b, s : integer;
  begin
  s:=0;
  writeln('введите трёхзначное число '); readln(a);
  b:=a mod 10;
  s := s+b;
  a:=a div 10;
  b:=a mod 10;
  s := s+b; a:=a div 10;
  b:=a mod 10;
  s := s+b;
  a:=a div 10;
  writeln(‘ сумма цифр числа -', s);
  end.
  
  Дано трёхзначное число. Найдите сумму его цифр.
  

• 18 слайд

  Домашнее задание:
  Написать программу для решения задачи:
  
  Даны два целых числа. Вычислить среднее арифметическое и среднее геометрическое их модулей.
  

• 19 слайд