API tools faq
paste
Sai_Bot

Funcao_afim_pronto

Sai_Bot
Feb 5th, 2016
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 21.96 KB | None | 0 0
raw download clone embed print report
  1. {
  2. Programa de apoio ao estudo da funçáo afim e constante.
  3. Versão 1.0
  4.  
  5. Autor: José Carlos Tobias da Silva
  6. Contato: [email protected]
  7.  
  8. ~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*
  9.  
  10. Características
  11.  
  12. Programa feito para enriquecimento de atividade escolar para Lucas Castro
  13. Moreira.
  14. O mesmo simula:
  15. .funções afim, mostrando crescente e decrescente.
  16. .função constante
  17.  
  18. NOTA: Este código em específico, pode ser reaproveitado, modificado e aprimora-
  19. do, desde que feitas as devidas citações ao autor do código em específico.
  20. Este código não é, de maneira alguma, o único da mesma vertente, e nem usou
  21. parte de código de terceiros, foi o mesmo totalmente feito por José Carlos
  22. Tobias da Silva.
  23.  
  24. FEITO EM: LAZARUS IDE V1.4.4, PASCAL ZIM 6.0.3b9 E VIUALG 3.0.6.2.
  25. }
  26.  
  27. Program funcao_afim ;
  28. uses crt, graph;
  29. var opt, optt: char; i,j:integer;
  30.  
  31.  
  32. procedure apresenta;
  33. begin
  34.   {
  35.   primeiro gráfico
  36.   eixo "y"
  37.   }
  38.   textcolor(yellow);
  39.   gotoxy(10,5);
  40.   write('y');
  41.   gotoxy(10,7);
  42.   write('^');
  43.   gotoxy(10,8);
  44.   write('|');
  45.   gotoxy(10,9);
  46.   write('|');
  47.   gotoxy(10,10);
  48.   write('|');
  49.   gotoxy(10,11);
  50.   write('|');
  51.   gotoxy(10,12);
  52.   write('|');
  53.   gotoxy(10,13);
  54.   write('|');
  55.   gotoxy(10,14);
  56.   write('|');
  57.   gotoxy(10,15);
  58.   write('|');
  59.   gotoxy(10,16);
  60.   write('|');
  61.   gotoxy(10,17);
  62.   write('|');
  63.   gotoxy(10,18);
  64.   write('|');
  65.   gotoxy(10,19);
  66.   write('|');
  67.   gotoxy(10,20);
  68.   write('|');
  69.   gotoxy(10,21);
  70.   write('|');
  71.   gotoxy(10,22);
  72.   write('|');
  73.   {eixo "x"}
  74.   gotoxy(1,14);
  75.   write('_');
  76.   gotoxy(2,14);
  77.   write('_');
  78.   gotoxy(3,14);
  79.   write('_');
  80.   gotoxy(4,14);
  81.   write('_');
  82.   gotoxy(5,14);
  83.   write('_');
  84.   gotoxy(6,14);
  85.   write('_');
  86.   gotoxy(7,14);
  87.   write('_');
  88.   gotoxy(8,14);
  89.   write('_');
  90.   gotoxy(9,14);
  91.   write('_');
  92.   gotoxy(11,14);
  93.   write('_');
  94.   gotoxy(12,14);
  95.   write('_');
  96.   gotoxy(13,14);
  97.   write('_');
  98.   gotoxy(14,14);
  99.   write('_');
  100.   gotoxy(15,14);
  101.   write('_');
  102.   gotoxy(16,14);
  103.   write('_');
  104.   gotoxy(17,14);
  105.   write('_');
  106.   gotoxy(18,14);
  107.   write('_');
  108.   gotoxy(19,14);
  109.   write('_');
  110.   gotoxy(20,14);
  111.   write('_');
  112.   gotoxy(21,14);
  113.   write('_');
  114.   gotoxy(22,14);
  115.   write('> x');
  116.   {
  117.   reta
  118.   }
  119.   textcolor(white);
  120.   gotoxy(3,16);
  121.   write('/');
  122.   gotoxy(4,15);
  123.   write('/');
  124.   gotoxy(5,14);
  125.   write('/');
  126.   gotoxy(6,13);
  127.   write('/');
  128.   gotoxy(7,12);
  129.   write('/');
  130.   gotoxy(8,11);
  131.   write('/');
  132.   gotoxy(9,10);
  133.   write('/');
  134.   gotoxy(10,9);
  135.   write('/');
  136.   gotoxy(11,8);
  137.   write('/');
  138.   gotoxy(12,7);
  139.   textcolor(lightred);
  140.   write('/');
  141.   writeln;
  142.   writeln;
  143.   textcolor(white);
  144.   gotoxy(5,25);
  145.   {explicação}
  146.   textcolor(lightgreen);
  147.   write('Funcao crescente');
  148.   gotoxy(5,30);
  149.   textcolor(white);
  150.   write('    x  |  ax+b');
  151.   gotoxy(5,31);
  152.   write('---------------');
  153.   gotoxy(5,32);
  154.   writeln('    0  |  y1');
  155.   gotoxy(5,33);
  156.   writeln('    1  |  y2>y1');
  157.   gotoxy(5,34);
  158.   writeln('    2  |  y3>y2');
  159.   gotoxy(5,35);
  160.   writeln('xn>xn-1|yn>yn-1');
  161.   {
  162.   segundo gráfico
  163.   eixo "y"
  164.   }
  165.   textcolor(yellow);
  166.   gotoxy(40,5);
  167.   write('y');
  168.   gotoxy(40,7);
  169.   write('^');
  170.   gotoxy(40,8);
  171.   write('|');
  172.   gotoxy(40,9);
  173.   write('|');
  174.   gotoxy(40,10);
  175.   write('|');
  176.   gotoxy(40,11);
  177.   write('|');
  178.   gotoxy(40,12);
  179.   write('|');
  180.   gotoxy(40,13);
  181.   write('|');
  182.   gotoxy(40,14);
  183.   write('|');
  184.   gotoxy(40,15);
  185.   write('|');
  186.   gotoxy(40,16);
  187.   write('|');
  188.   gotoxy(40,17);
  189.   write('|');
  190.   gotoxy(40,18);
  191.   write('|');
  192.   gotoxy(40,19);
  193.   write('|');
  194.   gotoxy(40,20);
  195.   write('|');
  196.   gotoxy(40,21);
  197.   write('|');
  198.   gotoxy(40,22);
  199.   write('|');
  200.   {
  201.   eixo "x"
  202.   }
  203.   gotoxy(29,14);
  204.   write('_');
  205.   gotoxy(30,14);
  206.   write('_');
  207.   gotoxy(31,14);
  208.   write('_');
  209.   gotoxy(32,14);
  210.   write('_');
  211.   gotoxy(33,14);
  212.   write('_');
  213.   gotoxy(34,14);
  214.   write('_');
  215.   gotoxy(35,14);
  216.   write('_');
  217.   gotoxy(36,14);
  218.   write('_');
  219.   gotoxy(37,14);
  220.   write('_');
  221.   gotoxy(38,14);
  222.   write('_');
  223.   gotoxy(39,14);
  224.   write('_');
  225.   gotoxy(41,14);
  226.   write('_');
  227.   gotoxy(42,14);
  228.   write('_');
  229.   gotoxy(43,14);
  230.   write('_');
  231.   gotoxy(44,14);
  232.   write('_');
  233.   gotoxy(45,14);
  234.   write('_');
  235.   gotoxy(46,14);
  236.   write('_');
  237.   gotoxy(47,14);
  238.   write('_');
  239.   gotoxy(48,14);
  240.   write('_');
  241.   gotoxy(49,14);
  242.   write('_');
  243.   gotoxy(50,14);
  244.   write('> x');
  245.   {
  246.   reta
  247.   }
  248.   textcolor(lightred);
  249.   gotoxy(46,16);
  250.   write('\');
  251.   textcolor(white);
  252.   gotoxy(45,15);
  253.   write('\');
  254.   gotoxy(44,14);
  255.   write('\');
  256.   gotoxy(43,13);
  257.   write('\');
  258.   gotoxy(42,12);
  259.   write('\');
  260.   gotoxy(41,11);
  261.   write('\');
  262.   gotoxy(40,10);
  263.   write('\');
  264.   gotoxy(39,9);
  265.   write('\');
  266.   gotoxy(38,8);
  267.   write('\');
  268.   gotoxy(37,7);
  269.   write('\');
  270.   gotoxy(46,17);
  271.   textcolor(yellow);
  272.   writeln;
  273.   writeln;
  274.   gotoxy(35,25);
  275.   textcolor(white);
  276.   {
  277.   explicação
  278.   }
  279.   textcolor(lightgreen);
  280.   write('Funcao decrescente');
  281.   gotoxy(35,30);
  282.   textcolor(white);
  283.   write('    x  |  ax+b');
  284.   gotoxy(35,31);
  285.   write('---------------');
  286.   gotoxy(35,32);
  287.   writeln('    0  |  y1');
  288.   gotoxy(35,33);
  289.   writeln('    1  |  y2<y1');
  290.   gotoxy(35,34);
  291.   writeln('    2  |  y3<y2');
  292.   gotoxy(35,35);
  293.   writeln('xn>xn-1|yn<yn-1');
  294.   {
  295.   terceiro gráfico
  296.   eixo "y"
  297.   }
  298.   textcolor(yellow);
  299.   gotoxy(65,5);
  300.   write('y');
  301.   gotoxy(65,7);
  302.   write('^');
  303.   gotoxy(65,8);
  304.   write('|');
  305.   gotoxy(65,9);
  306.   write('|');
  307.   gotoxy(65,10);
  308.   write('|');
  309.   gotoxy(65,11);
  310.   write('|');
  311.   gotoxy(65,12);
  312.   write('|');
  313.   gotoxy(65,13);
  314.   write('|');
  315.   gotoxy(65,14);
  316.   write('|');
  317.   gotoxy(65,15);
  318.   write('|');
  319.   gotoxy(65,16);
  320.   write('|');
  321.   gotoxy(65,17);
  322.   write('|');
  323.   gotoxy(65,18);
  324.   write('|');
  325.   gotoxy(65,19);
  326.   write('|');
  327.   gotoxy(65,20);
  328.   write('|');
  329.   gotoxy(65,21);
  330.   write('|');
  331.   gotoxy(65,22);
  332.   write('|');
  333.   {
  334.   eixo "x"
  335.   }
  336.   gotoxy(66,12);
  337.   write('_');
  338.   gotoxy(67,12);
  339.   write('_');
  340.   gotoxy(68,12);
  341.   write('_');
  342.   gotoxy(69,12);
  343.   write('_');
  344.   gotoxy(70,12);
  345.   write('_');
  346.   gotoxy(71,12);
  347.   write('_');
  348.   gotoxy(72,12);
  349.   write('_');
  350.   gotoxy(73,12);
  351.   write('_');
  352.   gotoxy(74,12);
  353.   write('_');
  354.   gotoxy(75,12);
  355.   write('_');
  356.   gotoxy(76,12);
  357.   write('_');
  358.   gotoxy(77,12);
  359.   write('> x');
  360.   {
  361.   reta
  362.   }
  363.   textcolor(lightred);
  364.   gotoxy(66,14);
  365.   write('_');
  366.   textcolor(white);
  367.   gotoxy(67,14);
  368.   write('_');
  369.   gotoxy(68,14);
  370.   write('_');
  371.   gotoxy(69,14);
  372.   write('_');
  373.   gotoxy(70,14);
  374.   write('_');
  375.   gotoxy(71,14);
  376.   write('_');
  377.   gotoxy(72,14);
  378.   write('_');
  379.   gotoxy(73,14);
  380.   write('_');
  381.   gotoxy(74,14);
  382.   write('_');
  383.   gotoxy(75,14);
  384.   write('_');
  385.   textcolor(lightred);
  386.   gotoxy(76,14);
  387.   write('_');
  388.   gotoxy(65,25);
  389.   textcolor(white);
  390.   {
  391.   explicação
  392.   }
  393.   textcolor(lightgreen);
  394.   write('Funcao constante');
  395.   gotoxy(65,30);
  396.   textcolor(white);
  397.   write('    x  |  ax+b');
  398.   gotoxy(65,31);
  399.   write('---------------');
  400.   gotoxy(65,32);
  401.   writeln('    0  |  y1');
  402.   gotoxy(65,33);
  403.   writeln('    1  |  y2=1');
  404.   gotoxy(65,34);
  405.   writeln('    2  |  y3=y2');
  406.   gotoxy(65,35);
  407.   writeln('xn>xn-1|yn=yn-1');
  408.   gotoxy(10,2);
  409.   textcolor(lightred);
  410.   write('Demonstracao de funcao linear crescente e decrescente');
  411.   gotoxy(15,40);
  412.   textcolor(lightgray+blink);
  413.   writeln('Aperte uma tecla para voltar ao menu');
  414.   gotoxy(12,40);
  415.   textcolor(lightred);
  416.   write('->');
  417.   gotoxy(10,40);
  418.   readkey;
  419. end;
  420.  
  421. procedure interage;
  422. var tecla: char; y1, y2, a, x1, x2, b: real;
  423. begin
  424.   clrscr;
  425.   textcolor(lightred);
  426.   gotoxy(10,1);
  427.   writeln('Verificando uma funcao afim f(x)=ax+b');
  428.   writeln;
  429.   writeln;
  430.   textcolor(white);
  431.   write('Entre com o valor de "a":  ');
  432.   read(a);
  433.   writeln;
  434.   write('Entre com o valor de "b":  ');
  435.   read(b);
  436.   textcolor(yellow);
  437.   gotoxy(5,10);
  438.   write('_');
  439.   gotoxy(6,10);
  440.   write('_');
  441.   gotoxy(7,10);
  442.   write('_');
  443.   gotoxy(8,10);
  444.   write('_');
  445.   gotoxy(9,10);
  446.   write('_');
  447.   gotoxy(10,10);
  448.   write('_');
  449.   gotoxy(5,10);
  450.   write('_');
  451.   gotoxy(6,10);
  452.   write('_');
  453.   gotoxy(7,10);
  454.   write('_');
  455.   gotoxy(8,10);
  456.   write('_');
  457.   gotoxy(9,10);
  458.   write('_');
  459.   gotoxy(10,10);
  460.   write('_');
  461.   gotoxy(11,10);
  462.   write('_');
  463.   gotoxy(12,10);
  464.   write('_');
  465.   gotoxy(13,10);
  466.   write('_');
  467.   gotoxy(14,10);
  468.   write('_');
  469.   gotoxy(15,10);
  470.   write('_');
  471.   gotoxy(16,10);
  472.   write('_');
  473.   gotoxy(10,9);
  474.   write('|');
  475.   gotoxy(10,10);
  476.   write('|');
  477.   gotoxy(10,11);
  478.   write('|');
  479.   gotoxy(10,12);
  480.   write('|');
  481.   gotoxy(10,13);
  482.   write('|');
  483.   gotoxy(10,14);
  484.   write('|');
  485.   gotoxy(10,15);
  486.   write('|');
  487.   gotoxy(10,16);
  488.   write('|');
  489.   gotoxy(7,9);
  490.   textcolor(white);
  491.   write('x');
  492.   gotoxy(12,9);
  493.   write('',a:3:2,'x+',b:3:2,'');
  494.   gotoxy(35,9);
  495.   write('Entre com um valor para x1:  ');
  496.   read(x1);
  497.   y1:=(a*x1)+b;
  498.   gotoxy(4,11);
  499.   write('',x1:3:2,'');
  500.   gotoxy(12,11);
  501.   write('',y1:3:2,'');
  502.   gotoxy(35,11);
  503.   write('Entre com outro valor para x2, >x1:  ');
  504.   read(x2);
  505.   y2:=(a*x2)+b;
  506.   gotoxy(4,12);
  507.   write('',x2:3:2,'');
  508.   gotoxy(12,12);
  509.   write('',y2:3:2,'');
  510.   begin
  511.     textcolor(yellow);
  512.     gotoxy(30,15);
  513.     if y1<y2 then
  514.     begin
  515.       textcolor(yellow);
  516.       {
  517.       explicação
  518.       }
  519.       writeln('Esta funcao, é uma funcao afim crescente');
  520.       gotoxy(3,27);
  521.       textcolor(lightred);
  522.       writeln('Um exemplo de gráfico seria');
  523.       textcolor(white);
  524.       gotoxy(35,30);
  525.       writeln('Sua funcao seria f(x)=',a:0:2,'x + ',b:0:2,' ,');
  526.       gotoxy(35,31);
  527.       writeln('observa-se entao que, aumentando-se');
  528.       gotoxy(35,32);
  529.       writeln('o valor de "x", aumenta-se também o');
  530.       gotoxy(35,33);
  531.       writeln('valor de "y" pois, "a>0" e "b=/=0"');
  532.       gotoxy(35,34);
  533.       textcolor(lightgray);
  534.       write('OBS: gráfico puramente demonstrativo.');
  535.       writeln;
  536.       gotoxy(10,29);
  537.       {
  538.       eixo y
  539.       }
  540.       textcolor(yellow);
  541.       gotoxy(10,29);
  542.       write('y');
  543.       gotoxy(10,31);
  544.       write('^');
  545.       gotoxy(10,32);
  546.       write('|');
  547.       gotoxy(10,33);
  548.       write('|');
  549.       gotoxy(10,34);
  550.       write('|');
  551.       gotoxy(10,35);
  552.       write('|');
  553.       gotoxy(10,36);
  554.       write('|');
  555.       gotoxy(10,37);
  556.       write('|');
  557.       gotoxy(10,38);
  558.       write('|');
  559.       gotoxy(10,39);
  560.       write('|');
  561.       gotoxy(10,40);
  562.       write('|');
  563.       gotoxy(10,41);
  564.       write('|');
  565.       gotoxy(10,42);
  566.       write('|');
  567.       gotoxy(10,43);
  568.       write('|');
  569.       gotoxy(10,44);
  570.       write('|');
  571.       gotoxy(10,45);
  572.       write('|');
  573.       gotoxy(10,46);
  574.       write('|');
  575.       {eixo "x"}
  576.       gotoxy(1,38);
  577.       write('_');
  578.       gotoxy(2,38);
  579.       write('_');
  580.       gotoxy(3,38);
  581.       write('_');
  582.       gotoxy(4,38);
  583.       write('_');
  584.       gotoxy(5,38);
  585.       write('_');
  586.       gotoxy(6,38);
  587.       write('_');
  588.       gotoxy(7,38);
  589.       write('_');
  590.       gotoxy(8,38);
  591.       write('_');
  592.       gotoxy(9,38);
  593.       write('_');
  594.       gotoxy(11,38);
  595.       write('_');
  596.       gotoxy(12,38);
  597.       write('_');
  598.       gotoxy(13,38);
  599.       write('_');
  600.       gotoxy(14,38);
  601.       write('_');
  602.       gotoxy(15,38);
  603.       write('_');
  604.       gotoxy(16,38);
  605.       write('_');
  606.       gotoxy(17,38);
  607.       write('_');
  608.       gotoxy(18,38);
  609.       write('_');
  610.       gotoxy(19,38);
  611.       write('_');
  612.       gotoxy(20,38);
  613.       write('_');
  614.       gotoxy(21,38);
  615.       write('_');
  616.       gotoxy(22,38);
  617.       write('> x');
  618.       {
  619.       reta
  620.       }
  621.       textcolor(white);
  622.       gotoxy(3,40);
  623.       write('/');
  624.       gotoxy(4,39);
  625.       write('/');
  626.       gotoxy(5,38);
  627.       write('/');
  628.       gotoxy(6,37);
  629.       write('/');
  630.       gotoxy(7,36);
  631.       write('/');
  632.       gotoxy(8,35);
  633.       write('/');
  634.       gotoxy(9,34);
  635.       write('/');
  636.       gotoxy(10,33);
  637.       write('/');
  638.       gotoxy(11,32);
  639.       write('/');
  640.       gotoxy(12,31);
  641.       textcolor(lightred);
  642.       write('/');
  643.       textcolor(lightred);
  644.       gotoxy(27,50);
  645.       write('->');
  646.       gotoxy(30,50);
  647.       textcolor(lightgray+blink);
  648.       writeln('Deseja simular outra funcao?');
  649.       textcolor(lightred);
  650.       write('1');
  651.       textcolor(lightgray);
  652.       writeln('   - sim');
  653.       textcolor(lightred);
  654.       write('2');
  655.       textcolor(lightgray);
  656.       writeln('   - nao');
  657.       textcolor(lightred);
  658.       write('opcao  :  ');
  659.       textcolor(lightgray);
  660.       read(optt);
  661.       case optt of
  662.         '1':interage;
  663.         else
  664.       end;
  665.     end;
  666.     if y1>y2 then
  667.     begin
  668.       textcolor(yellow);
  669.       {
  670.       explicação
  671.       }
  672.       writeln('Esta funcao, é uma funcao afim decrescente');
  673.       gotoxy(3,27);
  674.       textcolor(lightred);
  675.       writeln('Um exemplo de gráfico seria');
  676.       textcolor(white);
  677.       gotoxy(35,30);
  678.       writeln('Sua funcao seria f(x)=',a:0:2,'x + ',b:0:2,' ,');
  679.       gotoxy(35,31);
  680.       writeln('observa-se entao que, aumentando-se');
  681.       gotoxy(35,32);
  682.       writeln('o valor de "x", diminui-se o valor');
  683.       gotoxy(35,33);
  684.       writeln('de "y" pois, "a<0" e "b=/=0"');
  685.       gotoxy(35,34);
  686.       textcolor(lightgray);
  687.       write('OBS: gráfico puramente demonstrativo.');
  688.       writeln;
  689.       gotoxy(10,29);
  690.       {
  691.       eixo y
  692.       }
  693.       textcolor(yellow);
  694.       gotoxy(10,29);
  695.       write('y');
  696.       gotoxy(10,31);
  697.       write('^');
  698.       gotoxy(10,32);
  699.       write('|');
  700.       gotoxy(10,33);
  701.       write('|');
  702.       gotoxy(10,34);
  703.       write('|');
  704.       gotoxy(10,35);
  705.       write('|');
  706.       gotoxy(10,36);
  707.       write('|');
  708.       gotoxy(10,37);
  709.       write('|');
  710.       gotoxy(10,38);
  711.       write('|');
  712.       gotoxy(10,39);
  713.       write('|');
  714.       gotoxy(10,40);
  715.       write('|');
  716.       gotoxy(10,41);
  717.       write('|');
  718.       gotoxy(10,42);
  719.       write('|');
  720.       gotoxy(10,43);
  721.       write('|');
  722.       gotoxy(10,44);
  723.       write('|');
  724.       gotoxy(10,45);
  725.       write('|');
  726.       gotoxy(10,46);
  727.       write('|');
  728.       {
  729.       eixo "x"
  730.       }
  731.       gotoxy(1,38);
  732.       write('_');
  733.       gotoxy(2,38);
  734.       write('_');
  735.       gotoxy(3,38);
  736.       write('_');
  737.       gotoxy(4,38);
  738.       write('_');
  739.       gotoxy(5,38);
  740.       write('_');
  741.       gotoxy(6,38);
  742.       write('_');
  743.       gotoxy(7,38);
  744.       write('_');
  745.       gotoxy(8,38);
  746.       write('_');
  747.       gotoxy(9,38);
  748.       write('_');
  749.       gotoxy(11,38);
  750.       write('_');
  751.       gotoxy(12,38);
  752.       write('_');
  753.       gotoxy(13,38);
  754.       write('_');
  755.       gotoxy(14,38);
  756.       write('_');
  757.       gotoxy(15,38);
  758.       write('_');
  759.       gotoxy(16,38);
  760.       write('_');
  761.       gotoxy(17,38);
  762.       write('_');
  763.       gotoxy(18,38);
  764.       write('_');
  765.       gotoxy(19,38);
  766.       write('_');
  767.       gotoxy(20,38);
  768.       write('_');
  769.       gotoxy(21,38);
  770.       write('_');
  771.       gotoxy(22,38);
  772.       write('> x');
  773.       {
  774.       reta
  775.       }
  776.       textcolor(lightred);
  777.       gotoxy(16,41);
  778.       write('\');
  779.       textcolor(white);
  780.       gotoxy(15,40);
  781.       write('\');
  782.       gotoxy(14,39);
  783.       write('\');
  784.       gotoxy(13,38);
  785.       write('\');
  786.       gotoxy(12,37);
  787.       write('\');
  788.       gotoxy(11,36);
  789.       write('\');
  790.       gotoxy(10,35);
  791.       write('\');
  792.       gotoxy(9,34);
  793.       write('\');
  794.       gotoxy(8,33);
  795.       write('\');
  796.       gotoxy(7,32);
  797.       write('\');
  798.       textcolor(lightred);
  799.       gotoxy(27,50);
  800.       write('->');
  801.       gotoxy(30,50);
  802.       textcolor(lightgray+blink);
  803.       writeln('Deseja simular outra funcao?');
  804.       textcolor(lightred);
  805.       write('1');
  806.       textcolor(lightgray);
  807.       writeln('   - sim');
  808.       textcolor(lightred);
  809.       write('2');
  810.       textcolor(lightgray);
  811.       writeln('   - nao');
  812.       textcolor(lightred);
  813.       write('opcao  :  ');
  814.       textcolor(lightgray);
  815.       read(optt);
  816.       case optt of
  817.         '1':interage;
  818.         else
  819.       end;
  820.     end;
  821.     if y1=y2 then
  822.     begin
  823.       textcolor(yellow);
  824.       {
  825.       explicação
  826.       }
  827.       writeln('Esta funcao, é uma funcao constante');
  828.       gotoxy(3,27);
  829.       textcolor(lightred);
  830.       writeln('Um exemplo de gráfico seria');
  831.       textcolor(white);
  832.       gotoxy(35,30);
  833.       writeln('Sua funcao seria f(x)=',b:0:2,' ,');
  834.       gotoxy(35,31);
  835.     writeln('observa-se entao que, sendo "a=0"');
  836.     gotoxy(35,32);
  837.     writeln('qualquer valor atribuído');
  838.     gotoxy(35,33);
  839.     writeln('a variável "x", nao irá alterar');
  840.     gotoxy(35,34);
  841.     writeln('o ângulo de inclinacao da reta.');
  842.     gotoxy(35,35);
  843.     textcolor(lightgray);
  844.     write('OBS: gráfico puramente demonstrativo.');
  845.     writeln;
  846.     gotoxy(10,29);
  847.     {
  848.     eixo y
  849.     }
  850.     textcolor(yellow);
  851.     write('y');
  852.     gotoxy(10,31);
  853.     write('^');
  854.     gotoxy(10,32);
  855.     write('|');
  856.     gotoxy(10,33);
  857.     write('|');
  858.     gotoxy(10,34);
  859.     write('|');
  860.     gotoxy(10,35);
  861.     write('|');
  862.     gotoxy(10,36);
  863.     write('|');
  864.     gotoxy(10,37);
  865.     write('|');
  866.     gotoxy(10,38);
  867.     write('|');
  868.     gotoxy(10,39);
  869.     write('|');
  870.     gotoxy(10,40);
  871.     write('|');
  872.     gotoxy(10,41);
  873.     write('|');
  874.     gotoxy(10,42);
  875.     write('|');
  876.     gotoxy(10,43);
  877.     write('|');
  878.     gotoxy(10,44);
  879.     write('|');
  880.     gotoxy(10,45);
  881.     write('|');
  882.     gotoxy(10,46);
  883.     write('|');
  884.     {
  885.     eixo "x"
  886.     }
  887.     gotoxy(1,38);
  888.     write('_');
  889.     gotoxy(2,38);
  890.     write('_');
  891.     gotoxy(3,38);
  892.     write('_');
  893.     gotoxy(4,38);
  894.     write('_');
  895.     gotoxy(5,38);
  896.     write('_');
  897.     gotoxy(6,38);
  898.     write('_');
  899.     gotoxy(7,38);
  900.     write('_');
  901.     gotoxy(8,38);
  902.     write('_');
  903.     gotoxy(9,38);
  904.     write('_');
  905.     gotoxy(11,38);
  906.     write('_');
  907.     gotoxy(12,38);
  908.     write('_');
  909.     gotoxy(13,38);
  910.     write('_');
  911.     gotoxy(14,38);
  912.     write('_');
  913.     gotoxy(15,38);
  914.     write('_');
  915.     gotoxy(16,38);
  916.     write('_');
  917.     gotoxy(17,38);
  918.     write('_');
  919.     gotoxy(18,38);
  920.     write('_');
  921.     gotoxy(19,38);
  922.     write('_');
  923.     gotoxy(20,38);
  924.     write('_');
  925.     gotoxy(21,38);
  926.     write('_');
  927.     gotoxy(22,38);
  928.     write('> x');
  929.     {
  930.     reta
  931.     }
  932.     textcolor(white);
  933.     gotoxy(11,36);
  934.     write('_');
  935.     gotoxy(12,36);
  936.     write('_');
  937.     gotoxy(13,36);
  938.     write('_');
  939.     gotoxy(14,36);
  940.     write('_');
  941.     gotoxy(15,36);
  942.     write('_');
  943.     gotoxy(16,36);
  944.     write('_');
  945.     gotoxy(17,36);
  946.     write('_');
  947.     gotoxy(18,36);
  948.     write('_');
  949.     gotoxy(19,36);
  950.     write('_');
  951.     gotoxy(20,36);
  952.     write('_');
  953.     textcolor(lightred);
  954.     gotoxy(21,36);
  955.     write('_');
  956.     textcolor(lightred);
  957.     gotoxy(27,50);
  958.     write('->');
  959.     gotoxy(30,50);
  960.     textcolor(lightgray+blink);
  961.     writeln('Deseja simular outra funcao?');
  962.     textcolor(lightred);
  963.     write('1');
  964.     textcolor(lightgray);
  965.     writeln('   - sim');
  966.     textcolor(lightred);
  967.     write('2');
  968.     textcolor(lightgray);
  969.     writeln('   - nao');
  970.     textcolor(lightred);
  971.     write('opcao  :  ');
  972.     textcolor(lightgray);
  973.     read(optt);
  974.     case optt of
  975.       '1':interage;
  976.       else
  977.     end;
  978.   end;
  979. end;
  980. clrscr;
  981. end;
  982.  
  983. procedure sobre;
  984. begin
  985.   textcolor(yellow);
  986.   writeln;
  987.   writeln;
  988.   writeln;
  989.   writeln('Programa de apoio ao estudo da funcao afim e constante.');
  990.   writeln('Versao 1.0');
  991.   writeln;
  992.   writeln('Autor: José Carlos Tobias da Silva');
  993.   writeln('Contato: [email protected]');
  994.   writeln;
  995.   writeln('Programa feito para enriquecimento de atividade escolar para Lucas Castro');
  996.   writeln('Moreira.');
  997.   writeln;
  998.   writeln;
  999.   writeln('O mesmo simula:');
  1000.   writeln('.funcoes afim, mostrando crescente e decrescente.');
  1001.   writeln('.funcao constante.');
  1002.   writeln;
  1003.   writeln;
  1004.   writeln('NOTA: Este código em específico, pode ser reaproveitado, modificado e aprimora-');
  1005.   writeln('do, desde que feitas as devidas citacoes ao autor do código em específico.');
  1006.   writeln('Este código nao é, de maneira alguma, o único da mesma vertente, e nem usou');
  1007.   writeln('parte de código de terceiros, totalmente desenvolvido por José Carlos Tobias');
  1008.   writeln('da Silva.');
  1009.   writeln;
  1010.   writeln;
  1011.   writeln;
  1012.   textcolor(white);
  1013.   writeln('FEITO EM: LAZARUS IDE V1.4.4, PASCAL ZIM 6.0.3b9 E VIUALG 3.0.6.2.');
  1014.   writeln('          OTTMIZADO PARA PASCAL ZIM 6.0.3b9.');
  1015.   gotoxy(15,40);
  1016.   textcolor(lightgray+blink);
  1017.   writeln('Aperte uma tecla para voltar ao menu');
  1018.   gotoxy(12,40);
  1019.   textcolor(lightred);
  1020.   write('->');
  1021.   gotoxy(10,40);
  1022.   readkey;
  1023. end;
  1024.  
  1025.  
  1026.  
  1027. begin
  1028.   textbackground(lightblue);
  1029.   textcolor(lightgreen);
  1030.   opt:='0';
  1031.   while(opt<>'4')do
  1032.   begin
  1033.     clrscr;
  1034.     for i:=21 to 62 do
  1035.     begin
  1036.       for j:=2 to 5 do
  1037.       begin
  1038.         gotoxy(i,j);
  1039.         textcolor(white);
  1040.         write(#178);
  1041.       end;
  1042.     end;
  1043.    
  1044.     textcolor(yellow);
  1045.     gotoxy(20,1);
  1046.     writeln('*------------------------------------------*');
  1047.     gotoxy(20,2);
  1048.     writeln('');
  1049.     gotoxy(20,3);
  1050.     writeln('|               TURMA 901                  |');
  1051.     gotoxy(20,4);
  1052.     writeln('');
  1053.     gotoxy(20,5);
  1054.     writeln('*------------------------------------------*');
  1055.     gotoxy(14,9);
  1056.     textcolor(lightred);
  1057.     write('1');
  1058.     gotoxy(15,9);
  1059.     textcolor(white);
  1060.     write('  - Descricao de funcao afim crescente, descresente e constante');
  1061.     gotoxy(14,11);
  1062.     textcolor(lightred);
  1063.     write('2');
  1064.     gotoxy(15,11);
  1065.     textcolor(white);
  1066.     write('  - Apresentacao interativa da funcao afim');
  1067.     gotoxy(14,13);
  1068.     textcolor(lightred);
  1069.     write('3');
  1070.     gotoxy(15,13);
  1071.     textcolor(white);
  1072.     write('  - Sobre');
  1073.     gotoxy(14,15);
  1074.     textcolor(lightred);
  1075.     write('4');
  1076.     gotoxy(15,15);
  1077.     textcolor(white);
  1078.     write('  - Sair do programa');
  1079.     gotoxy(15,18);
  1080.     textcolor(yellow);
  1081.     writeln('Digite uma opcao de sua escolha e aperte enter');
  1082.     textcolor(lightgray);
  1083.     gotoxy(60,40);
  1084.     write('ver 1.0.0');
  1085.     gotoxy(15,20);
  1086.     write('Opcao: ');
  1087.     readln(opt);
  1088.     clrscr;
  1089.     if(opt<>'4')then
  1090.     case opt of
  1091.       '1':apresenta;
  1092.       '2':interage;
  1093.       '3':sobre;
  1094.       else
  1095.       gotoxy(25,25);
  1096.       write('Opcao invalida, tecle algo para continuar.');
  1097.       opt:=readkey;
  1098.     end;
  1099.   end;
  1100. end.
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!