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
babarac - 28 juil. 2008 à 21:10
A voir également:
- Turbo pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Iphone turbo sim inconvénient - Forum iPhone
- My pascal - Télécharger - Édition & Programmation
- Turbo sim - Forum iPhone
- Telecharger turbo pascal 7.0 gratuit 01net ✓ - Forum Pascal
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
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.
^ ^
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
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
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.
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.
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
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
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
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
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.
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
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
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
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
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
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
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
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
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
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
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
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
7 avril 2008 à 23:35
slt ta pas encore trouve la solution de l"exo
Bonjour
Jeu du pendu
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.
Bonjour,
As tu essayé de jouer au pendu? qu'en penses tu?
Salut
As tu essayé de jouer au pendu? qu'en penses tu?
Salut
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
8 avril 2008 à 21:48
bon jour,pas encore il faut que jtelecharge turbo pascal
Je demande le code du calcul de déterminant. svp
30 mars 2008 à 14:41
30 mars 2008 à 15:03