Повторение темы "Программирование. Ветвление"
учебно-методический материал по информатике и икт (8 класс)

На естественном языке:

На языке программирования:

если условие тогда действие, которое будет выполняться, при истинном условии (ответили «да»)

иначе действие, которое будет выполняться при ложном условии (ответили «нет»)

if условие then действие, которое будет выполняться при истинном условии

else действие, которое будет выполняться при ложном условии;

Примеры:

если x число четное, то надо увеличить его в два раза, иначе прибавить к нему 1.

если x – число чётное тогда x = x*2

иначе x = x + 1

if x mod 2 = 0 then x := x * 2 else x := x +1;

условие: x mod 2=0

действие, которое будет выполняться при истинном условии: x := x*2

действие, которое будет выполняться при ложном условии: x := x + 1

после выполнения команды:

при x = 4, (4 mod 2 = 0 – истина) x=x*2=4*2=8

при x = 5, (5 mod 2 = 0 – ложно, т.к. 5 mod 2=1) x=x*2=4*2=8

программа

комментарий

1. Program m_1;
2. Var x : integer;
3. Begin
4. Write ( ‘Введите целое число: ’ );
5. Readln ( x );

6. if x mod 2 = 0 then x := x * 2 else x := x +1;

7. writeln (‘Ответ: x = ’, x);

8. end.

1. имя программы m_1
2. описание целочисленной переменной x
3. начало программы
4. на экран выводится фраза: Введите целое число:
5. ожидается ввод целого числа с клавиатуры, которое будет занесено в переменную x
6. проверяется условие x mod 2 = 0 (проверка числа на четность): если условие истинно, то значение переменной x будет увеличено в 2 раза, при ложном условии – к значению переменной x прибавляется 1.
7. вывод на экран фразы: Ответ: x = и значения переменной x, которое получится после выполнения команды
8. конец программы

На оценку «4»

На оценку «5»

Вариант 1

Вариант 2

Целое число x – вводится с клавиатуры. Программа должна выяснить кратно ли число 3, если кратно вывести на экран слово «да», в противном случае вывести на экран слово «нет».

Имя программы program m_2;

Целое число x – вводится с клавиатуры. Программа должна выяснить оканчивается ли число на 7. Программа должна вывести на экран соответствующее сообщение: «число оканчивается на 7» или «число НЕ оканчивается на 7».

Имя программы program m_3;

Целое число x – вводится с клавиатуры. Программа должна выяснить кратна ли 5 его первая цифра. Программа должна вывести на экран соответствующее сообщение: «цифра кратна 5» или «цифра НЕ кратна 5».

Имя программы program m_4;

Программа

Задание

Program m_5;

Var a , b , c : integer;

x1, x2, D : real;

Begin

Write(‘Введите целые числа a, b, c : ’);

Readln( a, b, c);

D:=b*b–4*a*c;

if D > 0 then begin

x1:=(-b+SQRT(D))/(2*a);

x2:=(-b-SQRT(D))/(2*a);

writeln (‘x1 = ’ , x1 , ‘ x2 = ’ , x2);

end

else write (‘ корней нет ’);

End.

Записать программу в тетрадь.

Напечатать в среде PascalABC, запустить на выполнение, проверить работу при исходных данных: 1) a = 1, b = 3, c = -4; 2) a = 1, b = 1, c = 1. Записать ответы, выданные программой в тетрадь.

Запишите напротив каждой строки программы комментарий, поясняющий, что означает эта команда вообще и в данной программе в частности.

Запишите, какую задачу решает данная программа. Укажите недостатки данной программы.

Вариант 1

На оценку «3»

На оценку «4»

На оценку «5»

Program m_6;

Var x, y : integer;

Begin

Write ( ‘Введите два числа : ’ );

Readln ( x, y );

if x > y then 

writeln (‘ наибольшее x = ’ , x ) else 

writeln (‘ наибольшее y = ’ , y );

end.

Программу набрать на компьютере, проверить работу при разных исходных данных, в тетради записать программу и дать комментарий каждой команде программы

Двузначное число вводится с клавиатуры. Составить программу, которая определяет, кратна ли 3 сумма цифр этого числа. На экран вывести соответствующий ответ.

Имя программы Program m_7;

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

Имя программы Program m_8;

Вариант 2

На оценку «4»

На оценку «5»

Двузначное число вводится с клавиатуры. Составить программу, которая определяет больше ли само число произведению его цифр. На экран вывести соответствующий ответ.

Имя программы Program m_7;

Дано целое трёхзначное число. Определить, равен ли квадрат этого числа сумме кубов его цифр.

Имя программы Program m_10;