Algo.tn

Program rectangle;
Uses wincrt;
Var
I,n :integer ;
Begin
  write('n=');
  readln(n);
writeln('**********');

for i:=1 to n-2 do
writeln('*        *');

writeln('**********');

end.

Program triangle;
Uses wincrt;
Var
I,j,n :integer ;
Begin
  write('n=');
  readln(n);

for i:=1 to n do
begin
   for j:=1 to i do
        write('*');

writeln;
end;
end.

Program triangle2;
Uses wincrt;
Var i,j,k,n :integer ;
Begin
  write('n=');
  readln(n);

for i:=1 to n do
begin
  for k:=1 to n-i do
        write(' ');

   for j:=1 to 2*I-1 do
        write('*');

writeln;
end;
end.

program tableau;
uses wincrt;
var t:array[1..20]of integer;
I,n : integer;
Begin
Writeln('Donner la taille du tableau') ;
Readln(n) ;

For i :=1 to n do
Begin
  Writeln('Donner l''élément n° ',i) ;
  Readln(t[i]) ;
End;

For i :=1 to n do
Writeln('l''élément n° ', i , ' est ', t[i] ) ;
End.

program pairs;
uses wincrt;
var t:array[1..20]of integer;
I,n : integer;
Begin
Writeln('Donner la taille du tableau') ;
Readln(n) ;

For i :=1 to n do
Begin
  Writeln('Donner l''élément n° ',i) ;
  Readln(t[i]) ;
End;

writeln('Les entiers pairs :');
For i :=1 to n do
if t[i] mod 2=0 then Writeln('l''élément n° ', i , ' est ', t[i] ) ;
End.

Program occurences2;
uses wincrt;
Var
	ch:String;
	OC:array['A'..'Z']of integer;
	i:integer;
	c, L:char;
Begin
write('Donner un texte (sans caractères accentués): ');
readln(ch);

{initialisation du tableau des occurences OC par des 0 }
for c:='A' to 'Z' Do
oc[c]:=0;

{Remplissage du tableau des occurences }
For i:=1 to length(ch) do
 Begin
 L:=Upcase(ch[i]);
 if L in ['A'..'Z'] then oc[ L ] := oc[ L ] +1;
 end;
 
{Affichage des occurences des lettres}
for c:='A' to 'Z' Do
if OC[c] <> 0 then writeln(c, ' : ', OC[c] ,' fois');

end.

program calendrier;
uses wincrt;
var  i,j,x ,an,mois,jours : integer;
		 jour_semaine:string;
begin

write('Donner le n° du mois=');
readln(mois);
if mois in [1,3,5,7,8,10,12] then jours:=31
else if mois in [4,6,9,11] then jours:=30
				else
			if mois=2 then
				Begin
				write('Donner l''année ='); readln(an);
				if an mod 4= 0 then jours:=29 else jours:=28;
				end;
write('Donner le jour de début de mois (lundi=1 mardi=2 ...)=');
readln(x);

writeln;

for i:=1 to 7 Do
 Begin
if i=1 then jour_semaine:='Lundi   '
else if i=2 then jour_semaine:='Mardi   '
else if i=3 then jour_semaine:='Mercredi'
else if i=4 then jour_semaine:='Jeudi   '
else if i=5 then jour_semaine:='Vendredi'
else if i=6 then jour_semaine:='Samedi  '
else if i=7 then jour_semaine:='Dimanche';

write(jour_semaine);

	j:=i-x+1;
 while ( j<=jours) Do
		Begin
		if j >0 then write(j:3)
				else write(' ':3);
		j:=j+7;
		end;
	writeln;

 end;
end.

program calendrier2;
uses wincrt;
var  i,j,x,y ,an,mois,jours : integer;
 
begin

write('Donner le n° du mois=');
readln(mois);
if mois in [1,3,5,7,8,10,12] then jours:=31
else if mois in [4,6,9,11] then jours:=30
				else
			if mois=2 then
				Begin
				write('Donner l''année ='); readln(an);
				if an mod 4= 0 then jours:=29 else jours:=28;
				end;
write('Donner le jour de début de mois (lundi=1 mardi=2 ...)=');
readln(y);

gotoxy(1,6);
writeln('Lundi');
writeln('Mardi');
writeln('Mercredi');
writeln('Jeudi');
writeln('Vendredi');
writeln('Samedi');
Writeln('Dimanche');

x:=10;

for i:=1 to jours Do
Begin
 GotoXY(x,y+5);
write(i:4);
y:=y+1;
if y=8 then begin x:=x+4;y:=1; end;
end;

end.

Program ex21;
Uses Wincrt;
Var
  t: Array[1..20] Of String;
  V: Array[1..20] Of Integer;
  n,i,j,nb,d,e,s: Integer;
Begin
  Repeat
    Write('n=');
    Readln(n);
  Until n In [2..20];
  s := 0;
  For i:=1 To n Do
    Begin
      Write('T[',i,']=');
      Readln(T[i]);
      nb := 0;
      For j:=1 To Length(T[i]) Do
        Begin
         if t[i][j] in ['0'..'9'] Then
                                    begin
                                        Val(t[i][j],d,e);
                                        nb := nb+d;
                                    end;
        End;
      V[i] := nb;
      s := s+nb;
    End;
  Writeln('T':20,'V':8);
  For i:=1 To n Do
    Writeln(T[i]:20,V[i]:8);
  Writeln('S=':20,s:8);
End.