A voir également:
- Tableau du pascal
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
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.
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.
