Графические уравнения в pascal

04.06.2013, 21:19. Показов 730. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Нужно построить график уравнения y=ln(|x|)/x при x не равном 0 и y=1 при x=0
Вот что у меня вышло, но вроде как масштаб хромает.Чем быстрее тем лучше.Заранее благодарю

Pascal

Program P5;
Uses graph;
{$R-}
Var gd,gm,x0,y0,mx,my,xm,ym:integer;
x,y:real;
 
Begin
gd:=detect;
InitGraph(gd,gm,'');
Line(0, round(GetMaxY/2), GetMaxX,
Round(GetMaxY/2));
Line(round(GetMaxX/2), 0,
Round(GetMaxX/2), GetMaxY);
Mx:=300; x0:=320; My:=440; y0:=460;
for xm:=-360 to 620 do begin
x:=(xm-x0)/MX;
if x=0 then y:=1
else y:=(ln(abs(x)))/ x;
ym:=round(y0-y*my);
putpixel(xm,ym,15);
end;
Readln;
writeln(x0,y0);
CloseGraph;
End.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.06.2013, 21:19

Ответы с готовыми решениями:

Графические возможности Free Pascal
Графический возможности Фри паскаль y=x/x*2-1

Доклад на тему "Графические возможности среды Pascal"
Я учусь в 9 классе Помогите пожалуйсто надо написать доклад на тему "Графические возможности среды...

Решение уравнения Шредингера на Pascal
Ребят, пожалуйста помогите, курсовая горит. Решите пожалуйста уравнение Шредингера на языке Pascal...

Решение логарифмического уравнения Pascal
http://i29.***********/big/2011/0912/29/1257e09d2311101b0d17ea5dc9d95b29.png Помогите написать...

	04.06.2013, 21:19

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.06.2013, 21:19

Помогаю со студенческими работами здесь

Найти корень нелинейного уравнения (Pascal -> C++)
как вписать функцию (tg(0.47x+0.2)=x^2 на языке С++ если есть пример на языке паскаля. (нужно...

Прорешать уравнения в excel и вывести в Pascal
Здравствуйте, нужно решить уравнение в excel (либо в тетради) и вывести его в pascal. Заранее...

Нахождение корней квадратного уравнения (Pascal -> C++)
Помогите Перевести с Pascal на C++ Можно и картинкой Добавлено через 33 секунды Вот код: ...

Программа для вычисления уравнения на Pascal
Программа должна решить уравнение: ,,,,,,,,,,,,,,,,x Z(x)= ------------------...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх