Построить график функции в Delphi(консольной)

[Atoris]

Построить график y3.
y1=x^3 - 10.2*x^2 - 91.2*x -495.6
y2=x - 1.2^x
y3=y1*y2 / 2

График на весь экран . Ось X направлена вниз , у - горизонтально.
На Оси Y проставить засечки, кол-во их задаётся в константе.
На оси Х тоже проставить засечки, но без константы. Над засечками ставить числа на обоих осях.
цикл через Оператор While.
Начальное значение X, шаг и конечное значение в водятся.
Не юзать массивов , процедур , функций,файлов.
Использовать при рисовании символы Псевдографики.
Значение Y должно заканчиваться в районе 75ой позиции
Pascal, консольная delphi

[D@rkD@iver]

сделаю полностью за умеренное вознагражление

[tux@redpearsoft]

Чувак, во-первых, посмотри здесь в архиве с лабами http://www.iu7-world.ru/index.php?ac...mod;dl=item479 , во-вторых, вот мой код,не совсем допиленный, на его основе попробуй че нить свое попилить, тока проверяй, ибо я в своем не до конца уверен)))


зырь....




program GraphBuilder;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
Delta: Real = 0.000001;

var
X, Y, Y1: Real;
X0, EndOfX: Real;
YMax, YMin: Real;
Max: Real;
Step: Real;
I: Integer;
StepFor: Integer;
Differ: Real;
NumOfIter: Integer;

begin
WriteLn('Input the beginning of X');
Write('X0 = ');
ReadLn(X0);
Writeln('Input the End of X');
Write('X = ');
ReadLn(EndOfX);
WriteLn('Input Step for X');
Write('Step = ');
ReadLn(Step);
Writeln;

Write(#201#205#205#205#205#205#205# 205#205#205#205#205#205#203);
Write(#205#205#205#205#205#205#205# 205#205#205#205#205#203);
WriteLn(#205#205#205#205#205#205#20 5#205#205#205#205#205#187);
Write(#186, ' X ', #186, ' Y ', #186);
WriteLn(' Y1 ', #186);
Write(#204#205#205#205#205#205#205# 205#205#205#205#205#205#206);
Write(#205#205#205#205#205#205#205# 205#205#205#205#205#206);
WriteLn(#205#205#205#205#205#205#20 5#205#205#205#205#205#185);

X := X0;
while X < (EndOfX+Delta) do
begin
Y := Exp(-X) - Sqr(X - 1);
Y1 := (((4.07 * X + 12.7) * X + 8.7) * X + 10.8) * X + 18.8;
Write(#186, ' ', X:10:3, ' ',#186, ' ', Y:10:4, ' ', #186 );
Writeln(' ', Y1:10:4, ' ', #186);
X := X + Step;
end;

YMax := Y;
YMin := Y;
X := -2.6;
while X < (EndOfX+Delta) do
begin
Y := Exp(-X) - Sqr(X - 1);
if YMax < Y then
YMax := Y;
if YMin > Y then
YMin := Y;
X := X + Step;
end;

Differ := YMax - YMin;
Write(#200#205#205#205#205#205#205# 205#205#205#205#205#205#202);
Write(#205#205#205#205#205#205#205# 205#205#205#205#205#202);
WriteLn(#205#205#205#205#205#205#20 5#205#205#205#205#205#188);
WriteLn;
WriteLn('input a step of graph ');
Write('Step= ');
//ReadLn(StepFor);
for i :=1 to 30 do
Write(' ');
WriteLn('GRAPHIC (Y = Exp(-X) - Sqr(X - 1))');
WriteLn;
X := X0;
Write(' ', #218);
for I := 1 to 71 do
Write(#196);
WriteLn(#196);

repeat
Y := Exp(-X) - Sqr(X - 1);
if X < 0 then
Write('-',Abs(X):4:2, ' ', #180);
if X >=0 then
Write(X:5:2, ' ', #180);

If Y = 0 then
begin
for I := 1 to 72 do
Write(#196);
WriteLn(#196);
end
else
begin
if Y > 0 then
Y := Y + Abs(Ymin);
if Y < 0 then
Y := Abs(YMin) + Y;
NumOfIter := Round(Y*72/Differ) -1;
if NumOfIter = 0 then
NumOfIter := 0;
for i := 1 to NumOfIter do
Write(' ');
Writeln('*');
end;
X := X + Step;

until X > (EndOfX+Delta);
WriteLn(' ',#180);
ReadLn;
end.



ты не с иу7 ???)))