Лабораторная работа 6 Работа в среде Турбо Паскаль. Чтение и составление программ циклических вычислительных процессов.
Циклический вычислительный процесс. Циклы со счетчиком. Оператор FOR (for) for to do ; от до выполнять ; При каждом повторении значение переменной увеличивается на +1. for downto do ; от до выполнять ; При каждом повторении значение переменной уменьшается на --1
Циклы со счетчиком. Блок-схемы. for i:=A to B do ; Блок 1 Блок 2 Блок 3 i:=A+1 for i:=В downto А do ; Блок 1 Блок 2 Блок 3 i:=В-1
Пример 6.1 Вычислить значения и построить функцию y=f(x) на отрезке [-3,3], если y=x. Блок-схема 1) Объяснить работу программы. 2) Объяснить назначение блоков 1- 7 блок-схемы и вписать в них выполняе- мые ими функции. 3) Провести вычисления и построить функцию y=f(x).
Пример 6.1 (Продолжение). Program PR_6_1; {y=x, dlja zelih x iz [-3,3]} var x:integer; y:real; begin x:=0; for x:=-3 to 3 do begin y:=x; writeln ('x=',x:2,',','y=',y:6:2) end end.
Пример 6.2 Вычислить значения и построить функцию y=f(x) на отрезке [-3, 3], если y=x*x. Блок-схема 1) Объяснить работу программы. 2) Объяснить назначение блоков 1- 7 блок-схемы и вписать в них выполняе- мые ими функции. 3) Провести вычисления и построить функцию y=f(x).
Пример 6.2 (Продолжение). Program PR_6_2; {y=x*x, dlja zelih x iz [-3,3]} var x:integer; y:real; begin x:=0; for x:=-3 to 3 do begin y:=sqr(x); writeln ('x=',x:2,',','y=',y:5:2) end end.
Пример 6.3 Вычислить значения и построить функцию y=f(x) на отрезке [a, b] с шагом h, если y=x. Блок-схема 1 Начало 2 Ввод (a, b, h) 3 n=[(b-a)/h] 4 i=0, n 5 x=a+i*h 6 y=x 7 Вывод (x,y) 8 Конец
Пример 6.3 (Продолжение). Program PR_6_3; var a,b,h,x,y:real; i,n:integer; begin writeln('vvedite a,b,h'); read(a,b,h); n:=trunc((b-a)/h); {zelaja tschast veschestvennogo tschisla} for i:=0 to n do begin x:=a+i*h; y:=x; writeln('x=',x:6:2,',','y=',y:6:2) end end.
Пример 6.3 (Продолжение). 1) Объяснить работу программы. 2) Объяснить назначение блоков 1- 8 блок-схемы. 3) Провести вычисления и построить функцию y=x при следующих значениях а, b, h : a b h
Циклы без счетчика. Оператор WHILE (while) while do ; Оператор Repeat … Until Repeat (повторять) … Until (до тех пор, пока) Repeat … Until
Пример 6.4 Вычислить значения и построить функцию y=f(x) на отрезке [a, b] c шагом h, если y=x*x.. Блок-схема 1 Начало 2 Ввод (a, b, h) 3 x=a 4 x
Пример 6.4 (Продолжение). Program PR_6_4; var a,b,h,x,y:real; begin writeln('vvedite a,b,h'); read(a,b,h); x:=a; while x
Пример 6.4 (Продолжение). 1) Объяснить работу программы. 2) Объяснить назначение блоков 1- 8 блок-схемы. 3) Провести вычисления и построить функцию y=x при следующих значениях а, b, h : a b h
Пример 6.5 Вычислить значения и построить функцию y=f(x) на отрезке [a, b] с шагом h. Функция имеет вид Блок-схема 1 Начало 2 Ввод (a, b, h) 3 x=a 4 x
Пример 6.5 (Продолжение). Program PR_6_5; var a,b,h,x,y:real; begin writeln('vvedite a,b,h'); read(a,b,h); x:=a; while x
Пример 6.5 (Продолжение). 1) Объяснить работу программы. 2) Объяснить назначение блоков 1- 8 блок-схемы. 3) Провести вычисления и построить функцию y=x при следующих значениях а, b, h : a b h ) Как уточнить значение функции при x=2 справа ?