Ветвления в среде программирования Turbo Pascal
Дана сторона куба a. Найти объем V, и площадь поверхности куба S.
Условный оператор
Логическое выражение
Блок-схема: Программа:
Домашнее задание:
Спасибо за внимание!
1.35M
Category: programmingprogramming

Ветвления в среде программирования Turbo Pascal

1. Ветвления в среде программирования Turbo Pascal

2.

Задание 1.
Какие свойства алгоритмов
зашифрованы в ребусах?

3.

б) конечность
а)
в) Результативность
понятность
(черенок
нос
— ять);
(грей — зуб ——
утка
— тигр
— в — н — о —с — т — ь);
(пан — ять — нос — ть);

4.

Задание 2.
Какие исполнители алгоритмов,
работающие в школе, зашифрованы
в ребусах?

5.

в)б)а)
директор
ученик
Учитель
завуч

— г)
игрек
— рот);
(кузнечик);
(у — ч — и — т — ель);
(зав — у — ч);

6.

Задание 3.
Какие алгоритмические
конструкции зашифрованы в
ребусах?

7.

в)
г) повторение
а)ветвление
Развилка
б)
цикл
(повар
—тсани).

— е——
—ив—
—булка);
л — е — н — и — е);
(раз
вл);

(цинк

8.

Задание 4.
Какие блок-схемы
зашифрованы в ребусах?

9.

соединитель
в)
вывод
а) Условие
г) конец
д)
е)
комментарий
б) начало


оы—
—единица



вторий).

о—
д);ель);
(весло

и—
е);
(конь
ц);
(комета

(на — ча — ло);

10.

Даны стороны прямоугольника a и b. Найти его площадь S, и
периметр Р.
Правильно
Начало
Ввод (a, b)
S=ab
S=ab
P=(a+b)/2
P=2(a+b)
Вывод S, P
Конец
С ошибками
Program pramoug;
Var a, b, S, P: integer;
Begin
Writeln (‘Введите стороны
прямоугольника’);
Readln (a, b);
S:=a*b;
P:=2*(a+b);
Writeln (‘площадь прямоугольника
равна’, S);
Writeln (‘периметр прямоугольника
равен’, Р);
End.

11. Дана сторона куба a. Найти объем V, и площадь поверхности куба S.

С ошибками
Правильно
• Program
Program
kub;
kub;
Начало
Ввод (a)
S=6a2
V=a3
• Var
Var
a, a,S, S,
V: V:
integer;
integer;
• Begin
Begin
•Writeln
Writeln
(‘Введите
(‘Введите
сторону
сторону
куба’);
• Readln
Readln
(a);(a);
• S=6*sqrt(a);
S:=6*sqr(a);
• V=a*a*a;
V:=a*a*a;
Вывод S, V
Конец
•Writeln
Writeln
(‘площадь
(‘площадь
поверхности
поверхности
равна’,
S); равна’, S);
•Writeln
Writeln
(‘объем
(‘объем
куба
куба
равен’,
равен’,
V);
P);
• End.
End.

12.

Программирование
ветвлений в среде
программирования
Turbo Pascal

13. Условный оператор

Этот оператор используется для выполнения
одного из двух возможных вариантов программы.
if логическое_условие
then оператор_1
else оператор_2;
если логическое_условие верно,
то выполняется оператор_1 ,
иначе оператор_2;
Перед else точка с запятой не ставится!

14.

Логическое выражение
Простой формой логического выражения
является операция отношения:
<
меньше,
>
больше,
<=
меньше или равно,
>=
больше или равно,
=
равно,
<>
не равно.

15. Логическое выражение

Сложные формы логических выражений
составляются с использованием логических
операций:
not логическое отрицание (НЕ),
and логическое умножение (И),
or логическое сложение (ИЛИ),
xor
исключающее ИЛИ
Порядок действий:
отрицание, умножение, сложение, операции
отношений.

16.

Типы ветвлений
Формат полного оператора ветвления:
Условие полное
if <логическое выражение> Вход
then <оператор 1>
Нет (Да)
Да(нет)
условие
else <оператор 2>;
Оператор 1
Оператор 2
Выход

17.

Типы ветвлений
Формат неполного оператора ветвления:
Условие неполное
if <логическое выражение>
then <оператор>
Да(нет)
Вход
условие
Оператор
Выход
Нет (Да)

18.

Операторные скобки
• Если после слов then или else нужно выполнить не
один оператор, а несколько, то эти операторы
заключают в операторные скобки: begin … end
• Конструкция такого вида:
Begin <последовательность операторов> end
относится к составным операторам.
• Операторы ветвления могут быть вложены друг в
друга, желательно только следить за тем, чтобы then
и else одного и того же оператора располагались
друг под другом.

19.

Пример:
Из двух заданных целых чисел выбрать
наибольшее.
Математическая модель:
Данные: x, y
Результат: max
x, еслиx y
y, еслиx y
Варианты:
Если x=5, y=8, то max=8
Если x=6, y=1, то max=6
Если x=5, y=5, то max=5

20. Блок-схема: Программа:

Блок-схема:
Начало
Ввод (x, y)
x>y
max:=x
max:=y
Вывод (max)
Конец
Программа:
Program Vetv1en;
Var x, y, max: integer;
Begin
Writeln (‘Введите два
числа’);
Readln (x, y);
if x >=y then max:=x
else max:=y;
Writeln (‘наибольшее =
’,max);
End.
Задача

21.

Задачи:
1. Дано целое число. Если оно является положительным то
прибавить к нему 1, в противном случае вычесть из него
два. Вывести полученное число.
2. Даны три стороны одного треугольника и три стороны
другого треугольника. Определить, будут ли эти
треугольники равновеликими, т. е. имеют ли они равные
площади.

22. Домашнее задание:

Составить блок-схему и написать
программу на языке Turbo Pascal для
решения задачи, представленной в
карточке.

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

English     Русский Rules