Programme pascal
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
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
Configuration: Ordinateur:
Système d'exploitation Microsoft Windows XP Home Edition
Service Pack du système Service Pack 3
DirectX 4.09.00.0904 (DirectX 9.0c)
Nom du système HP88755342289
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 -
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
