Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные - Turbo Pascal

Формулировка задачи:

описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют: sin x + tg x; sin x - tg x. x и y изменяются в определенном диапазоне; с - в пределах кодовой таблицы.

Код к задаче: «Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные - Turbo Pascal»

textual
uses crt;
type func=function(x:real):real;
{$F+}
function f1(x:real):real;
begin
f1:=sin(x)+sin(x)/cos(x);
end;
function f2(x:real):real;
begin
f2:=sin(x)-sin(x)/cos(x);
end;
{$F-}
procedure tabl(v,w:func);
var i:byte;
    x:real;
begin
write(#218);
for i:=1 to 5 do
write(#196);
write(#194);
for i:=1 to 8 do
write(#196);
write(#194);
for i:=1 to 8 do
write(#196);
write(#191);
gotoXY(1,2);
write(#179);
write('  x  ');
write(#179);
write('sinx+tgx');
write(#179);
write('sinx-tgx');
write(#179);
gotoXY(1,3);
write(#195);
for i:=1 to 5 do
write(#196);
write(#197);
for i:=1 to 8 do
write(#196);
write(#197);
for i:=1 to 8 do
write(#196);
write(#180);
x:=0;
i:=4;
while x<=1.5+0.05 do
 begin
  gotoXY(1,i);
  write(#179);
  write(x:5:2);
  write(#179);
  write(v(x):8:3);
  write(#179);
  write(w(x):8:3);
  write(#179);
  i:=i+1;
  x:=x+0.1;
 end;
gotoXY(1,i);
write(#192);
for i:=1 to 5 do
write(#196);
write(#193);
for i:=1 to 8 do
write(#196);
write(#193);
for i:=1 to 8 do
write(#196);
write(#217);
end;
begin
clrscr;
tabl(f1,f2);
readln
end.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы