home *** CD-ROM | disk | FTP | other *** search
/ CD Action 54 / cdactioncoverdisc54.iso / Bonus / pascal.exe / prog093.pas next >
Pascal/Delphi Source File  |  2000-09-15  |  6KB  |  248 lines
  1. program program093;
  2.  uses graph,crt;
  3.   var i,sterownik,tryb:integer;
  4.  
  5. procedure inicjacja;
  6.  begin
  7.   detectgraph(sterownik,tryb);
  8.   initgraph(sterownik,tryb,'c:\...\bgi\');
  9.  end;
  10.  
  11. procedure pismo;
  12.  begin
  13.   for i:=0 to 10 do
  14.    begin
  15.     settextstyle(i,horizdir,4);
  16.     outtextxy(100,i*40,'CD-Action');
  17.    end;
  18.  end;
  19.  
  20. begin
  21.  inicjacja;
  22.  pismo;
  23.  readkey;
  24.  closegraph;
  25. end.------------C814B391F38148D
  26. Content-Type: text/plain; name="prog094.pas"
  27. Content-Disposition: attachment; filename="prog094.pas"
  28.  
  29. program program094;
  30.  uses graph,crt;
  31.   var i,j,sterownik,tryb:integer;
  32.  
  33. procedure inicjacja;
  34.  begin
  35.   detectgraph(sterownik,tryb);
  36.   initgraph(sterownik,tryb,'c:\...\bgi\');
  37.  end;
  38.  
  39. procedure justowanie;
  40.  begin
  41.   settextjustify(lefttext,bottomtext);
  42.   outtextxy(160,100,'lefttext bottomtext');
  43.   settextjustify(lefttext,centertext);
  44.   outtextxy(340,100,'lefttext centertext');
  45.   settextjustify(lefttext,toptext);
  46.   outtextxy(520,100,'lefttext toptext');
  47.   settextjustify(centertext,bottomtext);
  48.   outtextxy(160,200,'centertext bottomtext');
  49.   settextjustify(centertext,centertext);
  50.   outtextxy(340,200,'centertext centertext');
  51.   settextjustify(centertext,toptext);
  52.   outtextxy(520,200,'centertext toptext');
  53.   settextjustify(righttext,bottomtext);
  54.   outtextxy(160,300,'righttext bottomtext');
  55.   settextjustify(righttext,centertext);
  56.   outtextxy(340,300,'righttext centertext');
  57.   settextjustify(righttext,toptext);
  58.   outtextxy(520,300,'righttext toptext');
  59.   setcolor(4);
  60.   settextjustify(centertext,centertext);
  61.   for i:=160 to 520 do
  62.    begin
  63.     for j:=100 to 300 do
  64.      begin
  65.       outtextxy(i,j,'.');
  66.       if j<>300 then j:=j+99;
  67.      end;
  68.     if i<>520 then i:=i+179;
  69.    end;
  70.  end;
  71.  
  72. begin
  73.  inicjacja;
  74.  justowanie;
  75.  readkey;
  76.  closegraph;
  77. end.------------C814B391F38148D
  78. Content-Type: text/plain; name="prog095.pas"
  79. Content-Disposition: attachment; filename="prog095.pas"
  80.  
  81. program program095;
  82.  uses crt,graph;
  83.   var sterownik,tryb:integer;
  84.       i:integer;
  85.  
  86. procedure init;
  87.  begin
  88.   sterownik:=9;
  89.   tryb:=2;
  90.   initgraph(sterownik,tryb,'c:\...\bgi');
  91.  end;
  92.  
  93. procedure wykres;
  94.  begin
  95.   for i:=0 to 639 do begin putpixel(i,179,7); i:=i+3; end;
  96.   for i:=0 to 639 do begin putpixel(i,299,7); i:=i+3; end;
  97.   setcolor(8);
  98.   line(0,0,639,0);
  99.   line(0,479,639,479);
  100.   line(0,0,0,479);
  101.   line(639,0,639,479);
  102.   setcolor(15);
  103.   line(319,0,319,479);
  104.   line(0,239,639,239);
  105.   outtextxy(322,244,'0');
  106.   outtextxy(385,244,chr(20));
  107.   outtextxy(395,244,'/2');
  108.   outtextxy(475,244,chr(20));
  109.   outtextxy(548,244,'3/2');
  110.   outtextxy(573,244,chr(20));
  111.   outtextxy(620,244,'2');
  112.   outtextxy(630,244,chr(20));
  113.   outtextxy(217,244,'-');
  114.   outtextxy(225,244,chr(20));
  115.   outtextxy(235,244,'/2');
  116.   outtextxy(147,244,'-');
  117.   outtextxy(155,244,chr(20));
  118.   outtextxy(60,244,'-3/2');
  119.   outtextxy(95,244,chr(20));
  120.   outtextxy(2,244,'-2');
  121.   outtextxy(20,244,chr(20));
  122.   outtextxy(329,179,'1');
  123.   outtextxy(328,299,'-1');
  124.   setcolor(15);
  125.   line(79,236,79,242);
  126.   line(159,236,159,242);
  127.   line(239,236,239,242);
  128.   line(319,236,319,242);
  129.   line(399,236,399,242);
  130.   line(479,236,479,242);
  131.   line(559,236,559,242);
  132.   line(316,179,322,179);
  133.   line(316,299,322,299);
  134.   setcolor(15);
  135.   outtextxy(316,0,'^');
  136.   outtextxy(632,236,'>');
  137.   outtextxy(326,0,'Y');
  138.   outtextxy(632,227,'X');
  139.  end;
  140.  
  141. begin
  142.  clrscr;
  143.  init;
  144.  wykres;
  145.  readkey;
  146.  closegraph;
  147. end.------------C814B391F38148D
  148. Content-Type: text/plain; name="prog096.pas"
  149. Content-Disposition: attachment; filename="prog096.pas"
  150.  
  151. program program096;
  152.  uses crt,graph;
  153.   var sterownik,tryb:integer;
  154.       xl,yl,i,wyb,y:integer;
  155.       x,a,b,c,d:real;
  156.  
  157. procedure init;
  158.  begin
  159.   sterownik:=9;
  160.   tryb:=2;
  161.   initgraph(sterownik,tryb,'c:\...\bgi');
  162.  end;
  163.  
  164. procedure wykres;
  165.  begin
  166.   for i:=0 to 639 do begin putpixel(i,179,7); i:=i+3; end;
  167.   for i:=0 to 639 do begin putpixel(i,299,7); i:=i+3; end;
  168.   setcolor(8);
  169.   line(0,0,639,0);
  170.   line(0,479,639,479);
  171.   line(0,0,0,479);
  172.   line(639,0,639,479);
  173.   setcolor(15);
  174.   line(319,0,319,479);
  175.   line(0,239,639,239);
  176.   outtextxy(322,244,'0');     
  177.   outtextxy(385,244,chr(20));
  178.   outtextxy(395,244,'/2');    
  179.   outtextxy(475,244,chr(20));
  180.   outtextxy(548,244,'3/2');   
  181.   outtextxy(573,244,chr(20));
  182.   outtextxy(620,244,'2');     
  183.   outtextxy(630,244,chr(20));
  184.   outtextxy(217,244,'-');     
  185.   outtextxy(225,244,chr(20));
  186.   outtextxy(235,244,'/2');    
  187.   outtextxy(147,244,'-');
  188.   outtextxy(155,244,chr(20)); 
  189.   outtextxy(60,244,'-3/2');
  190.   outtextxy(95,244,chr(20));  
  191.   outtextxy(2,244,'-2');
  192.   outtextxy(20,244,chr(20));  
  193.   outtextxy(329,179,'1');
  194.   outtextxy(328,299,'-1');
  195.   setcolor(15);
  196.   line(79,236,79,242);
  197.   line(159,236,159,242);
  198.   line(239,236,239,242);
  199.   line(319,236,319,242);
  200.   line(399,236,399,242);
  201.   line(479,236,479,242);
  202.   line(559,236,559,242);
  203.   line(316,179,322,179);
  204.   line(316,299,322,299);
  205.   setcolor(15);
  206.   outtextxy(316,0,'^');
  207.   outtextxy(632,236,'>');
  208.   outtextxy(326,0,'Y');
  209.   outtextxy(632,227,'X');
  210.  end;
  211.  
  212. procedure sinus1;
  213.  begin
  214.   moveto(0,239);
  215.   setcolor(4);
  216.   for i:=1 to 638 do
  217.    begin
  218.     x:=(i*pi)/180;
  219.     y:=round(-60*sin(x*1.126));
  220.     if i<>1 then line(xl,yl,i,y+239);
  221.     xl:=i;
  222.     yl:=y+239;
  223.    end;
  224.  end;
  225.  
  226. procedure cosinus1;
  227.  begin
  228.   moveto(0,239);
  229.   setcolor(14);
  230.   for i:=1 to 638 do
  231.    begin
  232.     x:=(i*pi)/180;
  233.     y:=round(-60*cos(x*1.126));
  234.     if i<>1 then line(xl,yl,i,y+239);
  235.     xl:=i;
  236.     yl:=y+239;
  237.    end;
  238.  end;
  239.  
  240. begin
  241.  clrscr;
  242.  init;
  243.  wykres;
  244.  sinus1;
  245.  cosinus1;
  246.  readkey;
  247.  closegraph;
  248. end.