Занятие №5: Вычисление полиномов и их производных. Нахождение наибольшего и наименьшего значения функции.

1. В ычислить значения многочлена и его первую производную, используя формулу Горнера значения функции в заданном интервале с заданным шагом. Значения аргумента подобрать самостоятельно:

y= 0,9x¹⁰+7,3x⁹-5,6x⁶+2,6x⁴-2,3 x³+x²-4x+7,3

program prac1;

var x,y:real;

i:integer;

const N=11;

A:array[1..N] of real=(0.9,7.3,0,0,-5.6,0,2.6,-2.3,1,-4,7.3);

begin

readln(x);

y:=A[1];

for i:=2 to N do y:=y*x+a[i];

writeln('y=',y:0:4);

y:=N*A[1];

for i:=2 to N do y:=y*x+(N-i+1)*a[i];

writeln('y''=',y:0:4);

writeln('Vipolnil Kovrigin Anatoliy');

readln;

end.

2. Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом:

11.

program prac2;

const A=-1;

B=8;

D=0.5;

var x,y,yl,yh:real;

begin

x:=A+D;

yl:=(A+1)/(3*sqr(A)+2);

yh:=yl;

while x<=B do

begin

y:=(x+1)/(3*sqr(x)+2);

if y>yh then yh:=y else if y<yl then yl:=y;

x:=x+D;

end;

writeln('max: ',yh:0:4,' min: ',yl:0:4);

writeln('Vipolnil Kovrigin Anatoliy');

readln;

end.

Занятие №6: Решение задач на использование комбинации операторов цикла и ветвления.

1. Чему равна знакочередующаяся сумма цифр числа n.

вариант а(через строку):

program prac1;

var n:string[40];

s:longint;

i,n0,temp:integer;

begin

readln(n);

n0:=ord(n[0]);

i:=1;

while i<=n0 do begin

val(n[i],temp);

s:=s+temp;

inc(i);

if i>n0 then break else

begin

val(n[i],temp);

s:=s-temp;

end;

inc(i);

end;

writeln(s);

writeln(‘Vipolnil Kovrigin Anatoliy’);

readln;

end.

в ариант б(через числа):

program prac1;

var n,s,m:longint;

c:byte;

begin

readln(n);

m:=1;

while n div m<>0 do

begin

inc(c);

m:=m*10;

end;

while n<>0 do

begin

s:=s-n mod 10;

n:=n div 10;

if n<>0 then

begin

s:=s+n mod 10;

n:=n div 10;

end else break;

end;

if odd(c) then s:=-s;

writeln(s);

writeln('Vipolnil Kovrigin Anatoliy');

readln;

readln;

e nd.

2. Даны натуральное число n и вещественное число X.Составить программу для вычисления:

p rogram prac2;

var x,y:real;

n:integer;

begin

readln(x);

readln(n);

while n>0 do

begin

x:=sin(x);

y:=y+x;

dec(n);

end;

writeln(y:0:10);

writeln(‘Vipolnil Kovrigin Anatoliy’);

readln;

e nd.

Занятие №7: Программирование вложенных циклов

Скласти програму обчислення S - суми ряду, використовуючи вкладені цикли. Початкові дані наведені у таблиці 1 (1 рівень) і таблиці 2 (2 рівень).

1. Таблиця 1 (перший рівень)

11

program prac1;

var k,i,j:integer;

p,s:real;

begin

for k:=-3 to -2 do begin

p:=1;

for j:= 3 to 4 do

for i:= 1 to 2 do

p:=p*k/(i+j*sqr(j));

s:=s+p;

end;

writeln(s:0:8);

writeln('Vipolnil Kovrigin Anatoliy');

readln;

end.

2. Таблиця 2 (другий рівень)

11

program prac1;

var i,k:integer;

s,p:real;

begin

for k:=4 to 5 do

begin

p:=1;

for i:=1 to 2 do p:=p*(k-7)/i;

s:=s+p;

end;

writeln(s:0:3);

writeln('Vipolnil Kovrigin Anatoliy');

readln;

end.