Uses Graph,Crt;
Var Driver, Mode: Integer; {Граф. драйвер и режим}
X: Integer;
Procedure ProvGrafRezh;
Begin
InitGraph (Driver, Mode, '');
If GraphResult <> GrOk then
begin
Write ('Ошибка инициализации графического режима.');
ReadKey;
Halt;
end
End;
BEGIN
ProvGrafRezh;
Line (5,GetMaxY-5,GetMaxX-5,GetMaxY-5);
Line (5,5,5,GetMaxY-5);
setcolor(red);
For X:=100 downto 2 do
Line (X*100,(1 div X)*400+(1 mod X),(X-1) *100,(1 div (X-1))*400+(1 mod (X-1)));
ReadKey;
END.
постоение графика 1/x
люди помогите построить график 1/x !
т.e. как его построить чтоб он выглядел по человечески ?
т.e. как его построить чтоб он выглядел по человечески ?
я тут покумекал... а тебе в текстовом или графическом надо? Ибо в тексте сложно изобразить переходы.
Цитата: Franky
а тебе в текстовом или графическом надо?
:rolleyes: конечно в графическом!
Цитата: Franky
Ибо в тексте сложно изобразить переходы.
можно и в текстовом
приблизительно
причем произвольно заданной функции
Посмори, может оно
У тебя получится, что одно деление по оси икс=100 пикселей, а по оси игрек=400 пикселей.
Ну я хотяб хотел помоч!!!:)
Код:
У тебя получится, что одно деление по оси икс=100 пикселей, а по оси игрек=400 пикселей.
Ну я хотяб хотел помоч!!!:)