Représentation graphique de fonction

Version imprimable

18/03/2010, 22h01
degio1er

Représentation graphique de fonction

Salut à tous,
j'ai un projet sur lequel je ne bouge pas. il s'agit de la représentation de la fonction sinus en langage Pascal. j'ai vraiment besoin du programme. Je compte sur vous les gars.
Merci d'avance
18/03/2010, 22h25
Alcatîz

Bonjour,

Et nous nous comptons sur toi pour poster le code que tu as déjà réalisé, en expliquant sur quoi tu butes exactement. ;)
19/03/2010, 01h09
droggo

Doa,

C'est simplissime : tu fais comme pour tracer la courbe de la fonction cosinus, mais tu utilises sinus. :mrgreen:

sinon, un APN dans chaque narines en mode Macro.

sinon :

Code:

1
2
3
4
5
6
7
8
9
10
X = 0
R = Hauteur du dessin * 0.75 (75%) 
CY = Hauteur du dessin * 0.5 (50%)
pour (A = 0 à 359) ou (X = 0 à Largeur de dessin) 
faire
début
X = X + 1
Y = CY + R * Sin(A*(PI/180))
dessiner(X, Y)
fin

20/03/2010, 23h30
degio1er

merci

merci les gars pour vos reponses mais svp si je dois traduire cet algorithme en pascal par quoi est ce que je dois commencer?
20/03/2010, 23h46
Dr.Who

par potasser les divers tutos, faq, sources, bouquins sur le pascal.
et faire de l'expérimentation sur ton IDE.

ça demande du temps, de la persévérance, de la patience, de la jugeote, de la volonté, beaucoup de café, du courage, de la sagesse, de la passion ...
20/03/2010, 23h53
degio1er

initialisaton

honnetement dit je ne comprends pas bien. au fait je veux savoir comment initialiser les graphs en pascal?
21/03/2010, 00h03
mick605

Salut

Ce qu'ils veulent te dire c'est que pour commencer, il faut apprendre les bases de la programmation en Pascal. POur cela tu as beaucoup de tutos, de cours sur ce site et sur internet en général.

Ensuite, il ne faut pas s'imaginer que les membres vont te poster un code qui va faire exactement ce que tu veux ... Il faut déja que tu commences, que tu comprennes, et que tu codes par toi même. Ensuite, suivant ou tu bloques, on pourra t'aider.

Si tu n'as vraiment aucune connaissance en Pascal, peut etre devrait tu commencer par quelque chose de plus simple ?

Bonne chance

Mick605

le programme

j'ai trouvé le programme, quand je le compile il ne passe pas.

Voici le programme.

Code:

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
program graphic;
uses graph,crt;
 
var
   g,graph mode: integer;
   i:longint;
   x:real;
   function f1 (x:real):real;
 
   begin
 
      f1:=sin(x)
 
   end;
 
       begin
           g:= detect;
 
    inigraph (g,graphmode,'c:\projet\bgi');
     line (0,0,0,479);
     moveto (0,239);
     line (0,239;639,239);
    outtextxy (5,0,'axe,y');
     line (0,139,5,139);
    outtextxy(10,135,'1');
     line (0,339,5,339);
     outtextxy (250,50,'y=sin(x)');
    moveto (0,239);
 
      x:=0;
 
  for i:= 0 to 639 do
 
    begin
 
        putpixel (i,round(239-f1(x)*100),15);
 
        x:= x=+0,05;
  if keypressed then
 
    exit
    end;
 
  readln;
 
     restorecrtmode;
 
     write (' fin de programme... appuyez sur (return)');
     readln;
 
end.

21/03/2010, 01h16
droggo

Koe,

Comme tu l'as dit, tu as trouvé le programme.

Tu ne le comprends manifestement pas, car les messages du compilateur te permettraient de résoudre les problèmes.

Comme on te l'a signalé plus haut, il faut apprendre, et pour cela, il faut prendre le temps, car, hélas pour nous, la sélection naturelle n'a pas prévu que nous connaissions la programmation en naissant. :(

resolu

Code:

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
program graphic;
uses graph,crt;
 
var
   gd,gm: integer;
   i:longint;
   x:real;
   function f1 (x:real):real;
 
   begin
 
      f1:=sin(x)
 
   end;
 
       begin
           gd:= detect;
 
    initgraph(gd,gm,'..//bgi');
     line (0,0,0,479);
     moveto (0,239);
     line (0,239,639,239);
    outtextxy (5,0,'axe,y');
     line (0,139,5,139);
    outtextxy(10,135,'1');
     line (0,339,5,339);
     outtextxy (250,50,'y=sin(x)');
    moveto (0,239);
 
      x:=0;
 
  for i:= 0 to 639 do
 
    begin
 
        putpixel (i,round(239-f1(x)*100),15);
 
        x:=x+0.05;
  if keypressed then
 
    exit
    end;
 
  readln;
 
     restorecrtmode;
 
     write (' fin de programme... appuyez sur (return)');
     readln;
 
end.

Wia,

Il faut prendre l'habitude de bien présenter ton : plus facile à relire (y compris pour d'autres personnes), plus facile à maintenir ...

Par exemple :

Code:

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
program graphic;
 
uses graph, crt;
 
var
  gd, gm: Integer;
  i: Longint;
  x: Real;
 
function f1(x: Real): Real;   
begin 
  f1 := Sin(x)
end;
 
begin
  gd := detect; 
  initgraph(gd, gm, '..//bgi');
 
  line(0,0,0,479);
  MoveTo(0,239);
  line(0,239,639,239);
  outtextxy(5,0,'axe,y');
  line(0,139,5,139);
  outtextxy(10,135,'1');
  line(0,339,5,339);
  outtextxy(250,50,'y=sin(x)');
  MoveTo(0,239);
 
  x := 0;
  for i := 0 to 639 do 
  begin 
    putpixel(i, Round(239 - f1(x) * 100), 15);
    x := x + 0.05;
    if keypressed then 
      Exit
  end;
 
  Readln;
  restorecrtmode;
 
  Write (' fin de programme... appuyez sur (return)');
  Readln;
end.

C'est tout de suit plus clair, non ?