Votre question

résolution problémes pascal

Tags :
  • Programme
  • Programmation
Dernière réponse : dans Programmation
14 Janvier 2006 22:42:34

merci de me resoudre ce probléme pascal:
ecrire un programme pascal intitulé couleur permettant d'afficher le nom d'une couleur,parmi la liste indiqué c dessous en fonction de sa premiére lettre C donneé en majiscule ou en miniscule
B ou b couleur:BLEU
V ou v couleur:VERT
R ou r couleur: ROUGE
J ou j couleur:JAUNE
tout autre caractére correspendond la couleur Noir
merci bien :-o

Autres pages sur : resolution problemes pascal

15 Janvier 2006 12:20:14

je ne vois pas où est le problème
a b L Programmation
15 Janvier 2006 14:09:08

Ben si, il a un exo tout bête à faire, et il nous demande qu'on l'aide.
Comme ça, on sera obligé de l'aider pour les exos suivant etc.
Quand tu auras un boulot où il faudra programmer, là aussi tu nous demanderas de faire ton boulot ? :-D
Contenus similaires
15 Janvier 2006 14:46:44

C'est comme ca quand on a rien foutu de l'année et on se rend compte qu'on ne comprend rien à un exercice basique
17 Janvier 2006 19:20:24

program couleur;
uses wincrt;
var c:char;
mess:string;
begin
write('appuyer sur une touche du clavier: ');
read (c);
if upcase(c)='b'
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE BLEUE';
write(mess);
end
else
if
(c='v')or(c='V')
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE VERT';
write(mess);
end
else
if
(c='r')or(c='R')
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE ROUGE';
write(mess);
end
else
if
(c='j')or(c='J')
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE JAUNE';
write(mess);
end
else
begin
mess:='LA COULEUR QUI CORRESPEND EST LE NOIR';
write(mess);
end;


end.


merci a tous j'ais dejà fait
30 Mars 2009 22:32:15

deécriver avec exactitude le chemin pour aller à pied du lycé à la municipalité ou à un autre lieu connude la ville
6 Mars 2011 09:00:34


selon c faire
'b': écrire('blanc')
'v':écrire('vert')
'r':écrire('roug')
'j':écrire('jaune')
sinon
écrire(noire)
27 Avril 2011 22:19:17

program couleur;
uses wincrt;
var L :char ;
C : string ;
Begin
Write('donner un caractére: ');
read(L);
case Upcase(L) of
'V': C:='VERT';
'B': C:='BLEU';
'R': C:='ROUGE';
'J': C:='JAUNE';
else C:='Noir';
end;
Write('la couleure correspondante est: ',C);
end.
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS