Urgent langage pascal
ange-livre
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
ange-livre Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
ange-livre Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
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. ?