Пример 7. Задана арифметическая прогрессия -21; - 16; Определить номер первого положительного члена прогрессии

Задана арифметическая прогрессия -21; - 16;… Определить номер первого положительного члена прогрессии.

a – очередной член прогрессии, n – его порядковый номер

Решение:

Program Pr7;

var

a, n: integer;

begin

a:= -21; n:=1; {задаем начальные значения}

while a<=0 do begin {пока очередной член прогрессии меньше либо ра

a:=a+5; n:=n+1; равен 0, вычисляем следующий член прогрессии и end; и его порядковый номер}

writeln(‘n=’, n); {выводим номер 1-го положительного члена

прогрессии}

readln;

end.

Результат:

n=6

Пример 8.

Протабулировать функцию y:=sin(x)*x интервале [-p/2,p/2] с шагом p/10.

Решение:

Program pr8;

Var x, y: real;

begin

x:=-pi/2;

while x<=pi/2 do

begin

y:=sin(x)*x;

writeln('x=',x:8:2,' y=',y:8:2);

x:=x+pi/10

end;

end.

Пример 9.

Вычислить сумму:

S =cos(1+x)+cos²(1+x)+cos³(1+x)+...+cosⁿ(1+x) (n слагаемых).

Решение:

Рrogram Pr9;

Var n, i: integer;

s,x,t: real;

begin

write(' n='); readln(n);

write(' x='); readln(x);

s:=0; t:=cos(1+x);

for i:=1 to n do begin

s:=s+t;

t:=t*cos(1+x);

end;

writeln('s=', s:4:2)

end.