Схема алгоритма и программа решения задачи

Program Project1;

var a,b,h,d,x,y:real;

begin

writeln('введите границы интервала [a,b],шаг h-');

readln(a,b,h); //после ввода каждого значения нажать ENTER

write('введите значение d=');

readln(d);

//вывод заголовка таблицы значений функции на экран

writeln('таблица значений функции');

writeln(' x ', ' y');

x:=a; //начальное значение x

while x <= b do

begin

//вычисление y в зависимости от условия

if x<2 then y:=12*d+x+cos(x*sqr(x))

else if x<=4 then y:=ln(abs(10 – sqr(x)))

else y:= 4 + sin(sqr(x))/cos(sqr(x));

//вывод значений аргумента и функции на экран

writeln (x:5:2,' ':5,y:5:2);

x:=x+h; //приращение аргумента на h=0,5

end;

readln;

end.

Варианты заданий в табл. 9.

Составить блок-схему и программу вычисления значений функции Y(x),

где a <= x <= b, h – шаг изменения x. Значения с, dзадать самостоятельно как константы.

Таблица 9

	a=1, b=6, h=0,5		a=-3, b=5, h=0,5
	a=1, b=4 , h=0,2		a=1, b=5, h=0,25
	a=-2, b=3, h=0,5		a=0,5, b=2, h=0,2
	a=3, b=9, h=0,5		a=2, b=10, h=0,5
	a=1, b=5, h=0,5		a=1, b=5, h=0,25
	a=1, b=6, h=0,5		a=0, b=6, h=0,5
	a=2, b=8, h=0,5		a=1, b=6, h=0,5
	a=0,5, b=2p, h=0,1p.		a=1, b=5, h=0,25

Контрольные вопросы

1. Для чего предназначен оператор цикла?

2. Какие виды циклов есть в Паскале?

3. Какой формат записи имеет оператор WHILE? Как он работает? B каких случаях применяется?

4. Чем отличается оператор WHILE от оператора REPEAT?

5. Что является телом цикла?

6. Как в теле цикла выполнить несколько операторов?

7. Почему перед выполнением цикла некоторым переменным нужно задавать начальные значения?

8. Что такое зацикливание? Как его избегать?