Afficher un tableau en Pascal !!
Meriem Bou
-
Profil bloqué -
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 !
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.
