Department of Mathematics and Computer Science

algorithme tableau;

const y=100;

type ttab:=tableau(1..y):entier;

procedure lecture;

var i:entier;

     A:ttab;

pour i:=1 à y faire

lire(A(i));

fin;

debut

lecture;

fin.

Algorithme tableau ;

Const n:=100;

Type tab : tableau[1.....n]: entier ;

Procédure lecture ;

Var i: entier ;

A:tab;

Pour i à n faire

Lire (A[i]);

Fin;

Début

Lecture ;

Fin.

G7

algorithme lectu;

const x=10,y=100;

type tab=tableau[1..y]d'entier;

var A,B:tab;

procedure  lecture(A,B:tab):entier;

var i,j:entier;

debut

ecrire('le 1er tableau');

pour i:=1 a x faire

lire(A[i]);

finpour

ecrire('le 2 eme tableau');

pour j:=1 a y faire

lire(B[j]);

finpour

fin;

debut

lecture(A);

lecture(B);

fin.

algorithme tableau;

const y=100; x=10;

var A:tableau(1..x,1..y)d'entier;

procedure lecture;

var i,j:entier;

pour i:=1 à x faire

pour j:=1 à y faire

lire(A(i,j));

fpour;

fpour;

fin;

debut

lecture;

fin.

Algorithme tableau;

Const y=100,x=10;

Ttab:tableau[1...x,1...dentier;

Procédure lecture;

Var i,j:entier;

A,B:tab;

Pour i=1 a x faire

Lire(A[i]);

Fin pour;

Pour j=1 a y faire

Lire(B[j]);

Fin pour;

Fin;

Début

Lecture(A,B);

Fin.

algorithme tableau;

const y=100;

type ttab:=tableau(1..y):entier;

procedure lecture;

var i:entier;

     A:ttab;

pour i:=1 à y faire

lire(A(i));

fin;

debut

lecture;

fin.

algorithme exo_lect;
const x=10;
         y=100;
type tab1 = tableau[1..x] d'entier;
       tab2 = tableau[1..y] d'entier;
var tb1:tab1;
      tb2:tab2;

procedure lecture(var tb1:tab1; var tb2:tab2);
 var i,j:entier;
 debut
  ecrire('lecture du premier tableau');
  pour i:= 1 a x faire
   ecrire('Entrer t[',i,']');
   lire(tb1[i]);
  finpour;

  ecrire('lecture du dexième tableau');
  pour j:=1 a y faire
   ecrire('Entrer t[',j,']');
   lire(tb2[j]);
  finpour;
fin;

debut (*programme principal*)
 lecture(tb1,tb2);
fin.

algorithme tableau;

conste y+100; X=10;

table tab:=tableau[1...Y]entier;

procedure lecture; (var i:entier;A:ttab;);

pour i:=1 à y faire;

((lire(A(i))));

fanpour;

fin;