Turbo pascal

Résolu/Fermé
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 - 30 mars 2008 à 14:04
 babarac - 28 juil. 2008 à 21:10
Bonjour,
vous pouvez me donner la solution de l'exo
ecrire un programme de saisir une phrase au clavier d'en afficher le nombre de mots.
merci.
A voir également:

15 réponses

achoura Messages postés 35 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 5 avril 2010 1
30 mars 2008 à 14:18
bonjour,
je ne sais pas est ce que tu veut le nombre de mot dans une phrase ou le nombre de lettre dans une mot

soit tu utilise la fonction lengh() pour calculer le nombre de lettre dans un mot soit tu fait un petit boucle qui détecte le caractère espace et ainsi peut trouver le nombre de mot dans une phrase puisque une phrase c'est un ensemble de mots séparer par des espaces, et tu met une variable integer a incrémenter à chaque fois que tu trouve un espace.

^ ^
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
30 mars 2008 à 14:41
re slt,moi je cherche le nombre de mot dans une phrase es'que tu peux m'ecrire le programme entier s.v.p
0
achoura Messages postés 35 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 5 avril 2010 1 > malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009
30 mars 2008 à 15:03
non monsieur au moin tu doit faire un effort et puis je te corrige et c'est avec plaisir,,,mais rester les bras croisés et attendre que les gens vous prépares vos exercices---------sorry :-(
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
6 avril 2008 à 11:27
bon joue s.vp repondé moi jpeux pas faire mieux corriger ma solution
programme mot


variable x,a:chine de caractere
i,c:entier
debut
ecrire('doonnez une phrase')
lire(x)
a:length(x)
pour i:i jusqu'a a
si a=' ' alors c:=c+2
ecrire(' le nombre de mot est',c)
fin.
0
Bonjour,

correction du programme

programme mot

variable x,a:chaine de caractere
i,c,n:entier

debut
ecrire('donnez une phrase')
lire(x)
c:=0
n:=length(x)
pour i:=1 jusqu'a n
debut
si x[i]=' ' alors c:=c+1
fin
si n=0 alors c:=0 sinon c:=c+1
ecrire(' le nombre de mot est',c)

fin.

Améliorations possibles:
-vérifier qu'il n'y a pas plusieurs espaces attachés qui se suivent
-les signes de ponctuations séparés par des espaces sont comptés comme des mots
ex: 'Bonjour, bonjour' -> 2 mots
'Bonjour , bonjour' -> 3 mots
-les mots avec apostrophe peuvent aussi fausser le calcul
ex: 'Bonjour toute l'équipe' -> 3 mots
'Bonjour toute l' équipe' -> 4 mots.

Pas si simple ...

Salut
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
6 avril 2008 à 12:20
comment proceder en turbo pascal pour enlver les deux dernier caractere d'un verbe est de l'afficher sans les deux dernier caractere
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Je ne comprend pas, si tu veux bien donner un exemple, merci.
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
6 avril 2008 à 19:38
reslt, le voila l'exo
ecrire un programme pascal permettent de saisir un verbe du 1er groupe (par exemple:marcher)et d'en afficher la conjugaisonau prensent de l'indicatif( je marche , tu marches ,il marche ,etc....)
programme conjug
variable

debut
ecrire('donnez un verbe du premier groupe')
lire(a)
b:=length(a) ?comment enlver les deux dernier caracter du verbe est le recrire sans les deux dernier caractere?
jveux obtenir ce resultat
ecrire('je',verbe,'e')
ecrire('tu',verbe,'es')
ecrire('il/elle',verbe,'e')
ecrire('nous',verbe,'ons')
ecrire('vous',verbe,'ez')
ecrire('ils/elles',verbe,'ent')
fin
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
6 avril 2008 à 19:59
reslt, le voila l'exo
ecrire un programme pascal permettent de saisir un verbe du 1er groupe (par exemple:marcher)et d'en afficher la conjugaisonau prensent de l'indicatif( je marche , tu marches ,il marche ,etc....)
programme conjug
variable

debut
ecrire('donnez un verbe du premier groupe')
lire(a)
b:=length(a) ?comment enlver les deux dernier caracter du verbe est le recrire sans les deux dernier caractere?
jveux obtenir ce resultat
ecrire('je',verbe,'e')
ecrire('tu',verbe,'es')
ecrire('il/elle',verbe,'e')
ecrire('nous',verbe,'ons')
ecrire('vous',verbe,'ez')
ecrire('ils/elles',verbe,'ent')
fin5 message(s) posté(s) depuis le mercredi 26 mars 2008
0
en pascal la fonction copy() permet de faire cela

SousChaine:=copy(Chaine,debut,longueur);

debut
ecrire('donnez un verbe du premier groupe')
lire(a)
b:=length(a)

verbe:=copier(a,1,b-2);

ecrire('je',verbe,'e')
ecrire('tu',verbe,'es')
ecrire('il/elle',verbe,'e')
ecrire('nous',verbe,'ons')
ecrire('vous',verbe,'ez')
ecrire('ils/elles',verbe,'ent')
fin
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
6 avril 2008 à 23:50
slt, s.v.p aider moi a rsoudre se exo
exo:
en supposent que l'ordinateur connaisser une serie de mots (ranger par exemple dans tableau de chaines) ecrire un programme permettent a la machine de choisir aleatoirement l'un de ces mots et qui tente de le faire devenier a l'utilisateur sous la form de jeu du pendu une fois le mot choisi par le programe on affiche un nombre de tirets egal ala taille du mot choisi l'utilisateur entre alors une lettre au clavier si la lettre proposée fait partie du mot a deviner,on l'affiche a sa place dans le mot incomplet qui est a l'ecran au fur et a mesur des des proposition de l'utilisateur le mot incomplet se complete jusqu'a ce que le mot initial soit entierment devoilé merci d'avance
0
Ok, mais il est un peu tard pour jouer au pendu, demain peut-être.

Bye.
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
7 avril 2008 à 23:35
slt ta pas encore trouve la solution de l"exo
0
Bonjour

Jeu du pendu

program pendu;
uses crt;
var
TabMots : array [0..19] of string;
imot,i,t,lm,posX,posY : integer;
s:char;
trouve : boolean;

begin
tabMots[0]:='cartographie';
tabMots[1]:='combinaison';
tabmots[2]:='conjuration';
tabmots[3]:='diplomatie';
tabMots[4]:='enthousiasme';
tabmots[5]:='fermentation';
tabmots[6]:='gasteropode';
tabMots[7]:='alterophile';
tabmots[8]:='humoristique';
tabmots[9]:='penitencier';
tabMots[10]:='avanturier';
tabMots[11]:='chlorophile';
tabmots[12]:='temperature';
tabmots[13]:='prevaricateur';
tabMots[14]:='paleantologue';
tabmots[15]:='melancolique';
tabmots[16]:='blasphematoire';
tabMots[17]:='lycanthropie';
tabmots[18]:='pharmaceutique';
tabmots[19]:='incomprehension';
repeat
randomize;
imot:=random(19);
clrscr;
write(imot);
t:=10;
gotoxy(1,7);
write('Vous avez 10 essais pour trouver le mot');
gotoxy(15,12);
lm:=length(tabmots[imot]);
for i:=1 to length(tabmots[imot]) do
    write('_ ');
posX:=whereX; posY:=whereY;
write('  ' , t, ' essais    ');
repeat
gotoxy(1,9);
clreol;
gotoxy(1,9);
write('Votre lettre : ');
readln(s);
s:=upcase(s);
trouve:=false;
for i:=1 to length(tabmots[imot]) do
    begin
    if s=upcase(tabmots[imot][i]) then
       begin
       gotoxy(15+((i-1)*2),12);
       write(s);
       tabmots[imot][i]:=' ';
       trouve:=true;
       lm:=lm-1;
       end;
    end;
if not trouve then
   begin
   t:=t-1;
   gotoxy(posX,posY);
   write('  ' , t, ' essais    ');
   end;
until (t=0) or (lm=0);
gotoxy(1,14);
if lm=0 then
   writeln('Bravo, vous avez gagn‚');
if t=0 then
   begin
   writeln('D‚sol‚, vous avez perdu');
   textcolor(4);
   for i:=1 to length(tabmots[imot]) do
      begin
      if tabmots[imot][i] <> ' ' then
         begin
          gotoxy(15+((i-1)*2),12);
          s:=upcase(tabmots[imot][i]);
          write(s);
         end;
      end;
   end;
textcolor(7);
{readln; }
gotoxy(1,16);
Write('Une autre partie? ');
read(s);
until not ((s='o') or (s='O'));
end.
0
Bonjour,

As tu essayé de jouer au pendu? qu'en penses tu?

Salut
0
malikdz16 Messages postés 39 Date d'inscription mercredi 26 mars 2008 Statut Membre Dernière intervention 30 novembre 2009 3
8 avril 2008 à 21:48
bon jour,pas encore il faut que jtelecharge turbo pascal
0
Tu le trouvera a cette adresse et en français

https://turbo-pascal.developpez.com/
0
Je demande le code du calcul de déterminant. svp
0
non mais franchement!l faut pas encourager la paresse! vous n'allez pas quand meme nous donner tous vos exo à faire! faut vous meme les bosser si vous vouler evoluer!
pendant qu'on y est quelqu'un pourait il me filer un programme qui donne double d'un nombre?
0
non mais franchement!l faut pas encourager la paresse! vous n'allez pas quand meme nous donner tous vos exo à faire! faut vous meme les bosser si vous vouler evoluer!
pendant qu'on y est quelqu'un pourait il me filer un programme qui donne double d'un nombre? sans blague!
0
soit f=23.4n .la longueur oa de la manivelle est égale à 50cm.calculer ,de deux façons différentes,le travail w que l'opérateur doit fournir pour remonter le seau d'eau de masse m=12kg du fond du puit,de profondeur h=40m.
0