Afficher un tableau en Pascal !! [Fermé]

Signaler
-
 Profil bloqué -
Bonjour,
Je souhaite ecrire le programme qui affiche la fonction Y=F(x²) [ avec X entier biensur ^^]
de sorte que l'affichage soit sous forme d'un tableau :/


Merci d'avance !



1 réponse


program Fonction_Y_f(X);

Const N = 100;

var I, J, K, NbreValeurs : Integer;
TableauOuvert : Array[1 .. N, 1 .. N] of Integer;

begin

Write('Nombre de valeurs a saisir <= ', N, ' ');
ReadLn(NbreValeurs);

K := 0;

J := 1;
I := 1;

while I <= NbreValeurs do begin
K := K + 1;
Write('Valeur ', I, ' ? ');
ReadLn(TableauOuvert[I, J]);
TableauOuvert[I, J + 1] := Sqr(TableauOuvert[I, J]);
I := I + 1;
end;

WriteLn;
WriteLn('X':4, ' ---> ', 'f(X)':4);
WriteLn;

J := 1;
for I := 1 to K do begin
Write(TableauOuvert[I, J]:4, ' ---> ', TableauOuvert[I, J + 1]:4);
WriteLn;
end;

WriteLn;

ReadLn;

end.