Flèches
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1•
Flèches
par ProgVal le Lun 11 Fév - 13:37
Je vous mets au défi de faire un programme qui fait la même chose que celui-ci.
Vous devrez utiliser 2 constantes:
-le rapport TailleDeFlèche/LongueurDesCotés
-l'angle entre le trait principal et les cotés
Autres obligations:
-déclaration de la fonction:
-le code doit contenir:
Notes:
-l'argument H n'est pas utilisé et ne correspond à rien
-ceci est mon 2ème programme en Pascal, ça ne devrait pas être trop dur pour vous...
-les arguments de la fonction m'ont étés imposés
Vous devrez utiliser 2 constantes:
-le rapport TailleDeFlèche/LongueurDesCotés
-l'angle entre le trait principal et les cotés
Autres obligations:
-déclaration de la fonction:
- Code:
Procedure DrwVector(Can:TCanvas;X,Y,Sz,H:Integer;Cd:Byte;Var R:TRect);
-le code doit contenir:
- Code:
procedure TForm1.Button1Click(Sender: TObject);
Var
R:TRect;
begin
//////////////////////////////////
//SpinEdit1: Absisse d'origine //
//SpinEdit2: Ordonnée d'origine //
//SpinEdit3: Taille //
//TrackBar1: Mode //
//////////////////////////////////
// Procedure DrwVector(Can:TCanvas;X,Y,Sz,H:Integer;Cd:Byte;Var R:TRect);
DrwVector(Form1.Canvas,SpinEdit1.Value,SpinEdit2.Value,SpinEdit3.Value,64,TrackBar1.Position,R);
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
R:TRect;
i:Integer;
begin
//////////////////////////////////
//SpinEdit1: Absisse d'origine //
//SpinEdit2: Ordonnée d'origine //
//SpinEdit3: Taille //
//TrackBar1: Mode //
//////////////////////////////////
for i:=0 to 15 do
begin
DrwVector(Form1.Canvas,SpinEdit1.Value,SpinEdit2.Value,SpinEdit3.Value,64,i,R);
end;
end;
end.
Notes:
-l'argument H n'est pas utilisé et ne correspond à rien
-ceci est mon 2ème programme en Pascal, ça ne devrait pas être trop dur pour vous...
-les arguments de la fonction m'ont étés imposés
< MiNux > c'est con une entreprise qui s'appelle apple
< MiNux > c'est comme si en france on avait fraise, banane...
< Sh4d0 > ..orange
< MiNux > j'ai rien dit
< Dju > Abusé, je me suis endormi en cours ce matin -_-
< Gib > Ca craint... Et le prof a dit quoi ?
< Dju > C'est moi le prof... :/
ProgVal- Membre fondamental
- Messages : 108
Inscrit le : 09 Fév 2008
Localisation : Univers>Voie lactée> Bras_d'Orion>Planète Terre>Europe> France
Feuille de personnage
Capacité linguistique:
(997/1000)
Re: Flèches
par nabiL le Lun 11 Fév - 14:35
Il est demandé de :
- comprendre ce que fait le sous-programme ci-dessus
- développer un programme qui fait la même chose que celui ci.
c'est bien ça?
- comprendre ce que fait le sous-programme ci-dessus
- développer un programme qui fait la même chose que celui ci.
c'est bien ça?
Nabil - tunis
خير الناس أنفعهم للناس
خير الناس أنفعهم للناس
nabiL- Admin
- Messages : 1972
Inscrit le : 19 Mar 2007
Localisation : Tunisie
Feuille de personnage
Capacité linguistique: (999/1000)
Re: Flèches
par ProgVal le Mar 12 Fév - 19:04
Tout à fait.
Avec les exigences que j'ai indiquées.
Avec les exigences que j'ai indiquées.
< MiNux > c'est con une entreprise qui s'appelle apple
< MiNux > c'est comme si en france on avait fraise, banane...
< Sh4d0 > ..orange
< MiNux > j'ai rien dit
< Dju > Abusé, je me suis endormi en cours ce matin -_-
< Gib > Ca craint... Et le prof a dit quoi ?
< Dju > C'est moi le prof... :/
ProgVal- Membre fondamental
- Messages : 108
Inscrit le : 09 Fév 2008
Localisation : Univers>Voie lactée> Bras_d'Orion>Planète Terre>Europe> France
Feuille de personnage
Capacité linguistique: (997/1000)
Re: Flèches
par manianis le Mar 12 Fév - 22:15
C'est simple à faire moyennant quelques connaissances de base en Delphi.
manianis- Admin
- Messages : 976
Inscrit le : 10 Oct 2007
Localisation : Tunisie
Feuille de personnage
Capacité linguistique: (999/1000)
Re: Flèches
par ProgVal le Mer 13 Fév - 16:57
Et en trigonométrie.
< MiNux > c'est con une entreprise qui s'appelle apple
< MiNux > c'est comme si en france on avait fraise, banane...
< Sh4d0 > ..orange
< MiNux > j'ai rien dit
< Dju > Abusé, je me suis endormi en cours ce matin -_-
< Gib > Ca craint... Et le prof a dit quoi ?
< Dju > C'est moi le prof... :/
ProgVal- Membre fondamental
- Messages : 108
Inscrit le : 09 Fév 2008
Localisation : Univers>Voie lactée> Bras_d'Orion>Planète Terre>Europe> France
Feuille de personnage
Capacité linguistique: (997/1000)
Re: Flèches
par nabiL le Mer 13 Fév - 21:43
bah oui, en informatique, toutes les sciences intérfèrent.
Nabil - tunis
خير الناس أنفعهم للناس
خير الناس أنفعهم للناس
nabiL- Admin
- Messages : 1972
Inscrit le : 19 Mar 2007
Localisation : Tunisie
Feuille de personnage
Capacité linguistique: (999/1000)
mosa- Modérateur
- Messages : 641
Inscrit le : 11 Nov 2007
Age : 23
Localisation : los angeles
Feuille de personnage
Capacité linguistique: (995/1000)
Re: Flèches
par methodiX le Mer 13 Fév - 22:29
Je ne vois pas la relation entre le bout de code Delphi que tu as cité et le travail demandé (construction d'une flèche sachant l'angle et le rapport .... )
Explique un peu plus ...
Explique un peu plus ...
Sami - Methodix, tunis
Le génie de Newton a consisté à dire que la lune tombe alors que tout le monde voit bien qu'elle ne tombe pas.
(Paul Valéry)
Le génie de Newton a consisté à dire que la lune tombe alors que tout le monde voit bien qu'elle ne tombe pas.
(Paul Valéry)
methodiX- Admin
- Messages : 811
Inscrit le : 22 Mar 2007
Localisation : marsa - IPEST
Feuille de personnage
Capacité linguistique: (1000/1000)
manianis- Admin
- Messages : 976
Inscrit le : 10 Oct 2007
Localisation : Tunisie
Feuille de personnage
Capacité linguistique: (999/1000)