Afficher un tableau en Pascal !! Fermé

Question

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 !



Configuration: Windows XP / Safari 535.7

metarefsalem · Answer

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.

Afficher un tableau en Pascal !!

1 réponse

Discussions similaires