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

program kray;
uses crt;
const n=10;
var a,b,c,f:array[1..10] of real;
alfa, beta ,y,yan:array[0..10] of real;
i,j,kapa1,kapa2,p,q,a1,b1:integer;
h,aa,bb,mu1,mu2,x:real;
begin
clrscr;
a1:=0;b1:=1;
h:=(b1+a1)/n;
aa:=1;bb:=1/4*exp(4)+1/3*exp(3)+5/12;
p:=-7;q:=12;
for i:=1 to n-1 do begin
a[i]:=1/(h*h)-p/(2*h);
b[i]:=-2/(h*h)+q;
c[i]:=1/(h*h)+p/(2*h);
f[i]:=5; end;
kapa1:=0 ;

kapa2:=0;
mu1:=aa; mu2:=bb;
alfa[1]:=kapa1;
beta[1]:=mu1;
for i:=1 to n-1 do
begin
alfa[i+1]:=-c[i]/(a[i]*alfa[i]+b[i]);
beta[i+1]:=(f[i]-a[i]*beta[i])/(a[i]*alfa[i]+b[i]);end;
y[n]:=(kapa2*beta[n]+mu2)/(1-kapa2*alfa[n]);
for i:=n-1 downto 0 do
y[i]:=alfa[i+1]*y[i+1]+beta[i+1];

for i:=0 to n do begin
x:=a1+i*h;
yan[i]:=1/4*exp(4*x)+1/3*exp(3*x)+5/12;end;

writeln(' ','X',' ','YAN',' ','y',' ');
for i:=0 to n do
writeln((a1+i*h):3:1,' ',yan[i]:7:2,' ',y[i]:7:2);
readln;
end.