Passer minuscule vers majuscule
xmancrazy
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
SALEM -
SALEM -
bonjour j'ai un problème pour écrire un programme en pascal alors si quelqu'un peut m'aider il ou elle me sauvera la vie alors voici l'exercice:
Ecrire la procédure PASCAL transfo_en_maj (minus, maj) qui reçoit une chaîne de caractères minuscules (par le paramètre minus), et la transforme (dans le paramètre maj) en chaîne de caractères majuscules. On pourra utiliser la fonction prédéfinie upcase (function upcase(c:char):char;), qui reçoit en argument un caractère et retourne la majuscule correspondante.
Ecrire la procédure PASCAL transfo_en_maj (minus, maj) qui reçoit une chaîne de caractères minuscules (par le paramètre minus), et la transforme (dans le paramètre maj) en chaîne de caractères majuscules. On pourra utiliser la fonction prédéfinie upcase (function upcase(c:char):char;), qui reçoit en argument un caractère et retourne la majuscule correspondante.
A voir également:
- Majuscule vers minuscule
- Minuscule vers majuscule - Guide
- Code ascii de a minuscule - Guide
- É majuscule - Guide
- Majuscule - Guide
- Il est en cours de transport vers votre site de livraison ✓ - Forum Consommation & Internet
4 réponses
Bonsoir
tu as tous les éléments nécessaires dans ton énoncé et dans ton expérience personnelle.
Si je te donne un crayon et un papier avec un mot en minuscules écrit dessus, comment vas tu faire pour écrire ce mot en majuscules?
tu as tous les éléments nécessaires dans ton énoncé et dans ton expérience personnelle.
Si je te donne un crayon et un papier avec un mot en minuscules écrit dessus, comment vas tu faire pour écrire ce mot en majuscules?
voici ma reflexion pouvez-vous corriger les erreurs :
Program minusversmajus;
Program minusversmajus;
var minus,majus:string;
procedure pussy(var min,maj:string);
var I:byte;
Begin
For I := 1 to Length(min) do
min[I] := UpCase(min[I]);
maj:=min;
writeln;
writeln('Voici ce que sa nous donne en majuscule');
writeln;
writeln(maj);
end;
begin
writeln('entrer une phrase ou une lettre en minuscule:');
writeln;
readln(minus);
writeln;
pussy(minus,majus);
writeln;
writeln;
writeln('Press <Enter> to Quit');
readln;
END.
y'a une difference car la on dit a l'ordinateur de le faire a ma placEt non c'est pareil, tu regardes la première lettre et tu la mets en majuscule à côté, puis la seconde, la troisième etc...
D'ailleurs le code que tu montres semble bien utiliser ce principe.
Ça fait plus de 20 ans que je n'ai pas fait de Pascal, donc je ne suis pas capable de te dire si la syntaxe est exacte, mais l'idée est là.
Pour poster un code lisible, la prochaine fois merci d'utiliser cette procédure
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
program Project2;
procedure lowerToUp(Min : String; var Maj : String);
var I, L : Integer;
Begin
L := Length(Min);
for I := 1 to L do
if not (Min[I] in ['A' .. 'Z']) then
Min[I] := UpCase(Min[I]);
Maj := Min;
end;
var Min, Maj : String;
begin
Write('Entrer une phrase ou une lettre en minuscule : ');
Readln(Min);
lowerToUp(Min, Maj);
Writeln;
Writeln(Maj);
Readln;
end.
Program minusversmajus;
var minus,majus:string; procedure pussy(var min,maj:string); var I:byte; Begin For I := 1 to Length(min) do min[I] := UpCase(min[I]); maj:=min; writeln; writeln('Voici ce que sa nous donne en majuscule'); writeln; writeln(maj); end; begin writeln('entrer une phrase ou une lettre en minuscule:'); writeln; readln(minus); writeln; pussy(minus,majus); writeln; writeln; writeln('Press <Enter> to Quit'); readln; END.Explications disponibles ici : ICI
Merci d'y penser dans tes prochains messages.