Презентация "Ветвления в среде программирования Turbo Pascal" скачать


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

Подписи к слайдам:
Ветвления в среде программирования Turbo Pascal Задание 1.
  • Задание 1.
  • Какие свойства алгоритмов зашифрованы в ребусах?
  • а) Результативность
  • (грей — зуб — утка — тигр — в — н — о —с — т — ь);
  • б) конечность
  • (черенок — нос — ять);
  • в) понятность
  • (пан — ять — нос — ть);
Задание 2.
  • Задание 2.
  • Какие исполнители алгоритмов, работающие в школе, зашифрованы в ребусах?
  • а) Учитель
  • (у — ч — и — т — ель);
  • б) ученик
  • (кузнечик);
  • в) директор
  • (д — игрек — рот);
  • г) завуч
  • (зав — у — ч);
Задание 3.
  • Задание 3.
  • Какие алгоритмические конструкции зашифрованы в ребусах?
  • а) Развилка
  • (раз — в — и — булка);
  • б) цикл
  • (цинк — л);
  • в) ветвление
  • (в — е — т — в — л — е — н — и — е);
  • г) повторение
  • (повар — сани).
Задание 4.
  • Задание 4.
  • Какие блок-схемы зашифрованы в ребусах?
  • а) Условие
  • (весло — и — е);
  • б) начало
  • (на — ча — ло);
  • в) вывод
  • (в — ы — в — о — д);
  • г) конец
  • (конь — ц);
  • д) соединитель
  • (с — о —единица — ель);
  • е) комментарий
  • (комета — торий).
Program pramoug;
  • Program pramoug;
  • Var a, b, S, P: integer;
  • Begin
  • Writeln (‘Введите стороны прямоугольника’);
  • Readln (a, b);
  • S:=a*b;
  • P:=2*(a+b);
  • Writeln (‘площадь прямоугольника равна’, S);
  • Writeln (‘периметр прямоугольника равен’, Р);
  • End.
  • Начало
  • P=(a+b)/2
  • S=ab
  • Вывод S, P
  • Конец
  • Даны стороны прямоугольника a и b. Найти его площадь S, и периметр Р.
  • Начало
  • Ввод (a, b)
  • P=2(a+b)
  • S=ab
  • Вывод S, P
  • Конец
  • С ошибками
  • Правильно
Дана сторона куба a. Найти объем V, и площадь поверхности куба S.
  • Начало
  • Ввод (a)
  • V=a3
  • S=6a2
  • Вывод S, V
  • Конец
  • Program kub;
  • Var a, S, V: integer;
  • Begin
  • Writeln (‘Введите сторону куба’);
  • Readln (a);
  • S=6*sqrt(a);
  • V=a*a*a;
  • Writeln (‘площадь поверхности равна’, S);
  • Writeln (‘объем куба равен’, P);
  • End.
  • Program kub;
  • Var a, S, V: integer;
  • Begin
  • Writeln (‘Введите сторону куба’);
  • Readln (a);
  • S:=6*sqr(a);
  • V:=a*a*a;
  • Writeln (‘площадь поверхности равна’, S);
  • Writeln (‘объем куба равен’, V);
  • End.
  • Правильно
  • С ошибками
  • Программирование ветвлений в среде программирования
  • Turbo Pascal
Условный оператор
  • Этот оператор используется для выполнения одного из двух возможных вариантов программы.
  • если логическое_условие верно,
  • то выполняется оператор_1 ,
  • иначе оператор_2;
  • if логическое_условие
  • then оператор_1
  • else оператор_2;
  • Перед else точка с запятой не ставится!
Простой формой логического выражения является операция отношения:
  • Простой формой логического выражения является операция отношения:
    • < меньше,
    • > больше,
    • <= меньше или равно,
    • >= больше или равно,
    • = равно,
    • <> не равно.
  • Логическое выражение
Логическое выражение
  • Сложные формы логических выражений составляются с использованием логических операций:
    • not логическое отрицание (НЕ),
    • and логическое умножение (И),
    • or логическое сложение (ИЛИ),
    • xor исключающее ИЛИ
  • Порядок действий:
  • отрицание, умножение, сложение, операции отношений.
  • Условие полное
  • Оператор 2
  • Оператор 1
  • условие
  • Вход
  • Выход
  • Да(нет)
  • Нет (Да)
  • if <логическое выражение>
  • then <оператор 1>
  • else <оператор 2>;
  • Типы ветвлений
  • Формат полного оператора ветвления:
  • Условие неполное
  • условие
  • Оператор
  • Вход
  • Выход
  • Да(нет)
  • Нет (Да)
  • if <логическое выражение>
  • then <оператор>
  • Типы ветвлений
  • Формат неполного оператора ветвления:
  • Операторные скобки
  • Если после слов then или else нужно выполнить не один оператор, а несколько, то эти операторы заключают в операторные скобки: begin … end
  • Конструкция такого вида: Begin <последовательность операторов> end относится к составным операторам.
  • Операторы ветвления могут быть вложены друг в друга, желательно только следить за тем, чтобы then и else одного и того же оператора располагались друг под другом.
Из двух заданных целых чисел выбрать наибольшее.
  • Из двух заданных целых чисел выбрать наибольшее.
  • Математическая модель:
  • Данные: x, y
  • Результат:
  • Варианты:
  • Если x=5, y=8, то max=8
  • Если x=6, y=1, то max=6
  • Если x=5, y=5, то max=5
  • Пример:
Блок-схема: Программа:
  • Program Vetv1en;
  • Var x, y, max: integer;
  • Begin
  • Writeln (‘Введите два числа’);
  • Readln (x, y);
  • if x >=y then max:=x else max:=y;
  • Writeln (‘наибольшее = ’,max);
  • End.
  • Начало
  • Ввод (x, y)
  • x>y
  • max:=x
  • max:=y
  • Вывод (max)
  • Конец
  • Задача
  • Задачи:
  • 1. Дано целое число. Если оно является положительным то прибавить к нему 1, в противном случае вычесть из него два. Вывести полученное число.
  • 2. Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т. е. имеют ли они равные площади.
Домашнее задание:
  • Составить блок-схему и написать программу на языке Turbo Pascal для решения задачи, представленной в карточке.
Спасибо за внимание!