Учитель информатики МБОУ «Марковская СОШ» Репникова С.А.

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

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

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

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

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

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

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

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

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

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

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

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

н Ввод 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 Билет несчастливый Билет счастливый Подсказка ?

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

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

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.

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.

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.

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.