Задание: Вычислить на ЭВМ значение функции
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. Когда необходимо использовать операторы цикла с предусловием и с постусловием?
Программирование алгоритмов