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

Program proizw;{ўлзЁб«пҐв (sin(x))'Ё (tan(x+1))'Ї® д®а¬г«Ґ ‹ Ја ­¦ }
type proced=procedure(x:real;var y1,y3:real);
var x,h,p1,p2,y3,y1,u3,u1:real;
p:proced;
{$f+}
procedure web(x,h:real);
begin
y1:=sin(x-h);
y3:=sin(x+h);
u1:=sin(x+1-h)/cos(x+1-h);
u3:=sin(x+1+h)/cos(x+1+h);
end;
{$f-}
procedure proizwod(x,h:real;var p1,p2:real;p:proced);
begin
p1:=(y3-y1)/2*h;
p2:=(u3-u1)/2*h;
end;

BEGIN
writeln('ўўҐ¤ЁвҐ в®зЄг:');
readln(x);
writeln('ўўҐ¤ЁвҐ и Ј:');
readln(h);
proizwod(x,h,p1,p2,p);
writeln('sinus(x)`:=',p1:10:3);
writeln('tg(x+1)`:=',p2:10:3);
readln;
end.