Programme pascal

Fermé
kakashininjamaster Messages postés 189 Date d'inscription samedi 30 mai 2009 Statut Membre Dernière intervention 10 septembre 2014 - 25 déc. 2009 à 09:19
kakashininjamaster Messages postés 189 Date d'inscription samedi 30 mai 2009 Statut Membre Dernière intervention 10 septembre 2014 - 25 déc. 2009 à 10:36
Bonjour,
je veut écrire un programme pascal qui permet de lire deux entiers positifs inférieurs à 999 et affiche la multiplucation et la division comme suit :
130 130: 11
x 11 9 :.....
.......... :11
= 1430 :
j'ai écris ce programme :
program radh ;
uses wincrt
var x,y : integer ;
begin
Writeln('Donner l"entier X (entre 0 et 999)');Readln(X);
Writeln('Donner l"entier Y (entre 0 et 999)');Readln(Y);
Writeln(' ',X) ;
Writeln('x ',Y);
Writeln('.......');
Writeln('=',X*y);
Writeln(' ');
Writeln(X,':',Y) ;
Writeln((X MOD Y),' :.....');
Writeln(' :',(X DIV Y));
Writeln(' :') ;
End.
mais j'ai deux problème ;
1/ je veut que les deux variables X et Y soient dans l'intervalle [0;999]
2/si le nombre de x ou y change la disposition des point change par exemple :
pour x =10 et y = 30
10 30: 11
x 30 10 :.....
.......... :0
= 1430 :
merci d'avnce
A voir également:

2 réponses

bonjour
pour votre premier question: tu veux que X ,Y soient dans l'intervalle [0;999]:
tu peux avoir une boucle REPETER...JUSQU'A:
tu ecris:
répeter
ecrire(donnez X), lire(X);
ecrire(donnez Y),lire(Y);
jusqu'à (X et Y dans [0,999])

et pour ton second question tu peux ecrire d'une autre maniére parceque j'ai pas compris rien..
peu etre je peux t'aider
0
kakashininjamaster Messages postés 189 Date d'inscription samedi 30 mai 2009 Statut Membre Dernière intervention 10 septembre 2014 26
25 déc. 2009 à 10:36
merci pour ton réponse et pou la deuxième question je veut que le programme écrit le produit comme suit
  130
x   11
.......
=1430
et la division comme suit:
  130: 11 
    9:.....
     : 11
     :

mais le problème est que si le nombre de chiffre de reste ou de diviseur change la place des points change
0