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
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
A voir également:
- Urgent langage pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Langage ascii - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Langage binaire - Guide
2 réponses
c'est pas très clair ta question....
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. ?
