Ai Giup' Sua Dum` Bai Nai` Voi
Trang 1 trong tổng số 1 trang
Ai Giup' Sua Dum` Bai Nai` Voi
De bai` ve do thi : f(x)=2sinx+1
trong khoang [a,b]
a,b nhap tu ban phim
Bai lam`
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.
trong khoang [a,b]
a,b nhap tu ban phim
Bai lam`
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
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- Thành viên mới
- Ngày sinh : 26/10/1989
Tuổi : 34
Ngày đăng ký : 15/01/2011
Similar topics
» anh em giup cai
» Ai giup Minh sua? bai Nai` voi' !!!!!!
» ai giup minh vs
» ai biết gì về đồ họa trong pascal ko giup mình bài này vói nhe
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» Ai giup Minh sua? bai Nai` voi' !!!!!!
» ai giup minh vs
» ai biết gì về đồ họa trong pascal ko giup mình bài này vói nhe
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh