turbo pascal Résolu

Question

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.

achoura · Answer

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.

^ ^

malikdz16 · Answer

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.

amigo · Answer

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

malikdz16 · Answer

comment proceder en turbo pascal pour enlver les deux dernier caractere d'un verbe est  de l'afficher sans les deux dernier caractere

amigo · Answer

Je ne comprend pas, si tu veux bien donner un exemple, merci.

malikdz16 · Answer

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

amigo · Answer

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

malikdz16 · Answer

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

amigo · Answer

Ok, mais il est un peu tard pour jouer au pendu, demain peut-être.

Bye.

malikdz16 · Answer

slt ta  pas encore trouve la solution de l"exo

amigo · Answer

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.

amigo · Answer

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

amigo · Answer

Tu le trouvera a cette adresse et en français

https://turbo-pascal.developpez.com/

jcjcjc · Answer

Je demande le code du calcul de déterminant. svp

babarac · Answer

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.

Turbo pascal

15 réponses

Votre réponse

Discussions similaires

Newsletters