Ввод (a, b, h)

3 x=a

4 x<b+h/2

5 y=x*x

Вывод (x,y)

7 x=x+h

Конец

Пример 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<b+h/2 do

begin

y:=sqr(x);

writeln('x=',x:6:2,',','y=',y:6:2);

x:=x+h

end

end.

Пример 6.4 (Продолжение).

1) Объяснить работу программы.

2) Объяснить назначение блоков 1- 8 блок-схемы.

3) Провести вычисления и построить функцию y=x при следующих значениях а, b, h :

A b h

-3 3 1

-3 3 0.5

-3 3 0.3

Пример 6.5 Вычислить значения и построить функцию y=f(x)
на отрезке [a, b] с шагом h .

Функция имеет вид Блок-схема

1 Начало

2 Ввод (a, b, h)

3 x=a

4 x<=2

5 y=x

Вывод (x,y)

7 x=x+h

8 x<b+h/2

9 y=x*x

Вывод (x,y)

11 x=x+h/4

Конец

Пример 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<=2 do

begin

y:=x;

writeln('x=',x:6:2,',','y=',y:6:2);

x:=x+h

end;

while x<b+h/2 do

begin

y:=sqr(x);

writeln('x=',x:6:2,',','y=',y:6:2);

x:=x+h/4

end

end.

 

Пример 6.5(Продолжение).

1) Объяснить работу программы.

2) Объяснить назначение блоков 1- 8 блок-схемы.

3) Провести вычисления и построить функцию y=x при следующих значениях а, b, h :

A b h

0 4 1

0 4 0.5

0 4 0.3

4) Как уточнить значение функции при x=2 справа ?