Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Ai giup Minh sua? bai Nai` voi' !!!!!!

Go down

Ai giup Minh sua? bai Nai` voi' !!!!!! Empty Ai giup Minh sua? bai Nai` voi' !!!!!!

Bài gửi by anhlapro26 15/1/2011, 7:26 pm

De bai ve do thi ham f(x) = 2sinx+1
trong khoang [a,b] , bien' a,b nhap tu ban phim
program vedothi;
uses crt,graph;
var gd,gm,c,h,c0,h0,c1,h1,c2,h2:integer;
a,b,x,y,kx,ky,ymax,ymin,min,max,sinx:real;
procedure khoitaodohoa;
begin
gd:=detect;
initgraph(gd,gm,'C:\tp7\bgi');
if graphresult<>0 then
begin
writeln('loi do hoa bam enter de dung ');
readln;
halt(1);
end;
end;
Function fx(x:real):real;
begin
fx:=2*sinx+1;
end;
procedure minmax(a,b:real; var min,max:real);
Var
x,y:real;
begin
x:=a ;y:=fx(x); min:=fx(x); max:=fx(x);
while (x<=b) do
begin
y:=fx(x);
if max if min>y then min:=y;
x:=x+1;
end;
end;
begin
clrscr;
writeln('Nhap a= ');readln(a);
writeln('Nhap b= ');readln(b);
minmax(a,b,min,max);
kx:=getmaxx/abs(b-a);
ky:=getmaxy/abs(ymax-ymin);
c0:=round((-a)*kx);
h0:=round(ymax*ky);
khoitaodohoa;
setcolor(blue);
setbkcolor(magenta);
line(0,h0,getmaxx,h0);
line(c0,0,c0,getmaxy);
x:=a; y:=fx(a);
c1:=c0 + round(x*kx);
h1:=h0 + round(y*ky);
moveto(c1,h1);
while (x<=b) do
begin
x:=x+0.1; y:=fx(x);
c2:=c0+round(x*kx);
h2:=h0-round(x*ky);
lineto(c2,h2);
end;
outtextxy(20,20,'bam enter de ket thuc');
readln;
closegraph;
end.
anhlapro26
anhlapro26
Thành viên mới
Thành viên mới

Nam Ngày sinh : 26/10/1989
Tuổi : 34
Ngày đăng ký : 15/01/2011

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết