Пример выполнения работы. Задание: Вычислить на ЭВМ значение функции

Задание: Вычислить на ЭВМ значение функции

at + b для at < 1;

S = cos at для at = 1;

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

для a = 1,3; b = 1,29; t Î[0; 2], Dt=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.

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

1. Какие существуют операторы ветвления в языке Паскаль?

2. Как записываются полная и сокращенная формы условного оператора?

3. Как работает условный оператор?

4. В каких случаях используется оператор выбора?

5. Какие виды операторов цикла существуют в языке Паскаль?

6. В каких случаях применяется оператор цикла с параметром?

7. Когда необходимо использовать операторы цикла с предусловием и с постусловием?

Программирование алгоритмов