01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / TOL / TOL

Program Tolik; {ўлзЁб«пҐв Їа®Ё§ў®¤­лҐ д-жЁЁ г=sin(x) Ї® д®а¬г«Ґ
‹ Ја ­¦  ў ­ҐЄ®в®але 3-е б®бҐ¤­Ёе в®зЄ е,
®вбв®пйЁе ­  ўҐ«ЁзЁ­г и Ј  H}
Uses Crt;
Type
Func=Function(x:real):real;
var
i,j:integer;
xn,x0,x1,x2,h:real;
y0,y1,y2:real;

{$F+}
Function s(x:real):real;
begin
s:=sin(x);
end;
{$F-}

Procedure Differ(f:func;xn,h:real;var x0,x1,x2,y0,y1,y2:real);
begin
x0:=0;x1:=0;x2:=0;
x0:=xn;x1:=x0+h;x2:=x1+h;
y0:=(-3*f(x0)+4*f(x1)-f(x2))/(2*h);
y1:=(-f(x0)+f(x2))/(2*h);
y2:=(f(x0)-4*f(x1)+5*f(x2))/(2*h);
end;

begin
ClrScr;
Write('‚ўҐ¤ЁвҐ ЇҐаўго в®зЄг :');
Read(xn);
Write('‚ўҐ¤ЁвҐ и Ј :');
Read(h);
Differ(s,x0,h,x0,x1,x2,y0,y1,y2);
Writeln;
Writeln('Џа®Ё§ў®¤­ п дг­Є. ў в е0= ',x0:4:2,' : ',y0:5:2);
Writeln('Џа®Ё§ў®¤­ п дг­Є. ў в е1= ',x1:4:2,' : ',y1:5:2);
Writeln('Џа®Ё§ў®¤­ п дг­Є. ў в е2= ',x2:4:2,' : ',y2:5:2);
Readln;
Readln;
end.