"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

write(' xD= '); readln(xD);
write(' yD= '); readln(yD);
AB:=sqrt(sqr(xB-xA)+sqr(yB-yA));
BC:=sqrt(sqr(xC-xB)+sqr(yC-yB));
CD:=sqrt(sqr(xD-xC)+sqr(yD-yC));
AD:=sqrt(sqr(xD-xA)+sqr(yD-yA));
DB:=sqrt(sqr(xB-xD)+sqr(yB-yD));
p1:=(AB+DB+AD)/2;
T1:=sqrt(p1*(p1-AB)*(p1-DB)*(p1-AD));
p2:=(DB+CD+BC)/2;
T2:=sqrt(p2*(p2-DB)*(p2-CD)*(p2-BC));
L:=(T1+T2);
writeln;
write('Jusu ievadita 4-stura laukums ir ',L:4:2);
end.
Pk5-9. Noteikt vienādojuma f(x)= 0 reālās saknes lietotāja izvēlētā intervālā (a, b). Izveidot
programmas komentāru. Veikt rezultātu pārbaudi.
program saknes;
var a,b,c,eps,fa,fc: real;
function f(x:real): real;
begin f:=sqr(x) - 2; end;
begin
read(a,b,eps);
fa:= f(a);
while abs(b-a) > eps do
begin
c:= (a+b)/2;
fc:= f(c);
if fa*f c< 0 then b:= c
else begin
a:= c; fa:= f(c); end;
end; write(c) ;end.
Pk5-10. Noteikt laukumu figūrai, kuru ierobežo līkne y(x), abscisu ass un taisnes x=a
un x=b ar uzdotu precizitāti p. Izveidot programmas komentāru.
program laukums_y;
label 1;
var a,b,s1,s2,x,d,p: real;
n: integer;
function y(x: real): real;
begin
y:= Sqrt (100-Sqr(8-x))-6;
52