З адание: Вычислить на эвм значение функции

at + b для at < 1;

S = cos at для at = 1;

e^-at cos at для at > 1,

для a = 1,3; b = 1,29; t [0; 2], t=0,1.

PROGRAM PRIM2;

VAR

A, B, T, S: REAL;

TO, TK, DT: REAL;

BEGIN

WRITELN(‘ВВЕДИТЕ A, B, TO, TK, DT’);

READ(A, B, TO, TK, DT);

WRITELN(‘ТАБЛИЦА ФУНКЦИИ S(T)’);

WRITELN(‘ T S(T) ‘);

T:=TO;

REPEAT

S:=A*T + B;

IF A*T = 1 THEN S:=COS(A*T);

IF A*T > 1 THEN S:=EXP(-A*T)*COS(A*T);

WRITELN(T:10:3, ‘ ‘, s:10:3);

T:=T+DT;

UNTIL T>TK

END.

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

Какие существуют операторы ветвления в языке Паскаль?
Как записываются полная и сокращенная формы условного оператора?
Как работает условный оператор?
В каких случаях используется оператор выбора?
Какие виды операторов цикла существуют в языке Паскаль?
В каких случаях применяется оператор цикла с параметром?
Когда необходимо использовать операторы цикла с предусловием и с постусловием?

11.3 Программирование алгоритмов итерационной циклической структуры Цель работы: 1. Овладение практическими навыками разработки и программирования алгоритмов итерационной циклической структуры.

2. Приобретение дальнейших навыков по отладке и тестированию программ.

Суммирование членов бесконечного ряда осуществляется до члена ряда, меньшего eps. Так как при суммировании заранее неизвестно число членов ряда, то в этом случае нецелесообразно пользоваться оператором цикла For. Задача вычисления суммы членов бесконечного ряда требует организации итерационного цикла, окончание которого определяется условием y<eps, где y – значение члена ряда.

Для некоторых рядов при вычислении члена ряда целесообразно использовать прием накопления произведения, что позволяет уменьшить затраты времени на его вычисление. Начальное значение суммы необязательно равно нулю, если значение первого члена ряда вычислять нет необходимости.

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

Задание.

Задание для подготовки

Изучить:

Организацию алгоритмов циклической структуры, когда неизвестно количество повторений цикла;
Возможности языка программирования для организации таких циклов;
Приемы программирования – вычисление суммы бесконечного ряда, накопление суммы;
Составить программу для решения задачи.

Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью  в соответствии с вариантом задания (таблица 2.8). На печать вывести значение суммы и число членов ряда, вошедших в сумму:

Таблица 2.8

Ва-риант	Сумма членов ряда	Значения х	точность
1		0,20	0,001
2	S=x-	0,10	0,005
3		0,15	0,0001
4		1,12	0,0001
5	chs=S=1+	0,70	0,0001
6		-	0,0001
7	Arctg x=S= +(-1)n	1,.5	0,0005
8		-	0.00005
9		1,7	0,007
10		-	0.005
11		0,75	0,001
12		0,62	0,005
13		0,20	0,005
14		0,30	0,001
15		0,25	0,001
16	S= +	-	0,0001
17		0,50	0,0005
18		-	0,001
19		-	0,00005
20	sinx=x-	0,45	0,0001
21		-	0,0005
22		0,90	0,00005
23		-	0,001
24		0,15	0,00001
25	S=	-	0,00005
26		0,20	0,00005
27		0,75	0,0005
28		0,65	0,0001
29	S=	0,35	0,00005
30		-	0,00005