exo de pascal Fermé

Question

Bonjour,
slt a tt le monde svp je vx une rp de cette exo 
ecrice un prog pascal qui permet de remplir un tableau d'entiers a deux dimensions (n,m)
avec n=25 et m=2. dans la 2eme partie du tableau, la valeur stockée est le carrée de cette stockée dans la 1er partie. et merci

yvesB87 · Answer

program tableau_m;
uses wincrt;
type matrice=array[1..2,1..25] of integer;
var
m:matrice;
i,val:integer;
begin
for i:=1 to 25 do begin
                  clrscr;
                  write('entrez une valeur entière :');read(val);
                  m[1,i]:=val;
                  m[2,i]:=sqr(m[1,i]);
                  end;
for i:=1 to 25 do write('  ',m[1,i]);
writeln;
for i:=1 to 25 do write('  ',m[2,i]);
end.

Exo de pascal

1 réponse

Discussions similaires

Newsletters