Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные - Turbo Pascal
Формулировка задачи:
описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют:
sin x + tg x; sin x - tg x.
x и y изменяются в определенном диапазоне; с - в пределах кодовой таблицы.
Решение задачи: «Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д