Function Pgcd2(X: Integer; Y: Integer) return Integer is A: Integer:=X



Yüklə 3,42 Kb.
tarix27.12.2017
ölçüsü3,42 Kb.
#36045

function Pgcd2(X: Integer ; Y: Integer) return Integer is

A: Integer:=X;

B: Integer:=Y;

P: Integer;

begin

Put(A);


Put(B);

if A<0 or B<0 then

Put ("impossible: X et/ou Y < O"); -- Question : Je n'arrive pas à faire apparaitre ce texte en bas dans Afficher_Pgcd2. J'ai bien essaye en ajoutant une variable C mais comme il s'agit d'un texte sans valeur, il refuse de le compiler. J'ai eu le même probleme la semaine derniere avec Fact2. Pourriez vous me fournir une solution ? Ou alors c'est impossible ?
elsif A=0 then P:=B;

elsif B=0 then P:=A;

elsif B<=A then

P:= Pgcd2(A-B,B);

else

P:=Pgcd2(A , B-A);



end if;

return P;



end Pgcd2;

Yüklə 3,42 Kb.

Dostları ilə paylaş:




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©muhaz.org 2022
rəhbərliyinə müraciət

    Ana səhifə