Canalblog Tous les blogs Top blogs Technologie & Science Tous les blogs Technologie & Science
Suivre ce blog Administration + Créer mon blog
MENU
Tous les blogs Top blogs Technologie & Science Tous les blogs Technologie & Science
Recherche
+ Créer mon blog Suivre ce blog Administration
Partager
NecroCodes
Publicité
NecroCodes
Publicité
Recherche
NecroCodes
Contacter le propriétaire du blog
Publicité
Publicité
30 octobre 2007

Maximum

Version inverse du minimum program maximum; uses AlgoVecteurs;uses AlgoTypes; var taille,i,j,max : integer; V,pos : Vecteur; begin write('Entrez la taille du tableau : '); readln(taille); v:=init_vect(taille); pos:=init_vect(taille); i:=0;max:=V[0];j:=0;...
Posté par Necromephisto à 14:20 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?
0 vote
Publicité
30 octobre 2007

Version évoluée du maximum, il cherche les deux

Version évoluée du maximum, il cherche les deux plus grands nombres différents du tableau et fait leurs différences. Il affiche ensuite les endroits du tableau où on peut trouver ces maximums program diffmax ; uses Algotypes;uses AlgoVecteurs; var ; var...
Posté par Necromephisto à 14:24 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?
0 vote
30 octobre 2007

Minimum

Recherche le minimum et ses différentes positions dans un vecteurs dont les éléments sont aléatoires. program minimum; uses AlgoVecteurs;uses AlgoTypes; var taille,i,j,min : integer; V,pos : Vecteur; begin write('Entrez la taille du tableau : '); readln(taille);...
Posté par Necromephisto à 14:16 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?
0 vote
30 octobre 2007

Bissextile

2ème programme, toujours simple, permettant de déterminer si une année est bissextile ou pas. Program bissextile ; uses AlgoTypes ; var a : integer; begin while (True) do begin writeln('Entrez une année :'); readln(a); if ((a mod 4=0 and a mod 100<>0)...
Posté par Necromephisto à 14:14 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?
0 vote
30 octobre 2007

Essai

Voila un premier programme. Il s'agit tout bêtement de rentrer un chiffre et le programme dit sicelui-ci est positif ou negatif : program essai; uses algotypes; var a : integer; begin while('true') do begin write('Entrez un nombre entier : '); readln(a);...
Posté par Necromephisto à 14:11 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?
0 vote
Publicité