Programme écrit en Pascal
Fermé
Xochipilli
Messages postés
29
Date d'inscription
vendredi 31 octobre 2008
Statut
Membre
Dernière intervention
28 décembre 2009
-
26 déc. 2009 à 00:27
Xochipilli Messages postés 29 Date d'inscription vendredi 31 octobre 2008 Statut Membre Dernière intervention 28 décembre 2009 - 26 déc. 2009 à 23:21
Xochipilli Messages postés 29 Date d'inscription vendredi 31 octobre 2008 Statut Membre Dernière intervention 28 décembre 2009 - 26 déc. 2009 à 23:21
A voir également:
- Programme écrit en Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
- Ce programme est écrit en python. ✓ - Forum Python
- Programme (x86) ✓ - Forum Windows
10 réponses
serpan2
Messages postés
178
Date d'inscription
jeudi 2 octobre 2008
Statut
Membre
Dernière intervention
10 juin 2015
6
26 déc. 2009 à 00:49
26 déc. 2009 à 00:49
Bon malheureusement j'ai un seul bout de code en turbo pascal qui sait calculer le code de Luhn (le 16 ème chiffre du numero du carte bancaire), c'est intérissant heiiiin :p
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
program carding;
uses wincrt;
var T,TT:array [1..20] of integer;
i,s,x,v: integer;
begin
/* ici une boucle qui va nous demander de tappé le ième chiffre du CB */
for i:=1 to 15 do
begin
writeln ('Donner moi le:',i,'eme nombre');
readln (T[i]);
end;
/* ici c'est la méthode de calcul pour savoir le 16 ème numéros du CB */
/* c un peu compliqué */
TT:=T;
for i:=1 to 15 do
begin
if i mod 2 <> 0 then
if ((TT[i]) < 5) then
TT[i]:=(2*T[i])
else TT[i] := (2*TT[i]+1);
end;
s:=0;
x:=0;
for i:=1 to 15 do
begin
s:=s+TT[i];
end;
writeln ('la somme S est ;',s);
if s>=0 then
v:=1;
while v<>s do
begin
x:=x-1;
if x=-1 then
begin
x:=9;
v:=v+1
end
else
v:=v+1;
end;
x:=x-1;
/* ici c notre résultat qui est l'entier x */
writeln ( 'la Clé de Luhn est :',x);
write('Le Numeros du carte est: ');
for i:=1 to 15 do
write(T[i]); write(x);
end.
°°°°°°°°°°°°°°°°°°°°°°°°°°
c'est pas bien commenté mais amuse toi a déchiffrer le code ;)
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
program carding;
uses wincrt;
var T,TT:array [1..20] of integer;
i,s,x,v: integer;
begin
/* ici une boucle qui va nous demander de tappé le ième chiffre du CB */
for i:=1 to 15 do
begin
writeln ('Donner moi le:',i,'eme nombre');
readln (T[i]);
end;
/* ici c'est la méthode de calcul pour savoir le 16 ème numéros du CB */
/* c un peu compliqué */
TT:=T;
for i:=1 to 15 do
begin
if i mod 2 <> 0 then
if ((TT[i]) < 5) then
TT[i]:=(2*T[i])
else TT[i] := (2*TT[i]+1);
end;
s:=0;
x:=0;
for i:=1 to 15 do
begin
s:=s+TT[i];
end;
writeln ('la somme S est ;',s);
if s>=0 then
v:=1;
while v<>s do
begin
x:=x-1;
if x=-1 then
begin
x:=9;
v:=v+1
end
else
v:=v+1;
end;
x:=x-1;
/* ici c notre résultat qui est l'entier x */
writeln ( 'la Clé de Luhn est :',x);
write('Le Numeros du carte est: ');
for i:=1 to 15 do
write(T[i]); write(x);
end.
°°°°°°°°°°°°°°°°°°°°°°°°°°
c'est pas bien commenté mais amuse toi a déchiffrer le code ;)
serpan2
Messages postés
178
Date d'inscription
jeudi 2 octobre 2008
Statut
Membre
Dernière intervention
10 juin 2015
6
26 déc. 2009 à 00:52
26 déc. 2009 à 00:52
ah attend regarde ici, il yen a plein de codes et des cours pour les debutant aussi:
https://pascal.developpez.com/cours/ptrau/?page=page_17#LXVII-C
https://pascal.developpez.com/cours/ptrau/?page=page_17#LXVII-C
Xochipilli
Messages postés
29
Date d'inscription
vendredi 31 octobre 2008
Statut
Membre
Dernière intervention
28 décembre 2009
26 déc. 2009 à 00:53
26 déc. 2009 à 00:53
Salut !
Enfaite j'aurai voulu voir un "vrai programme" pas un petit bout de code ^^
J'aimerai vraiment les possibilités de ce langage
Enfaite j'aurai voulu voir un "vrai programme" pas un petit bout de code ^^
J'aimerai vraiment les possibilités de ce langage
heyquem
Messages postés
759
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
29 décembre 2013
130
26 déc. 2009 à 00:54
26 déc. 2009 à 00:54
Salut
Pourquoi le Turbo Pascal ?
J'ai aussi trouvé ceci:
https://codes-sources.commentcamarche.net/
Pourquoi le Turbo Pascal ?
J'ai aussi trouvé ceci:
https://codes-sources.commentcamarche.net/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Xochipilli
Messages postés
29
Date d'inscription
vendredi 31 octobre 2008
Statut
Membre
Dernière intervention
28 décembre 2009
26 déc. 2009 à 01:00
26 déc. 2009 à 01:00
Salut !
Le Turbo Pascal ? C'est simple j'aime beaucoup la syntaxe, très claire et simple aussi. Pascal est aussi un très bon langage pour commencer à apprendre la programmation. Voilà pourquoi ;)
Le Turbo Pascal ? C'est simple j'aime beaucoup la syntaxe, très claire et simple aussi. Pascal est aussi un très bon langage pour commencer à apprendre la programmation. Voilà pourquoi ;)
serpan2
Messages postés
178
Date d'inscription
jeudi 2 octobre 2008
Statut
Membre
Dernière intervention
10 juin 2015
6
26 déc. 2009 à 01:02
26 déc. 2009 à 01:02
Bon je te conseille d'utiliser la language C ,
De 1 : il y a plein de documentations sur le net
De 2 : cette language peu faire des choses bcp plus que Pascal
c mon avis :)
De 1 : il y a plein de documentations sur le net
De 2 : cette language peu faire des choses bcp plus que Pascal
c mon avis :)
Xochipilli
Messages postés
29
Date d'inscription
vendredi 31 octobre 2008
Statut
Membre
Dernière intervention
28 décembre 2009
26 déc. 2009 à 01:06
26 déc. 2009 à 01:06
Ok... je n'aime pas le C. Et en apprenant Pascal j'aurai de solide base en programmation et non trop brouillons comme on la mauvaise habitude de prendre les débutants en C. Après je me tournerai vers quelque chose de plus puissant.
heyquem
Messages postés
759
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
29 décembre 2013
130
26 déc. 2009 à 01:11
26 déc. 2009 à 01:11
J’ai aussi appris le Turbo pascal, il y a très longtemps et d’après ce que je me rappelle, il était àssez plaisant en effet.
Depuis peu , je me suis mis à Python et c’est jouissif.
Les deux arguments que tu cites pour Turbo Pascal sont vrais pour Python aussi. Mais Python est en plus (?) très puissant, multi-paradigmes, multi-capable (!), en forte phase ascendante et bénéficie d’un écosystème très fourni (communauté, bibliothèques...)
Après, il y a tous les goûts personnels, les idées fixes et les sujets à trolls du genre Pascal vs C, C++ vs Java, Python vs Ruby, JavaScript vs Flash, etc.
Depuis peu , je me suis mis à Python et c’est jouissif.
Les deux arguments que tu cites pour Turbo Pascal sont vrais pour Python aussi. Mais Python est en plus (?) très puissant, multi-paradigmes, multi-capable (!), en forte phase ascendante et bénéficie d’un écosystème très fourni (communauté, bibliothèques...)
Après, il y a tous les goûts personnels, les idées fixes et les sujets à trolls du genre Pascal vs C, C++ vs Java, Python vs Ruby, JavaScript vs Flash, etc.
heyquem
Messages postés
759
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
29 décembre 2013
130
26 déc. 2009 à 01:45
26 déc. 2009 à 01:45
Il y a un bon article sur CCM sur Pascal et Turbo Pascal dans lequel l’auteur n’a pas lésiné sur les pages
https://www.commentcamarche.net/contents/724-introduction-au-langage-pascal
Tu peux aussi aller voir là:
https://www.developpez.net/forums/f21/autres-langages/pascal/
En regardant les nombres de discussions des différents forums, on a une idée de la popularité des langages.
Turbo Pascal 716
ASP.NET 3690
C++ 692 mais Bibliothéques C++ 1695
Perl 3757
Python 2267
C’est très approximatif car il y a parfois plusieurs forums pour un même langage.
https://www.commentcamarche.net/contents/724-introduction-au-langage-pascal
Tu peux aussi aller voir là:
https://www.developpez.net/forums/f21/autres-langages/pascal/
En regardant les nombres de discussions des différents forums, on a une idée de la popularité des langages.
Turbo Pascal 716
ASP.NET 3690
C++ 692 mais Bibliothéques C++ 1695
Perl 3757
Python 2267
C’est très approximatif car il y a parfois plusieurs forums pour un même langage.
Xochipilli
Messages postés
29
Date d'inscription
vendredi 31 octobre 2008
Statut
Membre
Dernière intervention
28 décembre 2009
26 déc. 2009 à 23:21
26 déc. 2009 à 23:21
Merci heyquem,
Tes réponses sont intelligentes et mon apportées des solutions ;)
Encore merci !
@+
Tes réponses sont intelligentes et mon apportées des solutions ;)
Encore merci !
@+
