Correction épreuve d'ALGO1

Program Ex1 ;
Var	M : array[1..20, 1..20] of integer ;
	Nbre : array[1..20] of integer ;
	i, j, n : integer ;
begin
	Repeat write('n='); read(n); until (n>=1) and (n<=20) ;
	for i :=1 to n do
		for j :=1 to n do
        begin
                write('T[',i,',',j,']=');
                read(M[i, j]) ;
        end;
 
	for i:=1 to n do
	begin
		Nbre[i] := 0 ;
		for j :=1 to n do
			if M[i, j] > M[i, i] then
				Nbre[i] := Nbre[i]+1;
	end;
 
	for i :=1 to n do
		writeln('Ligne ',i,' : ',Nbre[i]);
 
	readln; readln;
end.
 

Program Ex2 ;
Var	T : array[1..50] of integer ;
	z, i, n, spi, spf : integer ;
begin
	repeat write('n='); read(n); until (n>=1) and (n<=50) ;
	for i :=1 to n do
	begin
		write('T[',i,']=');
		read(T[i]);
	end;
 
	(* On cherche le début de la séquence *)
	i :=1 ;
	while (i<n) and (T[i+1] <= T[i]) do
		i := i+1 ;
	spi := i ;
	(* On cherche la fin de la sequence *)
	while (i<n) and (T[i+1] > T[i]) do
		i := i+1 ;
	spf := i ;
 
	i := 1;
	(* On fait l'inversion *)
	while i*2 <= spf-spi+1 do
	begin
		z := T[spi+i-1] ;
		T[spi+i-1] := T[spf-i+1] ;
		T[spf-i+1] := z ;
		(* Il ne faut pas oublier l'incrémentation *)
		i := i+1 ;
	end;
 
	for i :=1 to n do
		write(T[i],',') ;
 
	readln; readln;
end.
 

Program Ex3 ;
Var	i, n, U1, U2, Un : integer ;
begin
	Repeat write('n='); read(n); until n>=3;
	U1 := 1 ;
	U2 := 1 ;
	for i:=3 to n do
	begin
		Un := 3*U2 + 2*U1 ;
		U1 := U2 ;
		U2 := Un ;
	end;
	write('U',n,'=',Un) ;
 
	readln; readln;
end.
 

Algorithme Ex1 ;
Var	M : tableau[20, 20] de entier ;
	Nbre : tableau[20] de entier ;
	i, j, n : entier ;
Début
	Répéter Lire(n) ; jusqu’à (n>=1) et (n<=20) ;
	Pour i :=1 à n faire
		Pour j :=1 à n faire
			Lire(M[i, j]) ;
		Fait ;
	Fait ;
 
	Pour i :=1 à n faire
		Nbre[i] := 0 ;
		Pour j :=1 à n faire
			Si M[i, j] > M[i, i] alors
				Nbre[i] := Nbre[i]+1;
			Fsi;
		Fait;
	Fait;
 
	Pour i :=1 à n faire
		Ecrire(‘Ligne’,i,Nbre[i]);
	Fait ;
Fin.
 

Algorithme Ex2 ;
Var	T : tableau[50] de entier ;
	z, i, n, spi, spf : entier ;
Début
	Répéter Lire(n); jusqu’à (n>=1) et (n<=50) ;
	Pour i :=1 à n faire
		Lire(T[i]) ;
	Fait ;
 
	(* On cherche le début de la séquence *)
	i :=1 ;
	Tantque (i<n) et (T[i+1] <= T[i]) faire
		i := i+1 ;
	Fait ;
	spi := i ;
	(* On cherche la fin de la sequence *)
	Tantque (i<n) et (T[i+1] > T[i]) faire
		i := i+1 ;
	Fait ;
	spf := i ;
 
	i := 1;
	(* On fait l’inversion *)
	Tanque i*2 <= spf-spi+1 faire
		z := T[spi+i-1] ;
		T[spi+i-1] := T[spf-i+1] ;
		T[spf-i+1] := z ;
		(* Il ne faut pas oublier l’incrémentation *)
		i := i+1 ;
	Fait ;
 
	Pour i :=1 à n faire
		Ecrire(T[i]) ;
	Fait ;
Fin.
 

Algorithme Ex3 ;
Var	i, n, U1, U2, Un : entier ;
Début
	Répéter Lire(n) ; jusqu’à n>=3 ;
	U1 := 1 ;
	U2 := 1 ;
	Pour i :=3 à n faire
		Un := 3*U2 + 2*U1 ;
		U1 := U2 ;
		U2 := Un ;
	Fait ;
	Ecrire(Un) ;
Fin.