Turbo pascal

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.

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

Tu le trouvera a cette adresse et en français

https://turbo-pascal.developpez.com/

Bonjour,

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

Salut

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.

slt ta pas encore trouve la solution de l"exo

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

Bye.

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

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

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

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

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

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

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.

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.

^ ^