Discussion :

[xplose]

BONJOUR TOUT LE MONDE,

JE SUIS ACTUELLEMENT EN EXAM PASCAL ET J'AI UN PEU TROP BU DE SKY CE MATIN...

J'ai deux exercices a faire.. je vous présente le premier en espérant que vous me répondrez.... Sincèrement je vous serai vraiment reconnaissant de votre aide... moi je suis vraiment beaucoup plus callé en php..

Voici l'exo :

Soit un tableau de 100 éléments contenant chacun un caractère (lettre, chiffre).On saisit au clavier un caractère. Le programme doit afficher le rang de tous les caractères identiques rencontrés dans le tableau.

Faire l'exo en pascal..

Sur cet exam, je risque mon année.....

Je vous remercie d'avance, vraiment énormémént !!!


Franchement, jsuis vrament désolé de vous demander ca mais là, aussi correct que je suis en prog, j'arrive vraiment pas en pascal !!! C'est un language que je n'accroche pas ! Merci

[xplose]

J'ai trouvé ca :

Ca marche ???

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
program reperage;
 
var
 saisie:char;
 i:integer;
 T:array[1..100] of char;
 
begin
//tableau pour le test
for i:=1 to 100 do begin
T[i]:=a
end;
 
T[i]:=b
 
 
readln(saisie);
for i:=1 to 100 do begin
if T[i]=saisie then begin
 writeln ;
end;
end;
 
end.

[droggo]

J'ai trouvé ca :

Ca marche ???

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
 
program reperage;
 
var
 saisie:char;
 i:integer;
 T:array[1..100] of char;
 
begin
//tableau pour le test
for i:=1 to 100 do begin
T[i]:=a
end;
 
T[i]:=b
 
 
readln(saisie);
for i:=1 to 100 do begin
if T[i]=saisie then begin
 writeln ;
end;
end;
 
end.

La prochaine fois, pense aux balises [ code] [ /code] (sans les espaces, qui ne sont là que pour les invalider).

ET fait une présentation propre : indentation correcte et régulière, pas de lignes vides inutiles, surtout quand il y en a plusieurs à la suite.

Il y a de l'idée.

- utilisation de 2 variables non déclarées a et b

- remplir tout le tableau avec la même valeur me paraît un peu simpliste, un remplissage au hasard me semblerait préférable (mais l'enoncé ne précise pas si on doit le remplir !! ).

- quand tu veux afficher le résultat, penses-tu que

Code :

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

 writeln ;

soit suffisant ?

Il manque comme qui dirait ce qu'il faut effectivement écrire en paramètre à la procédure WriteLn.

[JoseF]

Bonjour,

xplose a écrit :

J'ai trouvé ca :

Ca marche ???

j'espère que "trouvé" ne veux pas dire recopié...

le mieux est sans doute de compiler et si il n'y a pas d'erreurs , d'exécuter...

comment sera rempli ton tableau au départ ? de caractères pas tous identiques je suppose ?

ensuite tu dois saisir un caractère au clavier et le programme doit dire dans quel(s) rang(s) il se trouve ?

fais déjà un test sur quelques éléments et essaie de voir.

comme tu as déja un peu bossé sur le sujet je viens d'écrire un peu code mais à finir un peu... tu t'en doutes ...

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
 
program test;
	var r:char;
	t:array[1..9]of char;
	i,compteur:integer;
begin
 
	//remplissage de 9 éléments
	t[1]:='a';
	t[2]:='z';
	t[3]:='e';
	t[4]:='r';
	t[5]:='t';
	t[6]:='y';
	t[7]:='a';
	t[8]:='z';
	t[9]:='e';
 
	compteur:=0;
 
	// pose question
	writeln;
	write('caractère à rechercher ? ');
	readln(r);
	writeln;
 
	//recherche dans le tabelau
	for i:=1 to 9 do
	begin
		if r=t[i] then
		begin
			writeln(i); //affiche si trouvé
			compteur:=compteur+1;
		end;
	end;
	if compteur>0 then
		writeln('le caractère  "',r,'" a été trouvé ',compteur,' fois  ')
	else
		writeln('le caractère "',r,'" n''a pas été trouvé ');
 
	writeln;
	write('programme terminé. appuyer sur Enter'); 
	readln;
end.

.

bonne continuation