Консультация № 103882
01.10.2007, 10:00
0.00 руб.
0 1 1
протабулировать функцию y=sin(x) в паскале,буду признателен!!!

Обсуждение

Неизвестный
01.10.2007, 10:40
общий
это ответ
Здравствуйте, Медведев С.А.!
Проблема в том, что здесь принято помогать, а не "писать ЗА ...".
По этой причине в приложении привожу свой код, по которому, судя по всему, у Вас должны появиться вопросы. Чтобы совесть моя была чиста, давайте в минифоруме обсудим решение

Приложение:
TYPE Tfunc = function (xx: Real): Real;procedure Tab(func: TFunc; from, upto, step: Real);begin repeat WriteLn(from:8:6,‘ ‘,func(from):8:6); from := from + step; until from >= upto;end;function MySin(x:Real): Real; far;begin MySin:=Sin(x)end;BEGIN Tab(MySin, 0, pi, pi/8);END.
Форма ответа