3.4 Блок-схема алгоритма решения задачи

program imr3;

const n=10;

type mas1=array[1..n] of real;

var a1, b1, c1, a2, b2, c2, p1, p2, NY1, NY2:real;

f1, f2, f3:text;

P, NY:mas1;

i:integer;

begin

assign(f1,'dano.txt');

assign(f2,'tab.txt');

assign(f3,'vivod.txt');

reset(f1);

reset(f2);

rewrite(f3);

read (f1, p1, p2);

for i:=1 to n do

begin

readln(f2, P[i], NY[i]);

if (P1=P[i]) then

begin

NY1:=NY[i];

writeln(f3,' ny1=',ny1:6:6);

end;

if (P2=P[i]) then

begin

NY2:=NY[i];

writeln(f3,' ny2=',ny2:6:6);

end;

end;

for i:=2 to n-1 do

begin

if (P1>P[i-1]) and (P1<P[i+1]) then

begin

a1:=((ny[i+1]-ny[i-1])/(p[i+1]-p[i-1])-(ny[i]-ny[i-1])/(p[i]-p[i-1]))/(p[i+1]-p[i]);

b1:=(ny[i]-ny[i-1])/(p[i]-p[i-1])-a1*(p[i]+p[i-1]);

c1:=ny[i-1]-a1*sqr(p[i-1])-b1*p[i-1];

NY1:=a1*sqr(p1)+b1*p1+c1;

writeln(f3,' a1=',a1:6:6,' b1=',b1:6:6,' c1=',c1:6:6,' ny1=',ny1:6:6);

end;

if (P2>P[i-1]) and (P2<P[i+1]) then

begin

a2:=((ny[i+1]-ny[i-1])/(p[i+1]-p[i-1])-(ny[i]-ny[i-1])/(p[i]-p[i-1]))/(p[i+1]-p[i]);

b2:=(ny[i]-ny[i-1])/(p[i]-p[i-1])-a2*(p[i]+p[i-1]);

c2:=ny[i-1]-a2*sqr(p[i-1])-b2*p[i-1];

NY2:=a2*sqr(p2)+b2*p2+c2;

writeln(f3,' a2=',a2:6:6,' b2=',b2:6:6,' c2=',c2:6:6,' ny2=',ny2:6:6);

end;

end;

close(f1);

close(f2);

close(f3);

end.

h

c

0,0009

0,74

-1,7198

1

60

0,1

0,08