Hakim1807’s Protech

Just another www.orantech.blogspot.com

Pascal 7 & exercice

Posted by hakim1807 sur janvier 22, 2009

https://i2.wp.com/www.pocosmhz.org/wp-content/uploads/2007/08/turbo_pascal_60_screenshot.gif

Télécharger Turbo Pascal 7 & exercice | 400 Ko

Une Réponse to “Pascal 7 & exercice”

  1. นนา said

    program casecolor;
    var
    choice : char;
    UserQuils : Boolean;
    begin
    Writeln (‘What is color’);
    UserQuits:=false;
    repeat
    write (‘Select B G O P R Y or Quit’);
    readln (choice);
    CASE choice OF
    ‘B’,’b’ : Writeln (‘B is Blue’);
    ‘G’,’g’ : Writeln (‘G is Green’);
    ‘O’,’o’ : Writeln (‘O is Orange’);
    ‘P’,’p’ : Writeln (‘P is Purple’);
    ‘R’,’r’ : Writeln (‘R is Red’);
    ‘Y’,’y’ : Writeln (‘Y is Yellow’);
    ‘Q’,’q’ : User Quits := true;
    ELSE write (‘Error:tryagain’);
    end;
    until userQuits
    end.

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

 
%d blogueurs aiment cette page :