Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [паскаль]графика

Автор: madjaheda 8.6.2010, 22:26

program Kyrsova_Robota;
uses Graph,crt;
    Type mas=array[1..18,1..18] of real;
    Type mas1=array[1..20] of real;
var F:mas;
    X1,X2,minF,z:mas1;
    t1,z2,z1,t,dt,tk,tp,xp1,xp2,xk1,xk2,dx1,dx2,minY,mx,my,minX1,minX2:real;
    i,j,u,grDriver,grMode,y,yy,x,xx,px,py,px1,py1:integer;
    grPath,l,l1,s:string;

{Pidprograma - Procedyra formyvanniy masiviv X1,X2--}
procedure form(var XN:mas1;xp,xk:real);
var  dx,x:real;
begin
dx:=(xk-xp)/(18-1);
x:=xp;
for i:=1 to 18 do begin
XN[i]:=x;
x:=x+dx;
end;
end;
{-----------------------------------------------------}

function a(er:real):real;
begin
a:=(sqr(sin(t)/cos(t)))/(sqr(t));
end;

function b(w1,te,w2:real):real;
begin
b:=(w1*w2)*(w1*w2)*(w1*w2)/w2+((w1*(sqr(te))/(w2*2/te-2))-((sqr(w2))+(sin(8))*(sqr(w2))));
end;

procedure miF(x:mas;k1,k2:mas1; var miY:real;var miX1,miX2:real);
begin
miY:=x[1,1];
miX1:=k1[1];
miX2:=k2[1];
for u:=1 to 18 do begin
for j:=1 to 18 do begin
if x[u,j]<miY then begin
miY:=x[u,j];
miX1:=k1[u];
miX2:=k2[j];
end;
end;
end;
end;

{-----------------Osnovna Programa----------------}
begin
clrscr;
xp1:=0.1;
xp2:=-4.1;
xk1:=1.8;
xk2:=-1.9;
tp:=1.4;
tk:=3.2;
dt:=0.3;
t:=tp;
{------------Formyvanniy Masiviv X1,X2------------}
form(X1,xp1,xk1);
form(X2,xp2,xk2);
{-------------------------------------------------}

writeln;
writeln('                                 Pochatok  Tablici');
writeln;
writeln('               ЪДДДДВДДДДДДДДДВДДДДДДДДДДДВДДДДДДДДДДВДДДДДДДВДДДДДДДї');
writeln('               і  i і   T     і     Z     і   minF   і X1min і X2min і');
write('               ГДДДДЕДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДЕДДДДДДДґ');
for i:=1 to 18 do begin
if t=0 then t:=0.3;
Z[i]:=a(t);
writeln;
for u:=1 to 18 do begin
for j:=1 to 18 do begin
F[u,j]:=b(x1[u],z[i],x2[j]);
end;
end;
miF(F,X1,X2,minY,minX1,minX2);
minF[i]:=minY;
if i=10 then begin
readln;
writeln;
writeln;
writeln('                                 Kinec Tablici');
end;
if ((i>=1)and(i<9)) then begin
writeln('               і ',i:2,' і ',T:6:2,'  і',z[i]:10:3,' і ',minY:8:4,' і',minX1:3:1,'    і',minX2:3:1,'   і');
write('               ГДДДДЕДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДЕДДДДДДДґ');
end;
if i=9 then  begin
writeln('               і',i:3,' і ',T:6:2,'  і',z[i]:10:3,' і ',minY:8:4,' і',minX1:3:1,'    і',minX2:3:1,'   і');
write('               АДДДДБДДДДДДДДДБДДДДДДДДДДДБДДДДДДДДДДБДДДДДДДБДДДДДДДЩ');
end;
if i=10 then begin
writeln('               ЪДДДДВДДДДДДДДДВДДДДДДДДДДДВДДДДДДДДДДВДДДДДДДВДДДДДДДї');
writeln('               і ',i:2,' і ',T:6:2,'  і',z[i]:10:3,' і ',minY:8:4,' і',minX1:3:1,'    і',minX2:3:1,'   і');
write('               ГДДДДЕДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДЕДДДДДДДґ');
end;
if ((i>=11)and(i<18)) then begin
writeln('               і ',i:2,' і ',T:6:2,'  і',z[i]:10:3,' і ',minY:8:4,' і',minX1:3:1,'    і',minX2:3:1,'   і');
write('               ГДДДДЕДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДЕДДДДДДДґ');
end;
if i=18 then  begin
writeln('               і',i:3,' і ',T:6:2,'  і',z[i]:10:3,' і ',minY:8:4,' і',minX1:3:1,'    і',minX2:3:1,'   і');
write('               АДДДДБДДДДДДДДДБДДДДДДДДДДДБДДДДДДДДДДБДДДДДДДБДДДДДДДЩ');
writeln;writeln;
end;
t:=t+dt;
end;
readln;
{----------------------------------------------------------}

{--------------------------Graphik-1-----------------------}

grDriver:=Detect;
grPath:='D:/tp7/tp7/BGI';
InitGraph(grDriver,grMode,grPath);
setbkcolor(9);
setcolor(4);

line(getmaxX div 2,40,getmaxX div 2,440);
line(20,getmaxY div 2,620,getmaxY div 2);
line(getmaxX div 2,40,326,50);
line(getmaxX div 2,40,313,50);
line(620,getmaxY div 2,610,246);
line(620,getmaxY div 2,610,233);
setcolor(13);
outtextxy(332,35,'F');
outtextxy(620,252,'T');

settextstyle(2,0,4);
t:=0;
t1:=0;
x:=(getmaxX div 2)+28;
xx:=(getmaxX div 2)-28;
while ((x<=630)and(xx>=30)) do begin
setcolor(4);
line(x,241,x,237);
line(xx,241,xx,237);
setcolor(10);
t:=t+0.3;
t1:=t1-0.3;
if t<=5 then begin
str(t:2:1,l);
str(t1:2:1,l1);
outTextXY(x-10,247,l);
outTextXY(xx-10,247,l1);
end;
x:=x+28;
xx:=xx-28;
end;
t:=0;
y:=(getmaxY div 2)-18;
yy:=(getmaxY div 2)+18;
while ((y>=50)and(yy<=440)) do begin
setcolor(4);
line(317,y,321,y);
line(317,yy,321,yy);
setcolor(10);
t:=t+0.1;
if t<=1.1 then begin
str(t:2:2,l);
settextjustify(2,0);
outTextXY(310,y+5,l);
outTextXY(310,295,'-0.3');
end;
y:=y-18;
yy:=yy+18;
end;
settextstyle(0,0,0);
setcolor(14);
outtextXY(500,150,'Z(t)');
{------------Pobydova Graphika--------------}
t:=tp;
t1:=tp+dt;
mx:=56;
my:=180;
setcolor(14);
for i:=1 to 17  do
  begin
   if t=0 then t:=0.3;
   if t1=0 then t1:=0.3;
   Z1:=a(t);
   Z2:=a(t1);
   px:=318+round(t*mx);
   py:=239-round(Z1*my);
   px1:=318+round(t1*mx);
   py1:=239-round(Z2*my);
   line(px,py,px1,py1);
   t:=t+dt;
   t1:=t1+dt;
   end;
   t:=tp;
   for i:=1 to 18 do begin
   if t=0 then t:=0.3;
   Z1:=a(t);
   px:=318+round(t*mx);
   py:=239-round(Z1*my);
   SetTextStyle(2,0,3);
   str(Z1:2:3,l);
   setcolor(12);
   circle(px,py,2);
   outtextxy(px+10,py+12,l);
   t:=t+dt;
end;
readln;
closeGraph;
{----------------------------------------------------------}
{--------------------------Graphik-2-----------------------}
grDriver:=Detect;
grPath:='D:/tp7/tp7/BGI';
InitGraph(grDriver,grMode,grPath);
setbkcolor(9);
setcolor(4);
  line(getmaxX div 2,40,getmaxX div 2,440);
line(20,getmaxY div 2,620,getmaxY div 2);
line(getmaxX div 2,40,326,50);
line(getmaxX div 2,40,313,50);
line(620,getmaxY div 2,610,246);
line(620,getmaxY div 2,610,233);
setcolor(13);
outtextxy(332,35,'F');
outtextxy(620,220,'T');

  settextstyle(2,0,4);
t:=0;
t1:=0;
x:=(getmaxX div 2)+28;
xx:=(getmaxX div 2)-28;
while ((x<=605)and(xx>=35)) do begin
setcolor(4);
line(x,241,x,237);
line(xx,241,xx,237);
setcolor(10);
t:=t+0.3;
t1:=t1-0.3;
if t<=5 then begin
str(t:2:1,l);
str(t1:2:1,l1);
outTextXY(x-10,247,l);
outTextXY(xx-10,247,l1);
end;
x:=x+28;
xx:=xx-28;
end;
settextstyle(0,0,0);
t:=0;
y:=(getmaxY div 2)-30;
yy:=(getmaxY div 2)+30;
while ((y>=55)and(yy<=435)) do begin
setcolor(4);
line(317,y,321,y);
line(317,yy,321,yy);
setcolor(10);
t:=t-10;
if t>=-60 then begin
str(t:2:0,l);
settextjustify(2,0);
outTextXY(310,yy+5,l);
end;
y:=y-30;
yy:=yy+30;
end;
setcolor(14);
outtextXY(500,400,'minF(t)');
{--------------Pobydova Graphika--------------}
t:=tp;
t1:=tp+dt;
mx:=56;
my:=4;
setcolor(14);
for i:=1 to 17 do begin
if t=0 then t:=0.3;
if t1=0 then t1:=0.3;
Z1:=minF[i];
Z2:=minF[i+1];
   px:=318+round(t*mx);
   py:=178-round(Z1*my);
   px1:=318+round(t1*mx);
   py1:=178-round(Z2*my);
   line(px,py,px1,py1);
t:=t+dt;
t1:=t1+dt;
end;
   t:=tp;
   for i:=1 to 18 do begin
   if t=0 then t:=0.3;
   Z1:=minF[i];
   px:=318+round(t*mx);
   py:=178-round(Z1*my);
   SetTextStyle(2,0,3);
   str(Z1:2:2,l);
   setcolor(12);
    outtextxy(px+10,py+12,l);
   circle(px,py,2);
   t:=t+dt;
end;
readkey;
closeGraph;
end.

Автор: madjaheda 10.6.2010, 22:32

Люди, попробуйте открыть программу пожалуйста. У меня загвостка с графическим режимом. Когда должно показывать графики, то паскаль почему-то сворачивается и на этом все...у кого получится напишите плиз на icq 458504350