Текст программы на языке Pascal. Структура оператора цикл с постусловие

Структура оператора цикл с постусловие

Оператор цикла с постусловием (REPEAT) предназначен для организации циклических процессов и организует выполнение цикла, состоящего из любого числа операторов, с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла осуществляется при истинности некоторого логического выражения. Структура оператора:

repeat <тело цикла> until <условие>;

здесь repeat, until – зарезервированные слова (повторять до тех пор, пока не будет выполнено условие);

< тело цикла > – произвольная последовательность операторов;

< условие > – выражение логического типа.

Блок-схема циклической конструкций с постусловием может быть изображена следующим образом:

Задание 6

Вычислить значения функции y=sin(x²) на отрезке [1,2], если шаг изменения её аргумента Dx=0,1. Схема алгоритма.

Блок-схема

program sinus;

var

x,y,dx,a,b: real;

begin

write(‘введите a, b, dx - ‘);

read(a,b,dx); x:=a; {присваивание текущему значению аргумента его начального

значения}

repeat

y:=sin(x*x); {вычисление очередного значения функции}

writeln ('x=',x:10:3,' y=',y:10:3); {печать строки таблицы}

x:=x+dx {вычисление очередного значения аргумента}

until x>b {проверка условия выхода из цикла}

end.

Примечание. Операторные скобки begin - end, ограничивающие тело цикла, можно опустить. Здесь их роль сыграют слова repeat и until.

Задания для самостоятельного выполнения

Найти сумму , где , х меняется с шагом h = c. Варианты заданий, а также значения F₁ (x), F₂ (x), a, b, c приведены в таблице 3.

Задачу решить, используя циклы:

а) WHILE;

б) REPEAT.

Вариант задачи выбирается по номеру компьютера.

Таблица 3

№ варианта	F1 (x)	F2 (x)	a	b	c
			0,3	3,12	0,15
			2,12	7,45	0,34
			0,35	3,5	0,5
			-1
			2,4	12,5	0,45
			2,6	5,8	0,3
			0,9	3,9
			0,4		0,3
			0,3	3,56	0,87
			0,7	12,9	3,7
			1,4	4,3	0,3

Дата добавления: 2014-12-10