Programme pascal

kakashininjamaster Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   -  
kakashininjamaster Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
charmed
 
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
Réponse 2 / 2
kakashininjamaster Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   26
  
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

Discussions similaires

A quoi sert l'application Bonjour?
patrick -
Ysis -

4 réponses