Презентация к уроку Программирование линейных и разветвляющихся алгоритмов (Босова 8 класс)

Программирование линейных и разветвляющихся алгоритмов Тема: Начала программирования Проверка домашнего заданияПаскаль – язык программирования.Основные элементы языка программирования являются: алфавит, словарь, типы величин.Структура программы на Паскале состоит из четырех блоковБлок VAR – это блок описания переменных.Переменные в программе всегда одного типа.Оператор Read – предназначен для вывода на экран сообщений.Команды ввода данных описывают считывание данных с клавиатуры.1 1 0 1 0 0 1



Линейные алгоритмы – алгоритмы в которых команды выполняются последовательно по порядку Линейная программа на ввод и вывод данныхProgram Znakomstvo;Var a:string;BeginWrite (‘Введите свое имя ’);Readln (a);Writeln (‘Привет, ’, a, ‘!’ );end.Запуск программыwritelnread

Разветвляющийся алгоритм позволяет исполнителю выбирать ход работы в связи с выполнением условия Описание ветвления на ПаскальЕслиТо ИначевсеIf <условие>Then <серия команд1>Else <серия команд2>;ЕслиТо всеIf <условие>Then <серия команд1>; Дополним программу ввода и вывода данных условиемProgram Znakomstvo;Var a:string; b:charBeginWrite (‘Введите свое имя ’);Readln (a);Write (‘Введите пол m –мужской, w - женский’);Readln (b);If ord(b)=109 then Write (‘Приветствую господин, ’, a, ‘!’ ) Else Write (‘Приветствую госпожа, ’, a, ‘!’ );end.
Программа с неполным ветвлением(большее из трех)Program Maximum;Var max, a, b, c: real;BeginWrite(‘Введите числа’);Readln(a,b,c);Max:=a;If b>max then max:=b;If c>max then max:=c; write (‘Наибольшее число - ’, max);End. Вложенные ветвления if <условие1> then if <условие2> then <оператор1> else <оператор2> else <оператор3>else всегда относится к ближайшему оператору if!Если оператор состоит более чем из одной команды то его помещают begin end;





Составной оператор ветвления (вложенное ветвление)program lineynoe_uravnenie;; var a, b, x: real;begin writeln ('Решение линейного уравнения'); write ('Введите коэффициенты a , b '); readln (a, b); if a<>0 then begin x:=-b/a; writeln ('Корень уравнения x=', x) end else if b<>0 then writeln ('Корней нет') else writeln ('x – любое число');end. Домашнее задание§ 3.3, 3.4 прочитать, составить конспект, обратить внимание на работу с разными типами данных.