Affichage sous forme de tableau [Résolu]

[triana]

Bonjour tout le monde, j'ai besoin d'aide

Je n'ai pas su faire le programme Pascal qui calcule la fonction carrée avec x entier et l'affichage sous forme de tableau.

Merciiii d'avance

[extrem-alpha]

Salut , le but de ce forum est d'apprendre la péche pas donner des poissons
Donc montre nous ton code et a quel niveau tu bloque comme sa on pourra t'aider
à bientôt

[triana]

Bonjour, eh bien je ne suis qu'une débutante dans votre domaine alors, si vous voulez, je peux vous envoyer mon essai qui ne fonctionne pas lol ???? J'attends votre réponse, merci.

[droggo]

Moe,

Pourquoi attendre une nouvelle demande de notre part ?

Celle de extrem-alpha est parfaitement explicite.

Au passage : le langage SMS est proscrit sur ce forum !

[triana]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Programme carree;
Var T:array[1..5]of integer;
i:integer;
x,y:real:
begin
writeln(‘entrer les veleurs de T’);
for i:=1 to 5 do
begin
readln(t[i]);
end;
x:=t[i];
for i:=1 to 5 do
begin
y:=x*x;
end;
writeln(‘le carree de x est:’,y);
readln;
end.

c'est mon essai, et je m'excuse du retard
pour le language sms je ne savais pas que c'est interdit

[DOLPat®]

En structurant quelque peu ton code, tu verrais que ta boucle fait 5 fois strictement la même chose... Ne crois-tu pas que les lignes 11 et 16 devrait aussi en faire partie ?
Tu peux même optimiser le code en supprimant la ligne 11 si tu remplace la 14 par y:=t[i]*t[i]

[triana]

normalement c'est resolu, je vous remercie pour votre reponse...pour vous embeter une derniere fois, pouvez vous me dire si ce resultat est correct:
1.6000000000E+01!!!!!

[extrem-alpha]

il suffit d'ajouter

Code :

1
2
 
writeln(‘le carree de x est:’,y:4:2)

pour savoir si le resultat est correct ou non

[triana]

svp quelqu'un peut me dire comment faire pour que le pascal m'affiche le resultat dans un tableau merciiii

[Devildz]

Voilà triana j'ai procédé un quelque correction

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Program carree;
Var T:array[1..5]of integer;
i:integer;
begin
writeln('entrer les veleurs de T');
for i:=1 to 5 do
readln(t[i]);
writeln('------------------------------');
writeln('|Nombre       |   Carrée     |');
writeln('------------------------------');
for i:=1 to 5 do
begin
writeln('|',t[i]:4,'|':10,t[i]*t[i]:10,'|':5);
end;
readln;
end.

Regarde essaye de deviné comment j'ai affiché le tableau, juste avec des writeln

j'espère que ça serviras.

[droggo]

Jai,

Envoyé par Devildz

Voilà triana j'ai procédé un quelque correction

....

j'espère que ça serviras.

Rappel : le forum n'est pas là pour donner des programmes "clés en main", mais pour aider à créer le code.

[triana]

devildz, je vous remercie pour votre aide

et pour droggo, j'ai fait le programme mais je n'ai pas pu faire des tabulations
je ne suis qu'une debutante et ils me l'ont pas encors appris alors ce n'est pas vrement une ''clé en main"

[droggo]

Qua,

Tu sais ce qu'est une tabulation ?

Je suppose que oui ...

... alors pourquoi ne pas avoir essayé d'afficher une chaîne qui en contienne une ?

Et si, c'est "clés en main", puisque ça répond à l'énoncé total, aux tabulations près, mais ton énoncé ne parlait pas d'une quelconque obligation de les utiliser.

[triana]

oui monsieur droggo je sais ce qu'est une tabulation, mais ce que je ne sais pas, comment l'a faire apparaitre, j'ai pensé que y'avait un code précis pour faire ça

[droggo]

Kia,

J'ai comme qui dirait l'impression que je t'ai dit comment faire dans mon message précédent.

Sinon, une tabulation est représentée par Chr(9).