Программирование циклических алгоритмов с предусловием

End.

Begin

END.

BEGIN

Числом повторений

Первая форма счетного оператора цикла позволяет наращивать пара­метр цикла на единицу (+ 1):

FOR <параметр цикла>:= <min значение> TO <max значение> DO <оператор>;

(Для) (увеличивая к) (выполнять)

где <параметр цикла> - это переменная целого либо любого порядкового типа; <min, max значения> - это начальное и конечное значения пара­метра цикла (выражения того же типа, что и параметр цикла).

Вторая форма позволяет уменьшать значение параметра цикла на еди­ницу (- 1):

FOR <параметр цикла>:= <max знач.> DOWNTO <min знач.> DO <оператор>; (Для) (уменьшая к) (делать)

Пример 1. Вычислить сумму элементов s=1+1/4+1/9+1/16+....

На основе анализа изменения параметра знаменателя определим алгоритм решения за­дачи и напишем программу:

PROGRAM suma;

VAR s, r: REAL;

i, N: INTEGER;

s:=0;

WRITELN('введите N');

READ(N);

FOR I:=1 TO N DO

begin

r:=1/sqr(i);

s:=s+r;

end;

WRITELN('Сумма=',s:6:2);

Пример 2. Вычислить значения двух функций F1(x)=tg(x) и

F2(x)=sin(x) в n точках, рав­номерно распределенных на интервале a ≤ x ≤ b, где a=-π/4, b=π.

Для реализации данной задачи разработана следующая программа:

Program Lab3;

Const а = -pi/4; b = pi;

Var F1, F2, x, dx: real; {dx - шаг изменения х}

i, n: integer; {i - пеpеменная цикла}

writeln ('введите число точек N');

read(n);

dx: = abs(b-a)/(n-1);

x:=a;

writeln (' _____________________________');

writeln ('| I | X | F1 | F2 |');

writeln ('|---|--------------|------------|------------|');

for i:=1 to n do {опеpатоp цикла}

begin

F2:=sin(x);

F1:=F2/cos(x); {вычисление: tg x}

writeln('|', i:3,' |', x:8:3,'|', f1:8:4,' |', f2:8:4,' |');

x:=x+dx;

end;

writeln('|________________________|);

Задание 2 (программа 3_2)

Вычислить значения двух функций в n равномерно распределенных в диапазо-

№ п/п	a	b	n	F1(х)	F2(х)
	-1 -2 - -1 -4 -	2 2		sin x cos x 1+2^x+5 4e^-|x|-1 | x+10|^5 2 sin 2x +1 2-cos x 2^-x/100 x^3e^2x 1/(1+ ) 5-3 cos x |sinx|+|cosx|	sin x + cos x -1 (x-1)^3 cos x e^-(x+5) (x+5)^3(1+sin^2x) 20/(1+x^2) e^xsin x x ln^2x 2^x/(1-4^x) |sin x| - |cos x|

не а≤x≤b точках. Результаты оформить в виде таблицы.

Лабораторная работа 4

Цель работы: научиться разрабатывать и отлаживать программы с неразветвленными и разветвленными циклами, управляемыми условиями.

Структура оператора цикла с предусловием (с предварительной про­веркой условия):

WHILE <условие _ выполнения> DO <оператор>;

пока делать

где <условие> - это любое логическое выражение, <оператор> - это про­извольный оператор Турбо Паскаля, в том числе и составной.

Пример. Для трех значений а = 0.1, 0.2,0.3 протабулировать функцию y=a^.tg(x/4) при изменении аргумента x на интервале [0.5,0.9] с шагом, равным a.

Program a4_1;

var

a,x,y:real;

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