Script de traceur de courbe en pascal Fermé

Question

Salut a tous et merci de me lire. S'il vous plait j'aurais besoin du script d'un traceur de courbe en pascal. Arigato gozaimasu pour votre precieuse aide. Sayonara

novitski · Answer

svp j besoin du traceur de courbe en pascal merci de votre aide

Hackermaster · Answer

Re, voila ce que j'ai pu commencé, j'espere juste que ça t'aidera. Desolé j'ai po mis de commentaire. So, good luck an see u later.


program courbe;
uses crt, graph;
var xgfen,xdfen,yhfen,ybfen:real;
    x,y,f1,f2,f3,f4,xrap,yrap,a,b:real;
    x1,x2,j,i,xdclot,ybclot,xgelot,yhclot:integer;

  procedure fenetre(f1,f2,f3,f4:real);
      begin
        xgfen:=f1;
        xdfen:=f2;
        yhfen:=f3;
        ybfen:=f4;
      end;

  procedure cloture (c1,c2,c3,c4:integer);
      begin
        xdclot:=c2;
        xgclot:=c1;
        xhclot:=c3;
        xhclot:=c4;
        xrap:=(xdclot-xgclot)/(xdfen-xgfen);
        yrap:=(yhclot-ybclot)/(yhfen-ybfen);
        setviewport (xgclot,getmaxy-yhclot,xdclot,getmaxy-ybclot,clipon);
      end;

  function xe(x:real):integer;
      begin
        xe:=round((x-xgfen)*rap);
      end;

  function ye(y:real):integer;
      begin
        ye:=round((yhfen-y)*yrap);
      end;

  procedure placetoien (x,y:real);
      begin
        moveto (xe(x),ye(y));
      end;

  procedure tracevers (x,y:real);
      begin
        lineto(xe(x),ye(y));
      end;

  procedure ecrireen (x,y:real;texte:string);
      begin
        outtextxy (xe(x),ye(y),texte);
      end;

  function f(x:real):real;
      begin
        f:=ln(x*x+1);
      end;

  procedure repere;
      begin
        setcolor (11);
        fenetre (0,getmax x,getmaxy,0);
        cloture (0,getmax x,getmaxy, );
        placetoien(50,(getmaxy div 2));
        tracevers ((getmax-50),(getmaxy div 2);
        ecrireen(getmax x-50,(getmaxy div 2)+3,'>');
        ecrireen(getmax x-40,getmaxy div 2)+2,'x');
        evrireen(getmax x div (2-8),(getmaxy div 2)-4,'0');
        for i:=5 to 54 do
           begin
             placetoien (getmax x-50+1*10, getmaxy div 2+5);
             outext (#250);
             placetoien (getmax x-50-(i*10), getmaxy div (2+5));
             outext (#250);
           end;
        placetoien(getmax x div (2+3), getmaxy-50);
        tracevers (getmax div (2+3),50);
        ecrireen(getmax x div 2, getmaxy-49,'^');
        ecrireen (getmax div 2, getmaxy y-40,'y');
        for i:=1 to 18 do
           begin
             placetoien (getmax x div 2, getmax y div 2+5+(i*10));
             outtext (#250);
             placetoien (getmax x div 2, getmaxy div 2+5-(i*10));
             outetxt (#250);
           end;
      end;

  procedure ecrangraph;
       begin
         x1:=detect;
         initgraph (x1,x2,'d:\josue brunel\school	p7\bgi');
       end;

  procedure tracer (a,b:real);
      begin
        clrscr;
        ecrangraph;
        repere;
        setcolor(red);
        for i:=1 to 50 do
           begin
             placetoien ((getmax x div 2+3)+20*(a+i*(b-a)/50)),((getmaxy div 2)+20*f(a+i*(b-a)/50));
             tracevers ((getmax x div 2+3)+20*(a+(i+1)*(b-a)/50)),((getmaxy div 2)+20*f(a+(i+1)*(b-a)/50));
           end;
        setcolor(white);
        ecrieen (50,450,'fonction ln(xy+1)');
        readln;
        closegraph;
      end;


Begin
  clrscr;
  textmode(3);
  writeln ('TRACEUR DE COURBES');
  writeln('entrer xmin');
  readln();

Script de traceur de courbe en pascal

2 réponses

Discussions similaires