Презентация на тему: Pascal: основные типы алгоритмов

комплекс опорных конспектов и практических занятий Язык программирования Паскаль (Pascal) г. Новокузнецк, МБНОУ «Гимназия № 59» Дымович Е.Е.

Составить программу вычисления среднего значения. Цифры для текста подсказок задать const, значения заданий задать с клавиатуры. Вывод оформить в виде: Лабораторная работа № 1 Ученика(цы) 9 класса … Фамилия Имя Задание 1 (баллов): _ Задание 2 (баллов): _ Задание 3 (баллов): _ Средний балл: …

Математическое описание {Описание входных переменных} r – номер работы (const) kl – номер класса (const) b1 – балл 1 задания b2 – балл 2 задания b3 – балл 3 задания Конспект {Формулы} sr = (b1+b2+b3) / 3 {Описание выходных переменных} sr – среднее арифметическое баллов

Пример программы (без оформления) Program Lr1; Uses Crt; Const r = 1; kl = 9; Var b1, b2, b3: Integer; sr: Real; Begin Clrscr; Readkey; End. Write (‘Задание 1 (баллов): ’); Readln(b1); Write (‘Задание 2 (баллов): ’); Readln(b2); Write (‘Задание 3 (баллов): ’); Readln(b3); Writeln (‘Лабораторная работа № ’, r); Writeln (‘Ученика ’, kl, ‘ класса …’); Writeln (‘Фамилия’); Writeln (‘Имя’); sr := (b1+b2+b3) / 3; Writeln (‘Средний балл: ’, sr:0:2); Переписать текст программы в тетрадь

Пример программы (с оформлением) Program Lr1; Uses Crt; Const r = 1; kl = 9; Var b1, b2, b3: Integer; sr: Real; Begin Clrscr; Readkey; End. GotoXY(15, 11); Write (‘Задание 1 (баллов): ’); Readln(b1); GotoXY(15, 13); Write (‘Задание 2 (баллов): ’); Readln(b2); GotoXY(15, 15); Write (‘Задание 3 (баллов): ’); Readln(b3); GotoXY(30,2); Writeln (‘Лабораторная работа № ’, r); GotoXY(30,4); Writeln (‘Ученика ’, kl, ‘ класса …’); GotoXY(35,6); Writeln (‘Фамилия’); GotoXY(45,8); Writeln (‘Имя’); sr := (b1+b2+b3) / 3; GotoXY(20, 22); Writeln (‘Средний балл: ’, sr:0:2); Набрать программу в среде Pascal

Блок-схема начало конец t := sqrt((2*h)/g) ввод g, h блок "начало" блок "ввод" {что Дано} блок "процесс" {вычисления} блок "вывод“ {результат} блок "конец" вывод t Задача: Напишите программу, запрашивающую высоту дома h (в метрах), и вычисляющую время падения кирпича t (в секундах) с крыши этого дома по формуле: g=9,81 задать const program Lr2; uses Crt; const g=9.81; var ……………: real; Begin clrscr; Write(‘Zadaite visoty doma’); Readln (……); t := ………………………………; Writeln ('Kirpich padaet ', …., ' c'); readkey; End. Программа h, t h Sqrt(2*h/g) t Вместо многоточия впишите необходимые имена переменных и формулу вычисления Блок-схему и текст программы переписать в тетрадь СОДЕРЖАНИЕ

Ветвление Ветвление – процесс, который реализуется по одному из двух направлений, в зависимости от выполнения определенного условия. Условный оператор Различают два вида оператора: полный условный оператор; неполный условный оператор. Выбор

Ветвление операторы; Представление в виде блок–схемы: Формат неполного условного перехода: Конспект Формат оператора: да нет линейная форма блочная форма IFусловиеThenоператор1Elseоператор2; Пример записи: Если заданное число положительно, то удвоить его, иначе увеличить в пять раз. Ifa>0thens:=a*2elses:=a*5; (если) (тогда) (иначе) IFусловиеThen begin y:=sqr(a); Writeln(y); end Elsebegin операторы; end;

Ветвление Формат полного условного оператора: IF условие Then оператор ; {выполняется только истинность условия} Представление в виде блок–схемы: Конспект Формат оператора: да нет

Ветвление Для записи условий используются следующие знаки отношений: Помимо простых условий можно в программе использовать и составные (сложные) условия. Для их записи используются связки: AND – и; OR – или; NOT – нет. Пример: условие –6 < x ≤ 2 в математике - можно записать: – 6 < x и x ≤ 2; на языке Pascal: IF (–6 < x) and (x – неравно (возможен вариант> – больше; >= – больше или равно; < – меньше;

Выбор Case переменная of Значение 1: оператор1 ; Значение 2: оператор2 ; … Else оператор4; end ; Для ситуаций, где имеется несколько (три и более) альтернатив Формат оператора выбора: Пример записи: Задать число (от 1 до 4-х). По порядковому номеру числа, определить , какое время года. (1-зима; 2-весна; 3-лето; 4-осень). Case x of 1: writeln (‘Зима’) ; 2: writeln (‘Весна’) ; 3: writeln (‘Лето’) ; 4: writeln (‘Осень’) ; end; СОДЕРЖАНИЕ

Цикл с предусловием while условие do begin {тело цикла} end; можно использовать сложные условия: если в теле цикла только один оператор, слова begin и end можно не писать: while (a

Цикл с предусловием Блок-схема начало Ввод неизменяющихся переменных (при наличии в исходных данных) параметр = нач_знач условие Сравнение параметра с конечным значением Тело цикла вычисления вывод да конец нет изменение параметра Конспект

Цикл с предусловием Особенности: условие пересчитывается каждый раз при входе в цикл если условие на входе в цикл ложно, цикл не выполняется ни разу если условие никогда не станет ложным, программа зацикливается a:= 4; b:= 6; while a > b do a:= a – b; a:= 4; b:= 6; while a < b do d:= a + b;

Сколько раз выполняется цикл, определите значение а или b? a:= 4; b:= 6; while a < b do a:= a + 1; 2 раза a = 6 a:= 4; b:= 6; while a < b do a:= a + b; 1 раз a = 10 a:= 4; b:= 6; while a > b do a:= a + 1; 0 раз a = 4 a:= 4; b:= 6; while a < b do b:= a - b; 1 раз b = -2 a:= 4; b:= 6; while a < b do a:= a - 1; зацикливание

Замена for на while for i:=1 to 10 do begin {тело цикла} end; i:= 1; while i = b do begin {тело цикла} i:= i - 1; end; Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла. Замена цикла for на while возможна всегда.

Цикл с постусловием repeat writeln('Введите положительное число'); read(n); until n > 0; Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла. Особенности: тело цикла всегда выполняется хотя бы один раз после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла repeat {тело цикла} until условие; условие ВЫХОДА Конспект

Цикл с постусловием Блок-схема начало Ввод неизменяющихся переменных (при наличии в исходных данных) параметр = нач_знач условие Сравнение параметра с конечным значением Тело цикла вычисления вывод да конец нет изменение параметра Конспект

Сколько раз выполняется цикл, определите значение а или b? a:= 4; b:= 6; repeat a:= a + 1; until a > b; 3 раза a = 7 a:= 4; b:= 6; repeat a:= a + b; until a > b; 1 раз a = 10 a:= 4; b:= 6; repeat a:= a + b; until a < b; зацикливание a:= 4; b:= 6; repeat b:= a - b; until a < b; 2 раза b = 6 a:= 4; b:= 6; repeat a:= a + 2; until a < b; зацикливание СОДЕРЖАНИЕ

Вычислить значение : , если х изменяется от 5 до 15 с шагом 0,5. Цикл с предусловием Программа program Lr9; uses Crt; var x, y: real; Begin clrscr; x:= 5; While x

Вычислить значение : , если х изменяется от 5 до 15 с шагом 0,5. Цикл с постусловием Программа program Lr10; uses Crt; var x, y: real; Begin clrscr; x:= 5; Repeat y = sqrt(x); Writeln (‘Pri x= ‘, x:0:1, ‘ y= ‘, y:0:3); x:= x + 0.5; Until x>15; readkey; End. Блок-схема начало x := 5 x >15 конец выв x, y да нет x := x + 0,5 СОДЕРЖАНИЕ