Urgent langage pascal
Fermé
ange-livre
Messages postés
32
Date d'inscription
jeudi 28 mai 2009
Statut
Membre
Dernière intervention
30 décembre 2011
-
12 avril 2011 à 15:37
ange-livre Messages postés 32 Date d'inscription jeudi 28 mai 2009 Statut Membre Dernière intervention 30 décembre 2011 - 12 avril 2011 à 17:47
ange-livre Messages postés 32 Date d'inscription jeudi 28 mai 2009 Statut Membre Dernière intervention 30 décembre 2011 - 12 avril 2011 à 17:47
A voir également:
- Urgent langage pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Langage ascii - Guide
- Pascal langage - Télécharger - Édition & Programmation
- Langage pascal - Télécharger - Édition & Programmation
- Langage binaire - Guide
2 réponses
Pacorabanix
Messages postés
3248
Date d'inscription
jeudi 23 août 2007
Statut
Membre
Dernière intervention
19 mai 2013
661
12 avril 2011 à 16:33
12 avril 2011 à 16:33
c'est pas très clair ta question....
ange-livre
Messages postés
32
Date d'inscription
jeudi 28 mai 2009
Statut
Membre
Dernière intervention
30 décembre 2011
12 avril 2011 à 17:04
12 avril 2011 à 17:04
ok voilà, on doit utiliser la fonction for.....to.....do pour quelquenque chose, le plus inportant c'est que les résultats s'affiche en forme de V
MERCI D'AVANCE
MERCI D'AVANCE
Pacorabanix
Messages postés
3248
Date d'inscription
jeudi 23 août 2007
Statut
Membre
Dernière intervention
19 mai 2013
661
12 avril 2011 à 17:23
12 avril 2011 à 17:23
mais le résultat de quoi !?!?
ange-livre
Messages postés
32
Date d'inscription
jeudi 28 mai 2009
Statut
Membre
Dernière intervention
30 décembre 2011
12 avril 2011 à 17:47
12 avril 2011 à 17:47
Voilà le programme
?program calcul; ?
?uses crt; ?
?var i,n,s:integer; ?
? ?
?begin ?
?clrscr; ?
?writeln('Veuillez entrer un nombre:'); ?
?readln(n); ?
?repeat ?
?writeln('veuillez entrer un nombre supérieur à celui que vous avez choisi:'); ?
?readln(s); ?
?until s>n; ?
?writeln('les nombres entiers compris entre ceux que tu as choisi sont:'); ?
?if s=n+1 then writeln('Il n"y a pas un nombre supérieur strictement au premier?
?write(' et inférieur strictement au deuxième nombre choisi'); ?
?if s<>n+1 then ?
?for i:=n+1 to s-1 do ?
?begin ?
?gotoxy(8,3*i); ?
?writeln(i); ?
?end; ?
?writeln('au revoir!souhaitons bien te revoir derechef'); ?
?writeln('°°°°°°-_-°°°°°°'); ?
?readln; ?
?readln; ?
?end. ?
?program calcul; ?
?uses crt; ?
?var i,n,s:integer; ?
? ?
?begin ?
?clrscr; ?
?writeln('Veuillez entrer un nombre:'); ?
?readln(n); ?
?repeat ?
?writeln('veuillez entrer un nombre supérieur à celui que vous avez choisi:'); ?
?readln(s); ?
?until s>n; ?
?writeln('les nombres entiers compris entre ceux que tu as choisi sont:'); ?
?if s=n+1 then writeln('Il n"y a pas un nombre supérieur strictement au premier?
?write(' et inférieur strictement au deuxième nombre choisi'); ?
?if s<>n+1 then ?
?for i:=n+1 to s-1 do ?
?begin ?
?gotoxy(8,3*i); ?
?writeln(i); ?
?end; ?
?writeln('au revoir!souhaitons bien te revoir derechef'); ?
?writeln('°°°°°°-_-°°°°°°'); ?
?readln; ?
?readln; ?
?end. ?