Discussion :

[Loupsio]

Bonjour à tous,

Voilà, je suis débutant (et le mot est faible), c'est-à-dire que je connais juste les bases (writeln; readln; if then else; for to do ) et pas vraiment plus; pour vous situer mon niveau, le programme le plus complexe que j'ai fait, c'est un programme de calcul de moyenne avec coef tout simple
et j'aimerais essayer de créer un programme de questions-réponses
du genre (et je sais que ça ne marche pas mais c'est ce que je visualisais au départ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program conversation;
var a : integrer;
begin
 writeln('posez votre question');
 readln(a)
  begin
   if a=quel ages as tu then
    writeln('j ai 18 ans');
  if a=comment tu t appelles then
   writeln('je m appelle loupsio'); 
 end.
 else
  writeln('je n ai pas compris votre question posez la differemment');
end.

Sauf que je n'arrive pas à savoir comment faire pour comparer la phrase écrite par la personne ( donc appelée "a") et les phrases pré-enregistrées.

Je suis conscient qu'il me manque sûrement plein de choses, sûrement même des erreurs qui vous paraissent simples mais je suis vraiment débutant, et je suis là pour en apprendre un peu plus

[krachik]

Bonjour

Que penses-tu avant toute chose de lire les tutoriels disponibles sur le site ?

[joreveur]

Bonjour,

à mon avis si tu veux comparer une phase libre d'un utilisateur à des phrases pré-enregistrées tu n'es pas près d'y arriver car il y aurait trop de possibilités..

Il vaut peut-être mieux que l'utilisateur choisisse dans une liste préétablie .. (question fermée ...)

exemple sommaire

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 conversation;
var rep,repfinale:string;
    flag:integer;
 
begin;
  flag:=0;
  while flag=0 do
  begin
    Write('Tu as les yeux : bleus, verts ou noirs  ? ');
    readln(rep);
    if ((rep='bleus') or (rep='verts') or (rep='noirs')) then flag:=1;
  end;
  repfinale:=rep;
  //----------------
  flag:=0;
  while flag=0 do
  begin
    Write('Tu es un homme ou une femme ? ');
    readln(rep);
    if ((rep='homme') or (rep='femme'))  then flag:=1;
  end;
  //------------------
  repfinale:='tu es un(e) '+rep+' aux yeux '+repfinale;
  writeln(repfinale);
end.

je ne sais pas si ça peut t'aider ...

[Loupsio]

(désolé krachik, c'est vrai que j'ai oublié mea culpa )

pereirja,je n'ai pas testé ton exemple, mais si j'ai bien compris le pc pose la question (ici le pc demdande la couleur des yeux de l'utilisateur) et l'utilisateur y répond?
moi j'aimerai faire l'inverse, l'utilisateur pose une question et l'ordi y répond

[krachik]

Bonjour

Si je comprend bien ce que tu veux faire, c'est de communiquer avec l'ordinateur, toi lui posant des questions, lui te répondant.

Le moyen de plus simple et facile est celui que tu as commencé, et qui sera sans le plus long a coder parce que les conditions if vont s'enchainer. Ton code devrait donc etre de ce genre

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
program conversation;
   var question:string;
begin
  writeln('posez votre question');
  readln(question);
 
  if (question = 'quel ages as tu') then
     writeln('j ai 18 ans')
  else if (question = 'comment tu t appelles') then
     writeln('je m appelle loupsio')
  else 
     writeln('je n ai pas compris votre question posez la differemment');
 
  readln
end.

Quand tu fais la comparaison, ça doit être string et string. Pour aller plus loin,tu peux stocker soit dans un fichier ou tableau les réponses possible de l'ordinateur suivant les questions posées et développer un algorithme de recherche et là on va rentre dans le vrai AI.

Mais vu que tu débutes, il faut voir ce que tu veux obtenir

[joreveur]

bonjour

la probabilité que l'utilisateur pose une question connue de l'ordinateur est bien faible... et la coparaison de chaines (strings) est assez ardue mais pas impossible.
entre :

Quel est ton nom ?
Peux-tu me dire ton nom ?
dites moi votre nom
etc...

sans parler du temps, de la grammaire, de la syntaxe...
il faudrait repérer les mots clé et suggérer une question
du style
"peux tu me dire ton nom ?"
l'ordinateur pourrait trouver le mot clé nom
et re-proposer la question
"Vous voulez savoir mon nom je suppose ?"
et là l'utilisateur répondrait oui ou non et en fonction de sa réponse on continue...

[Paul TOTH]

bonjour

la probabilité que l'utilisateur pose une question connue de l'ordinateur est bien faible... et la coparaison de chaines (strings) est assez ardue mais pas impossible.
entre :

sans parler du temps, de la grammaire, de la syntaxe...
il faudrait repérer les mots clé et suggérer une question
du style
"peux tu me dire ton nom ?"
l'ordinateur pourrait trouver le mot clé nom
et re-proposer la question
"Vous voulez savoir mon nom je suppose ?"
et là l'utilisateur répondrait oui ou non et en fonction de sa réponse on continue...

les jeux de rôles des années 80 s'en sortaient pas trop mal

pour ceux qui ne connaissent pas, ce sont des jeux avec parfois une partie graphique en haut de l'écran et en bas la saisie des actions que le programme interprète


bon ok, bien souvent le programme ne supportait pas une grammaire très évoluée "ouvre porte", mais quelques uns sortaient du lot pour interpréter des phrases comme "ouvre la porte verte avec la clé rouge"

Quoi qu'il en soit il est assez bluffant de voir ce qu'on peut faire avec quelque recherche de mots

"tu" -> et si on parlait plutôt de toi ?
"femme" -> vaste sujet que les rapports entre hommes et femmes
"argent" -> ne dit-on pas que l'argent ne fait pas le bonheur ?

évidemment il ne sera pas possible d'avoir une conversation philosophique avec le programme (encore que), mais le dialogue ne sera pas forcément plus illogique que celui qu'on parfois deux êtres humains