Exo de pascal
nadoda
-
yvesB87 Messages postés 12 Statut Membre -
yvesB87 Messages postés 12 Statut Membre -
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
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
Configuration: Windows XP Firefox 3.0.8
A voir également:
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ?
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Logiciel - Guide
- Ce logiciel gratuit et léger optimise complètement votre PC en quelques clics - Guide
- Turbo pascal - Télécharger - Édition & Programmation
1 réponse
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.
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.
