Pilnie potrzebuję pomocy. Potrzebuję programu w Turbo Pascalu, który będzie rysował wykres funkcji y=ax^3+b. Z góry dziękuję.
inicjujesz tryb graficzny, rysujesz sobie prosty uklad rownan, robisz petelke w ktorej zaleznie od zapetlanej wartosci liczysz 'y' i wstawiasz odp punkt na ekran komputera.
(jak chcesz ladniej to mozesz zapamietywac pozycje ost. wyliczonego pkt i polaczyc ten ost pkt z nowym punktem za pomoca linii prostej. najlepiej jakbys liczyl wartosci 'y' dla 'x' rozniacych sie o mala liczbe)
program funkcjaPrb3st;
uses Crt,Graph;
const pi=3.14;n=400;
var x,dx,a,b :Real;
y :Real;
i,j,sterownik,tryb,blad,di :Integer;
function f(x:Real) :Real;
begin
f:=a*x*sqr(x)+b;
end;
procedure ekran;
begin
sterownik:=detect;
InitGraph (sterownik,tryb,'C:\tp\bgi');{w ' 'jest sciezka do BGI-wskaż swoją}
blad:=GraphResult;
if blad <>0
then
begin
Writeln ('blad podczas inicjowania trybu graficznego');
Writeln ('kod bladu:',blad);
Halt;
end;
SetViewPort (0,0,639,479,ClipOn);
ClearViewPort;
SetBkColor(White);
SetColor(Blue);
SetLineStyle(SolidLn,0,NormWidth);
Line(0,240,639,240);
Line(320,0,320,479);
i:=0;
di:=40;
while i<640 do
begin
i:=i+di;
Line(i,240,i,243);
end;
i:=0;
di:=20;
while i<480 do
begin
i:=i+di;
Line(320,i,323,i);
end;
OutTextXY(362,245,'1'); {1 na osi x odpowiada 40 pixli}
OutTextXY(326,218,'1'); {1 na osi y odopwiada 20 pixli}
OutTextXY(630,245,'x');
OutTextXY(325,10,'y(x)');
end;
begin
Writeln('y=ax^3+b');
Writeln('Podaj -5<a<5');
Readln(a);
Writeln('Podaj -8<b<8');{aby zmiescic na ekranie punkt przegiecia}
Readln(b);
ekran;
dx:=16/n; {przyjety krok}
x:=-8;
MoveTo(320+Round(40*x),Round(240-20*f(x)));
while x<8 do
begin
x:=x+dx;
y:=f(x);
LineTo(Round(320+40*x),240-Round(20*y));
end;
Readln;
CloseGraph;
end.
Dziękuję bardzo za okazaną pomoc.
No wszystko jasne. Ale po co to pi?
uses Crt,Graph;
const pi=3.14;n=400;
var x,dx,a,b
To pi zostało z jakiegoś innego wykresu. Robiłem to szybko w pracy korzystając
z przodka.
moduł CRT przyda się gdy zastosujesz tryb tekstowy do opisu programu
na ekranie.
Co do zmiennych to już inwencja programisty.
Terazjuż wszystko rozumiem, dzięki. :)