Tri 1.0, Pascal - rextester

Tri 1.0

//fpc 3.0.0

program HelloWorld;

var number1: integer;
var number2: integer;
var number3: integer;
var one,two,three: integer;
var answer: string;
var yes: string;

begin
    writeln('Bienvenue dans le tri automatique !');
    writeln('Vous allez choisir 3 nombres qui vont être automatiquement triés par l''ordinateur, let''s go !');
    writeln('Quel est ton nombre 1 ?');
    readln(number1);
    writeln(number1);
    writeln('Quel est ton nombre 2 ?');
    readln(number2);
    writeln(number2);
    writeln('Quel est ton nombre 3 ?');
    readln(number3);
    writeln(number3);
    writeln('Beep beep...');
    writeln('Tes nombres sont maintenant triés:');
    if(number2<number3) and (number2<number1)then
    begin
    one:= number2;    
    two:= number3;
    three:= number1;
    writeln(one, ' ', two, ' ', three);
    end;
    
    writeln('Veux-tu recommencer ?');
    if(answer='oui')then
    begin
    writeln('Quel est ton nombre 1 ?');
    end;

end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development