Exercice: Nombres symétriques d'un tableau

Énoncé de l'exercice:

on se propose d'écrire un programme permettant de saisir les éléments d'un tableau T de N entiers de 3 chiffres chacun puis de chercher et d'afficher les nombres symétriques de de ce tableau.

Exemple:

pour N=7 et T = 424 715 133 121 454 616 566
le programme affichera : les nombres symétriques de T sont : 424 ; 121 ; 454 et 616

Cet exercice doit plutôt avoir comme titre:
Exercice: Arithmétique: Nombres symétriques d'un tableau

en fait je ne sais pas exactement est ce que ces exercices peuvent être classés comme des exercices d'arithmétiques c juste après les avoir envoyé que g pensé a ça

sasouki a écrit:en fait je ne sais pas exactement est ce que ces exercices peuvent être classés comme des exercices d'arithmétiques c juste après les avoir envoyé que g pensé a ça

Ce sont des exercices de Programmation ou Algorithmique.
Mais rien n'empêche d'enrichir le suejt et de proposer des démonstration mathématiques si c'est possible.

sasouki a écrit:Énoncé de l'exercice:

on se propose d'écrire un programme permettant de saisir les éléments d'un tableau T de N entiers de 3 chiffres chacun puis de chercher et d'afficher les nombres symétriques de de ce tableau.

Exemple:

pour N=7 et T = 424 715 133 121 454 616 566
le programme affichera : les nombres symétriques de T sont : 424 ; 121 ; 454 et 616

je veux le correction svp

Voici une solution personnelle.

Code:

Program symertique;

Uses wincrt;

Type
 tab = array [1..10] Of integer;

Var
 t: tab;
 n: integer;

Procedure saisie(Var t: tab; Var n: integer);

Var
 i: integer;
Begin
 Repeat
   writeln('Saisir N : ');
   readln(n);
 Until n In [3..10];
 For i:=1 To n Do
   Begin
     Repeat
       writeln('Saisir la case ',i);
       readln(t[i]);
     Until ( t[i] > 99 ) And ( t[i] < 1000 );
   End;
End;

Function sym(x: integer): boolean;

Var
 b: boolean;
 i: integer;
 ch: string;
Begin
 str(x,ch);
 b := true;
 i := 1;
 While ( i <= length(ch) Mod 2 ) And b Do
   Begin
     b := ch[i]=ch[length(ch)-i+1];
     inc(i);
   End;
 sym := b;
End;

Procedure affichage(t: tab; n: integer);

Var
 i: integer;
Begin
 For i:=1 To n Do
   Begin
     If sym(t[i]) Then
       Begin
         writeln(t[i]);
       End;
   End;
End;

Begin
 saisie(t,n);
 affichage(t,n);
End.