Urgent langage pascal
ange-livre
Messages postés
42
Statut
Membre
-
ange-livre Messages postés 42 Statut Membre -
ange-livre Messages postés 42 Statut Membre -
Bonjour,
voilà, je suis coincé, notre prof d'info nous a demandé d'écrire un programme en langage pascal, le problème c'est qu'il faut écrire les résultats en forme de V, et j'en sais fichtrement rien comment faire
--
visiter mon site http://ange-livre.e-monsite.com
voilà, je suis coincé, notre prof d'info nous a demandé d'écrire un programme en langage pascal, le problème c'est qu'il faut écrire les résultats en forme de V, et j'en sais fichtrement rien comment faire
--
visiter mon site http://ange-livre.e-monsite.com
A voir également:
- Urgent langage pascal
- Langage ascii - Guide
- Turbo pascal - Télécharger - Édition & Programmation
- Pascal langage - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Langage binaire - Guide
2 réponses
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. ?
