Essai

Voila un premier programme. Il s'agit tout bêtement de rentrer un chiffre et le programme dit sicelui-ci est positif ou negatif :

---

program essai;

uses algotypes;

var a : integer;

begin
    while('true') do
    begin
        write('Entrez un nombre entier : ');
        readln(a);
        if (a >= 0) then
            writeln('positif ou nul')
        else
            writeln('negatif')
    end;
end.

---

Codeurs : Moi
Date : 30/10/2007
Language : Turbo-Pascal
Ligne : 17

Comments

[Nev...]

Ca sent l'influence de Marneffe ici, c'est les exercices du labo d'algorithmique 1 de l'ULg hein? Tu comptes tous les poster? Parce qu'il te manque la conversion en chiffres romains...
(fin de commentaire)