Cours

Les résumés de cours rappellent les résultats essentiels.

Exercices

Exercices et problèmes corrigés.

Bac Tunisie

Sections: Maths - Sciences Exp - Techniques
 

Les structures de donnés/EX 7

-->

Ecrire un programme Pascal qui permet de saisir chaine (de longueur impair) formée par des lettres alphabétiques, et de la convertir en majuscule puis d’afficher le sablier comme le montre l’exemple :

Si ch=Sablier


program sablier;
uses wincrt;
var i:integer; ch,ph:string; b:boolean;
begin
repeat

writeln('saisir un mot');
readln(ch);
clrscr;

i:=0;
repeat

i:=i+1;
b:= upcase(ch[i]) in ['A'..'Z'];
until not(b) or (i=length(ch));

for i:=1 to length(ch) do
ch[i]:= upcase(ch[i]);
until b and (length (ch) mod 2=1);

ph:=ch;

writeln('voici votre mot sous la forme d un sablier');

writeln;
for i:=1 to length(ch) div 2 do
begin

writeln(ch);

ch[i]:= ' ';

ch[length (ch) -i+1]:= ' ';
end;

writeln(ch);

for i:=length(ch) div 2 downto 1 do
begin

ch[i]:= ph[i];
ch[length(ch)-i+1]:= ph [length(ch) -i+1];
writeln(ch);
end;
end.
-->