1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| program maxFCT;
procedure div_ise_et_affiche(var quo : INTEGER;out res : INTEGER); // quo a une valeur dès le départ; on va donner une valeur à res
Begin
if (quo <> 0) then // if et non while, avec while t'auras une boucle infini si a <> 0
begin
quo := quo div 10;
res := quo mod 10;
writeln(quo,' ',res); // Une procedure à le droit d'afficher qqch, mais une fonction n'en a pas le droit.
end;
End;
var
x,y : INTEGER;
BEGIN
readln(x);
div_ise_et_affiche(x, y) // x a déja une valeur, on va donner une valeur a y
// dans la procedure div_ise, x correspond à quo, et y à res
// Remarque la procedure div_ise_et_affiche affiche aussi le résultat
end. |