Презентация на тему "Пирамида" 9 класс

Содержание

• 
  Слайд 1
  

  Пирамида

• 
  Слайд 2
  

  Торопись, ведь дни проходят, Ты у времени в гостях, Не рассчитывай на помощь, Помни: всё в твоих руках.

• 
  Слайд 3
  

  Е С Л И Н А Ч А Л О Н Е П О Л Н О Е Л О Г И Ч Е С К И Й П Р И С В А И В А Н И Е 1. С какого слова начинается инструкция ветвления? 2. Слово на русском языке, соответствующее слову BEGIN 3. Вид ветвления 4. Тип переменных, которые могут принимать 2 значения ИСТИНА и ЛОЖЬ 5. Очень известный оператор

• 
  Слайд 4
  

  Пирамида 100 100 100 200 200 300

• 
  Слайд 5
  

  Написать программу – модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура в комнате превысила 60 градусов, в противном случае вывести сообщение «Температура в норме». Подсказка ?

• 
  Слайд 6
  

  Составить программу, которая запрашивает возраст пользователя и если ему 18 лет и больше, то выводит сообщение, что он может голосовать. В противном случае печатается сообщение, что ему нужно подрасти. Подсказка ?

• 
  Слайд 7
  

  Рис фасован в 2 пакетаразной массы. Масса первого пакета m кг, а масса второго пакета – n кг. Составить программу, определяющую какой пакет тяжелее первый или второй и на сколько тяжелее. Подсказка ?

• 
  Слайд 8
  

  Дано трёхзначное число. Определить, какая из его цифр больше первая или последняя? Подсказка ?

• 
  Слайд 9
  

  Составить программу, имитирующую применение компьютера в книжном магазине. Компьютер запрашивает стоимость книг, сумму денег, внесённую покупателем, если сдачи не требуется, печатает «Спасибо», если денег внесено больше, чем надо, то печатает сообщение «Возьмите сдачу» и указывает сумму сдачи, если денег недостаточно, то печатает сообщение об этом и указывает размер недостающей суммы. Подсказка ?

• 
  Слайд 10
  

  По номеру автобусного билет определить будет ли он счастливым. (т.е. 3 первые цифры в сумме будут ли равны сумме трёх последних) Подсказка ?

• 
  Слайд 11
  

  Н Ввод t t>=60 Пожарная опасность Температура в норме К Подсказка ?

• 
  Слайд 12
  

  Н Ввод t t>=18 Может голосовать Голосовать нельзя, надо подрасти К + - Подсказка ?

• 
  Слайд 13
  

  Н Ввод m, n m>n Масса 1 пакета > массы 2, на m-n кг К Масса 2 пакета > массы 1, на n-m кг + - Подсказка ?

• 
  Слайд 14
  

  Н Ввод x a>c Первая цифра больше последней К Подсказка ? a:=x div 100 c:=x mod 10 Первая цифра больше последней Последняя цифра больше последней + - Подсказка ?

• 
  Слайд 15
  

  Н Ввод x,y x>y Необходимо доплатить (x-y)руб К Возьмите сдачу (y-x) рублей + - x=y Спасибо + - Подсказка ?

• 
  Слайд 16
  

  н Ввод m a1:=m mod 10 m:= m div 10 a2:=m mod 10 m:= m div 10 a3:=m mod 10 m:= m div 10 s1>s2 К + - a4:=m mod 10 m:= m div 10 a5:=m mod 10 a6:= m div 10 S1:=a1+a2+a3 S2:=a4+a5+a6 Билет несчастливый Билет счастливый Подсказка ?

• 
  Слайд 17
  

  Program pogar; Var t: integer; Begin Writeln(‘введите температуру в комнате’); Readln (t); If t>=60 then writeln(‘пожарная опасность’) else writeln(‘Всё в порядке’); Readln End.

• 
  Слайд 18
  

  Program golos; Var t: integer; Begin Writeln(‘Введите ваш возраст’); Readln(t); If t>=18 then writeln(‘ можно голосовать’) else writeln(‘Голосовать нельзя, надо подрасти!); Readln End.

• 
  Слайд 19
  

  Program massa; Var m,n : integer; Begin Writeln(‘Введите массу 1 пакета’); readln(m); Writeln(‘Введите массу 2 пакета’); readln(n); If m>n then writeln(‘масса 1 пакета больше массы 2 пакета’) Else writeln(‘Масса 2 пакета больше массы 1пакета’); Readln End.

• 
  Слайд 20
  

  Program chislo; Var x,a,c:integer; Begin Writeln(‘Введите трёхзначное число х’); readln(x); a:=x div 100; c:=x mod 10; If a>c then writeln(‘Первая цифра больше последней’) else Writeln(‘Первая цифра меньше последней’); Readln End.

• 
  Слайд 21
  

  Program magazin; Var x,y,z,t: real; Begin Writeln(‘Сколько стоит книга’); readln(x); writeln(‘Внесите деньги в кассу’); readln(y); If x=y then writeln(‘Спасибо’) else If x>y then begin z:=x-y; Writeln(‘Необходимо доплатить’, z:6:2, ‘рублей’) end Else Begin t:=y-x; writeln(‘Возьмите сдачуравную’, t:6:2, ‘рублей’) end; Readln End.

• 
  Слайд 22
  

  Program bilet; var m: longint; A1,a2,a3,a4,a5,a6,s1,s2: integer; Begin Writeln(‘Введите номер билета’); Readln(m); a1:=m mod 10; m:= m div 10; a2:= m mod 10; m:= m div 10; a3:=m mod 10; m:=m div 10; a4:=m mod 10; m:=m div 10; a5:= m mod 10;a 6:= m div 10; s1:=a1+a2+a3; s2:=a4+a5+a6; If s1=s2 then writeln(‘билет счастливый’) else writeln(‘билет несчастливый’); readln End.

• 
  Слайд 23
  

  Спасибо за работу на уроке!