IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Pascal Discussion :

Tracé de courbe dans un repère


Sujet :

Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Inscrit en
    Mars 2009
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 1
    Par défaut Tracé de courbe dans un repère
    je voulais savoir si l'on peu écrire un programme en pascal qui trace une courbe dans un répère

  2. #2
    Expert confirmé

    Inscrit en
    Août 2006
    Messages
    3 967
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 3 967
    Par défaut
    Voa,

    Bien sûr qu'on peut.

  3. #3
    Candidat au Club
    Inscrit en
    Avril 2009
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Avril 2009
    Messages : 4
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    program courbe;
    uses wincrt;
    var
    t,tm:longint;
    xe,i,r,j,x1,x2,x3,x4:integer;
    procedure echelle;
    begin
    for i:=1 to 24 do
    writeln('|');
    gotoxy(1,12);
    for i:=1 to 70 do
    write('-');
    end;
     
    procedure p1;
    begin
    for i:=12 downto 4 do
    begin
    gotoxy(x1,i);
    write('.');
    x1:=x1+1;
    for t:=1 to tm do;
    end;
    end;
     
    procedure p2;
    begin
    for i:=4 to 12 do
    begin
    gotoxy(x1,i);
    write('.');
    x1:=x1+1;
    for t:=1 to tm do;
    end;
     
    end;
    procedure p3;
    begin
    for i:=12 to 20 do
    begin
    gotoxy(x1,i);
    write('.');
    x1:=x1+1;
    for t:=1 to tm do;
    end;
     
    end;
    procedure p4;
    begin
    for i:=20 downto 12 do
    begin
    gotoxy(x1,i);
    write('.');
    x1:=x1+1;
    for t:=1 to tm do;
    end;
     
    end;
     
     
     
    begin
    echelle;
    tm:=4000000;
     
     
    gotoxy(2,4);
    for i:=1 to 70 do
    begin
    for t:=2 to tm do;
    write('-');
    end;
    gotoxy(74,4);
    write('max=8');
     
    gotoxy(2,20);
    for i:=1 to 70 do
    begin
    for t:=2 to tm do;
    write('-');
    end;
    gotoxy(74,20);
    write('-max=-8');
     
     
    x1:=1;
    x2:=4;
    x3:=9;
    x4:=14;
     
    r:=0;
    repeat
    p1;
    p2;
    x1:=x1-1;
    p3;
    p4;
    x1:=x1-1;
    r:=r+1;
    until r=2;
     
     
    gotoxy(1,12);
    for t:=1 to tm*6 do;
    write('0');
     
    gotoxy(9,12);
    for t:=1 to tm*6 do;
    write('1');
     
    gotoxy(18,12);
    for t:=1 to tm*6 do;
    write('2');
     
    gotoxy(28,12);
    for t:=1 to tm*6 do;
    write('3');
     
    gotoxy(35,12);
    for t:=1 to tm*6 do;
    write('4');
     
    gotoxy(44,12);
    for t:=1 to tm*6 do;
    write('5');
     
    gotoxy(52,12);
    for t:=1 to tm*6 do;
    write('6');
     
    gotoxy(61,12);
    for t:=1 to tm*6 do;
    write('7');
     
    gotoxy(69,12);
    for t:=1 to tm*6 do;
    write('8');
     
     
    end.

Discussions similaires

  1. Tracer une courbe dans un repère
    Par manouil dans le forum Débuter
    Réponses: 3
    Dernier message: 21/04/2014, 15h11
  2. Tracé de courbes et légende dans une boucle for
    Par abzi46 dans le forum MATLAB
    Réponses: 3
    Dernier message: 23/10/2009, 17h29
  3. Courbe dans un repère
    Par X3non009 dans le forum Applets
    Réponses: 1
    Dernier message: 19/04/2008, 15h24
  4. [Débutant] Tracé de courbe dans une boucle FOR-END
    Par cozo22 dans le forum MATLAB
    Réponses: 8
    Dernier message: 03/04/2008, 16h42
  5. tracé de courbe non fait dans Graphics
    Par skud dans le forum C#
    Réponses: 1
    Dernier message: 13/06/2007, 20h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo