Discussion :

[argon]

Bonjour tout le monde

J'ai des probleme avec turbo pascal

Je voudrais apprendre à insérer des données dans un tableau.
Afficher le données d'un tableau.
Réaliser la moyenne d'un tableau et copier cette moyenne dans un autre tableau.
De plus j'ai un autre problème, j'ai déclaré mes tableaux tabnote et tabbillan en entier et je veux pouvoir entrer des noms (chaîne de caractères) y a t'il un moyen de faire croire au tableau que c'est dans la colonne nom accueil des entiers, alors que c'est des caractères ?

Voici le code que j'ai realisé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
program bontableau;
 
var tabnote:array[1..20,1..7]of integer;
var tabbillan:array[1..20,1..2]of integer;
 
 
 
var ideleve,francais,maths,anglais,geometrie,geographie,moyen:integer;
var nom:string;
 
procedure entrer_donnees;
 
	begin
 
	for ideleve:=1 to 20 do
 
        writeln('Entrer le l identifient de l eleve');
        readln (tabnote[ideleve]);
	Writeln('Entrer la note le Nom de l eleve');
	readln (tabnote[nom]);
	Writeln('Entrer la note de Francais');
	readln (tabnote[francais]);
	Writeln('Entrer la note de Maths');
	readln (tabnote[maths]);
	Writeln('Entrer la note d Anglais');
	readln (tabnote[anglais]);
	Writeln('Entrer la note de Geometrie');
	readln (tabnote[geometrie]);
	Writeln('Entrer la note de Geographie');
	readln (tabnote[geographie]);
 
 
	end;
 
 
procedure affichetabenote;
 
	begin
 
     	writeln('ideleve,Nom, Francais, Anglais, maths, geometrie,geographie');
 
	for ideleve 1 to 20
 
	Write tabnote(ideleve,nom,france,maths, geometrie,geographie);
 
	end;
 
 
	procedure calculmoyen;
	begin
 
	tabnote(moyen):=tabnote(francais)+tabnote(maths)+tabnote(anglais)+tabnote(geometrie)+tabnote(geographie)
 
 
	end;
 
	procedure affiche billan
	begin
 
	Writeln('nom,moyen');
 
	Write tabbillan(nom,moyen);
 
	end;
 
 
 
 
	begin
 
		entrer_donnees;
 
 
		affichetabenote;
 
		calculmoyen;
 
		affiche billan;
 
	end.

Pouvez vous m'aider à le corriger.
Où puis je trouver de bons tutos ?

Merci

Cordialement

A bientôt

[Alcatîz]

Bonjour !

Houlàlà, sans vouloir te vexer il y a vraiment beaucoup de problèmes fondamentaux dans ton code.

Avant d'essayer d'aller plus avant dans la programmation Pascal, la meilleure chose à faire pour toi serait de te plonger dans le tutoriel de Cyberzoide.
La rubrique Pascal de Developpez.com te propose également les exercices corrigés de Wormful_sickfoot et Giovanny Temgoua.

Bon courage !

[argon]

Bonsoir tout le monde

Je trouve que les tutos que tu me propose ne corresponde pas à mon probleme.

Merci.

Cordialement

A bientôt

[Alcatîz]

Je trouve que les tutos que tu me propose ne corresponde pas à mon probleme.

Déclaration de constantes : http://cyberzoide.developpez.com/info/turbo/chap26.php3
Les boucles : http://cyberzoide.developpez.com/info/turbo/chap6.php3
Les tableaux : http://cyberzoide.developpez.com/info/turbo/chap21.php3

[argon]

Bonjour tout le monde

Je vais étudier ca.

Merci

Cordialement

A bientôt

[argon]

Bonjour tout le monde

Volà ce que j'ai fais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
type tabnote=array[1..20,1..7]of integer;
var noteleve:tabnote;
 
var ideleve,francais,maths,anglais,geometrie,geographie,moyen:integer; 
var nom:string; 
 
var ideleve,francais,maths,anglais,geometrie,geographie,moyen:integer; 
var nom:string; 
 
procedure entrer_donnees(var noteleve:tabnote); 
 
   begin 
 
   for ideleve:=1 to 20 do 
 
               writeln('Entrer le l identifient de l eleve'); 
                readln (noteleve[ideleve]); 
   	Writeln('Entrer la note le Nom de l eleve'); 
  	 readln (noteleve[nom]); 
  	 Writeln('Entrer la note de Francais'); 
  	 readln (noteleve[francais]); 
   	Writeln('Entrer la note de Maths'); 
   	readln (noteleve[maths]); 
   	Writeln('Entrer la note d Anglais'); 
   	readln (noteleve[anglais]); 
   	Writeln('Entrer la note de Geometrie'); 
   	readln (noteleve[geometrie]); 
   	Writeln('Entrer la note de Geographie'); 
   	readln (noteleve[geographie]); 
 
 
   end;

j'ai une question concernant l'insertion des données dans un tableau.

Car mon tableau à des ligne et des colonnes.

Comment lui indiquer ou enregistrer les données.

Pour l'exemple ci dessous je veux lui dir de mettre l'enregistrement dans la colonne ideleve.

readln (noteleve[ideleve]);

Merci

Cordialement

A bientôt

[Alcatîz]

En fait, tu devrais déclarer ideleve, francais, maths, anglais, geometrie, geographie, moyen comme constantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Const ideleve = 1;
      francais = 2;
      maths = 3;
      ...

Ce sont les "indices de colonnes" du tableau. Car ton tableau est à 2 dimensions.

Ainsi, pour assigner la note de maths à l'élément n° 14 du tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

noteleve[14,maths] := 10;

[Azharis]

De plus, ce n'est pas en rapport au tableau mais ce sera toujours mieux que rien, si tu veux afficher le caractère ', il faut que tu le doubles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WriteLn('L''eleve a dit...');

[argon]

Bonsoir tout le monde

Je vous envois ce message pour que vous me disiez si c'est correct ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Const ideleve= 1;
      francais= 2;
      maths= 3;
      anglais= 4;
      geometrie= 5;
      geographie= 6;
      moyen= 7;
 
readln (noteleve[1,ideleve]);

Merci

Cordialement

A bientôt

[Alcatîz]

Je vous envois ce message pour que vous me disiez si c'est correct ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Const ideleve= 1;
      francais= 2;
      maths= 3;
      anglais= 4;
      geometrie= 5;
      geographie= 6;
      moyen= 7;
 
readln (noteleve[1,ideleve]);

Oui

[argon]

Bonjour tout le monde

Merci, j'ai enfin compris.

Cordialement

A bientôt