Презентация на тему: Управляющие конструкции языка Паскаль, условный оператор

Управляющие конструкции языка, условный оператор Учитель информатики МОБУ СОШ №1 с. Бижбуляк Миронов Д.В.

Графический способ описания алгоритма (программы) Наименование символа обозначение функции Процесс Решение Ввод-вывод Пуск-остановка Цикл Соединение Выполнениеопераций или группы операций, в результате которых изменяются значения, форма представления или расположенияданных Решение (блок ветвлений)выбор направления решения. Ввод-выводданных Начало или конецалгоритма Организацияцикла Указание связи между прерванными линиями

Типы Простые Структурированные Указатели Порядковые Вещественные Целые Логические Символьные Перечисляемые Интервальные Массивы Строки Множества Записи Файлы

Идентификатор Длина (байт) Диапазон значений Целые типы integer 2 -32768..32767 byte 1 0..255 word 2 0..65535 shortint 1 -128..127 longint 4 -2147483648..2147483647 Вещественные типы real 6 2,9x10-39- 1,7x1038 single 4 1,5x10-45- 3,4x1038 double 8 5x10-324- 1,7x10308 extended 10 3,4x10-4932- 1,1x104932 Логический тип boolean 1 true, false Символьный тип char 1 все символы кодаASCII

Линейный алгоритм Все действия в программе выполняются последовательно одно за другим

Управляющие конструкции Ветвление. Условный оператор Условный оператор–реализует алгоритмическую конструкцию "развилка" (ветвление) и изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия.

Существует два варианта оператора: Полная форма: if then else; и краткая форма: if then; Если (IF) условие истинно, тогда (THEN) выполняется оператор1, иначе (ELSE) выполняется оператор2.

Составной оператор–представляет собой группу операторов ограниченных так называемыми операторными скобками Begin и End. В этом случае данная группа операторов, состоящая из произвольного количества любых операторов, воспринимается компилятором как один оператор. Begin Write (‘Текущее сообщение’); z:=l; d:=d+l; End; If х>=0 then begin write (‘Контрольное число положительно’); z:=z+l; d:=d-1; x:=x+10; end else begin write (‘Контрольное число отрицательно’); z:=z-l; d:=d+l; x:=x-10; end.

Программа для решения квадратного уравнения. Program Kvur; Var a, b, c: real; x1, x2 : real; D : real; Begin Writeln('Решение квадратного уравнения'); Write('введите коэффициент а:',a); Readln(a); Write('введите коэффициент b:', b); Readln(b); Write('введите коэффициентc:', c); Readln(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); Writeln('Второй корень уравнения:', x2); end; If D=0 then begin x1:=-b/(2*a); Writeln('Уравнение имеет один корень:' , x1); end; If D0 D=0 D

Решить уравнение: program trt; var x,y:real; Begin read(x); if x+5>=0 then if x-20 then begin y:=sqrt(x+5)/(x-2); write(y); end else writeln('нет решения') else writeln('нет решения') End. X+5>=0 X-20 Условие: начало Ввод Х Х+5>=0 Х-20 Конец Вывод Y Нет решения Да Нет

Домашнее задание. y 1. Решить уравнение 2. Выучить теорию