Compilation Pascal Résolu/Fermé

Question

Bonjour,
je vous pris de m'aider a resoudre voir corriger cet exerci car je n,arrive pas a le compiler SVP  aidez moi et surtout merci d'avance



Òåêñò ïðîãðàìè íà Ïàñêàë³


rogram lab3;
uses crt;
var x,W:real;
const Pi=3.14;
begin
clrscr;
writeln('___________________________________');
WRITELN('');
writeln('   Made By KALLA CHRISTIAN KM-805  ');
writeln('    Email: negrissim@yahoo.fr      ');
writeln('');
writeln('___________________________________');
writeln('');
writeln('');
writeln ('Input x');
readln (x);
  if x<-1 then
  W:=((x*x*pi-x)(exp(x+1)*1.1*10^-3)/pi+x)
     else
     if x>=1 then
     W:=ln(x)+3sqr(x+sqr(x+pi))       
         else
         W:=tan*tan(3sqr(abs(xln(abs(x)))));        
writeln ('Resultat of the Equation it's : =',W);
readln;
end.

Utilisateur anonyme · Accepted Answer

stp regarde un peu ceci car la compilation est bonne mais lorske j'entre x le program rentre vers l'editeur.
program lab3; 
uses crt; 
var x,W:real; 
const Pi=3.14; 
begin 
clrscr; 
writeln('___________________________________'); 
WRITELN(''); 
writeln(' Made By KALLA CHRISTIAN KM-805 '); 
writeln(' Email: negrissim@yahoo.fr '); 
writeln(''); 
writeln ('Input x'); 
readln (x); 
W:=( (x*x*pi-x) * (exp(x+1)*1.1*0.001))/(pi+x); 

if (x>=1) then 
W:=ln(x)+3*sqr(x+sqr(x+pi)) 
else 
begin 
w:=W:= sin((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(ab­s(x)))))))/cos((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(­abs(x*ln(abs(x)))))));  
writeln('Resultat of the Equation it''s : =',W); 
readln; 
end; 
end.

spoophy · Answer

if x<-1 then
W:=((x*x*pi-x)   *     (exp(x+1)*1.1*10^-3)/pi+x)

te manque l'opérateur 




else
W:=tan*tan(3sqr(abs(xln(abs(x))))); 

la tan doit prendre un argument alors ton w serait plus egale a 

else
W:=tan(tan(3sqr(abs(xln(abs(x))))));

Utilisateur anonyme · Answer

l'erreur est a ce niveau  :
W:=((x*x*pi-x) * (exp(x+1)*1.1*10^-3)/pi+x) 

ou se trouve le 10^-3

ck-7up.inc +380638653721 negrissim@hotmail.com 
" nul ne peu ce qu'il veut mais veut ce qu'il ne peu "

spoophy · Answer

enléve le ^ met un pow(-3) c'est la fonction puissance sous turbo pascal

Utilisateur anonyme · Answer

program lab3;
uses crt;
var x,W:real;
const Pi=3.14;
begin
clrscr;
writeln('___________________________________');
WRITELN('');
writeln('   Made By KALLA CHRISTIAN KM-805  ');
writeln('    Email: negrissim@yahoo.fr      ');
writeln('');
writeln ('Input x');
readln (x);
  W:=( (x*x*pi-x) * (exp(x+1)*1.1*10pow(-3)))/(pi+x)

     else
     if (x>=1) then
     W:=ln(x)+3*sqr(x+sqr(x+pi))       
         else
         W:=tan(tan(3sqr(abs(xln(abs(x))))));        
writeln ('Resultat of the Equation it''s : =',W);
readln;
end.
 voila mais y'a tjrs un clignotement sur le pow et pascal dit ")" expected

spoophy · Answer

program lab3;
uses crt;
var x,W:real;
const Pi=3.14;
begin
clrscr;
writeln('___________________________________');
WRITELN('');
writeln(' Made By KALLA CHRISTIAN KM-805 ');
writeln(' Email: negrissim@yahoo.fr ');
writeln('');
writeln ('Input x');
readln (x);
W:=( (x*x*pi-x) * (exp(x+1)*1.1*0.001))/(pi+x);

if (x>=1) then
W:=ln(x)+3*sqr(x+sqr(x+pi))
else
begin
W:= tan(tan(3*sqr(abs(x*ln(abs(x))))));
writeln('Resultat of the Equation it''s : =',W);
readln;
end;
end. 

voula sa devrais marché si tu veux que je te montre tezs erreurs n'hésite pas

Utilisateur anonyme · Answer

pascal ne reconnait pas les tangentes: tan(tan(3*sqr(abs(x*ln(abs(x)))))); 

comment faire stp????

spoophy · Answer

tien toi pret remplace le w:! tan(tan machin par sa 

W:= sin((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(abs(x)))))))/cos((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(abs(x)))))));

chez moi sa marche et mathématiquement sa devrais etre correcte

Utilisateur anonyme · Answer

aucune operation n'est effectue
apres la compilation 
quand j'entre x=3 par exemple et je valide, a l'ecran je n'ai ke x et 3 sans repose donc aucun calcul n'a ete fait...



merci d'avance



ck-7up.inc +380638653721 negrissim@hotmail.com 
" nul ne peu ce qu'il veut mais veut ce qu'il ne peu "

spoophy · Answer

tous a fais normal faut mettre une sequance d'attente tu fais ça 

var  i: integer; avec les declarations des autres variables


avant le end. final readln(i);

Utilisateur anonyme · Answer

pareil aucun calcul effectue stp tu peu le tester chez toi et voir ce qui ne va pas car moi meme je ne comprend plus rien stp stp!!!!

spoophy · Answer

fais ce que je vien de te demandé  apres entre  x=0.1 tada sa marche

spoophy · Answer

program lab3;
uses crt;
var x,W:real;
    i:integer;
const Pi=3.14;
begin
clrscr;
writeln('___________________________________');
WRITELN('');
writeln(' Made By KALLA CHRISTIAN KM-805 ');
writeln(' Email: negrissim@yahoo.fr ');
writeln('');
writeln ('Input x');
readln (x);
W:=( (x*x*pi-x) * (exp(x+1)*1.1*0.001))/(pi+x);

if (x>=1) then
W:=ln(x)+3*sqr(x+sqr(x+pi))
else
begin
W:=sin((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(abs(x)))))))/cos((sin(3*sqr(abs(x*ln(abs(x))))))/(cos(3*sqr(abs(x*ln(abs(x)))))));
writeln('Resultat of the Equation it''s : =',W);
end;
readln(i);
end. 

fais un copier coller de ce que je vien de te donné entre un x et tu verra fait le bien le copier ne rate pas une virgule et arréte de le modifier

Utilisateur anonyme · Answer

mais si j'ai x>=1 ya rien ki se passe pourkoi stp???

spoophy · Answer

program lab3;
uses crt;
var x,W:real;
    i:integer;
const Pi=3.14;
begin
clrscr;
writeln('___________________________________');
WRITELN('');
writeln(' Made By KALLA CHRISTIAN KM-805 ');
writeln(' Email: negrissim@yahoo.fr ');
writeln('');
writeln ('Input x');
readln (x);

if (x>0) then
  begin
W:=ln(x)+3*sqr(x+sqr(x+pi));
 writeln('Resultat of the Equation it''s : =',W);
 end;
 if (x<0) then
 begin
W:=sin((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(abs(x)))))))/cos((sin(3*sqr(abs(x*ln(abs(x))))))/(cos(3*sqr(abs(x*ln(abs(x)))))));
 writeln('Resultat of the Equation it''s : =',W);
 end;
if (x=0) then writeln('pas de solution ');
readln(i);
end. 

voila testé et aprouvé marche pour toute les valeurs la condition se situe au point 0 et non au poiont 1 et il ya 3 resultats possible voila

Utilisateur anonyme · Answer

merci beacoup pb resolu!!!
que DIEU te protege

spoophy · Answer

met status resolu olala pas de quoi l'ami

Utilisateur anonyme · Answer

stp c'est pas vraiment resolue car :
pour W:=ln(x)+3*sqr(x+sqr(x+pi));  si x>=1

          w=W:=sin((sin(3*sqrt(abs(x*ln(abs(x))))))/
(cos(3*sqrt(abs(x*ln(abs(x)))))))/cos((sin(3*sqr(abs(x*ln(abs(x))))))/
(cos(3*sqr(abs(x*ln(abs(x)))))));   si -1<=x<1

   et  W= W:=((x*x*pi-x)(exp(x+1)*1.1*10^-3)/pi+x) si x<-1

stp essaye un peu cela stp stp !!!

spoophy · Answer

voila l'ami attention le x=0 ne peu etre fait qu'avec la 3 eme condition vus que c'est pas dans l'énoncé j'ai mis impossible program lab3; uses crt; var x,W:real; i:integer; const Pi=3.14; begin clrscr; writeln('___________________________________'); WRITELN(''); writeln(' Made By KALLA CHRISTIAN KM-805 '); writeln(' Email: negrissim@yahoo.fr '); writeln(''); writeln ('Input x'); readln (x); if (x>=1) then begin W:=ln(x)+3*sqr(x+sqr(x+pi)); writeln('Resultat of the Equation it''s : =',W); end; if (x<1)and(x>0) then begin W:=sin((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(abs(x)))))))/cos((sin(3*sqr(abs(x*ln(abs(x))))))/(cos(3*sqr(abs(x*ln(abs(x))))))); writeln('Resultat of the Equation it''s : =',W); end; if (x<-1)and(x>0) then begin W:=sin((sin(3*sqrt(abs(x*ln(abs(x))))))/(cos(3*sqrt(abs(x*ln(abs(x)))))))/cos((sin(3*sqr(abs(x*ln(abs(x))))))/(cos(3*sqr(abs(x*ln(abs(x))))))); writeln('Resultat of the Equation it''s : =',W); end; if (x<-1) then begin W:=((x*x*pi-x)*(exp(x+1)*1.1*0.001)/(pi+x)); writeln('Resultat of the Equation it''s : =',W); end; if (x=0) then writeln('impossible'); readln(i); end.

Utilisateur anonyme · Answer

merci mon pote puuis je t'ajouter comme ami????

spoophy · Answer

mais bien sur tanque tu pose que des questions intelligente on ais amis

spoophy · Answer

nagrissim tu peu marqué le sujet comme etant resolu

Utilisateur anonyme · Answer

bonsoir a  tous s'il vous plait je compile ce code et tous se passe bien mais il n'effectuer pas de calcul merci de voir ce ki ne va pas avec et de le corriger.

                                                                                                                 merci d'avance


Program Lab6; 
uses crt;
var i,j:integer;
      st_x1,st_x2,f,s,x, sv: real;
begin clrscr;
writeln ('---------------------------------------');
WRITELN ('');
writeln ('      LABORATORIE ¹ 6, VARIANTE 12     '); 
writeln ('           OPERATOR FOR-TO-DO          ');
writeln ('MADE BY KALLA CHRISTIAN GILLES -KM-805 ');
writeln ('     CONTROLE BY ASSISTANTE: YAKUMU    ');
WRITELN (‘’);
writeln ('---------------------------------------');
WRITELN (‘’);
writeln ('ENTER Õ (for this exemple, x=0,85):');
readln (x);
S:=0;
for i:=1 to 12 do
   begin
     F:=1; st_x1:=1; sv:=0;
     for j:=3 to 13 do
        begin
           F:=F*i;
           St_x2:=st_x1; st_x1:=st_x1*x;
           if Odd(i) then
             Sv:=sv-sqrt(st_x1+pi) *sin (st_x2)/(j+1)*F +exp(st_x2)
         else
              Sv:=sv+sqrt(st_x1+pi) *sin (st_x2)/(j+1)*F +exp( st_x2)
          end;
            s:=s+sv;
            writeln ('FIST SOMME SV= ', sv);
            writeln ('SECOND SOMME S=',i,'=',s);
   end;
writeln ('SECOND SOMME S= ',s);
writeln ('-----------------------------------------------');
writeln ('THE OPERATION WAS MAKED.');
writeln ('TO GO OUT OF SYSTEM PRESS THE KEY ENTER.');
writeln ('-----------------------------------------------');
end.

spoophy · Answer

Program Lab6;
uses crt;
var i,j,y:integer;
st_x1,st_x2,f,s,x, sv: real;
begin clrscr;
writeln ('---------------------------------------');
WRITELN ('');
writeln (' LABORATORIE  6, VARIANTE 12 ');
writeln (' OPERATOR FOR-TO-DO ');
writeln ('MADE BY KALLA CHRISTIAN GILLES -KM-805 ');
writeln (' CONTROLE BY ASSISTANTE: YAKUMU ');
WRITELN ();
writeln ('---------------------------------------');
WRITELN ();
writeln ('ENTER Õ (for this exemple, x=0,85):');
readln (x);
S:=0;
for i:=1 to 12 do
begin
F:=1; st_x1:=1; sv:=0;
for j:=3 to 13 do
begin
F:=F*i;
St_x2:=st_x1; st_x1:=st_x1*x;
if Odd(i) then
Sv:=sv-sqrt(st_x1+pi) *sin (st_x2)/(j+1)*F +exp(st_x2)
else
Sv:=sv+sqrt(st_x1+pi) *sin (st_x2)/(j+1)*F +exp( st_x2)
end;
s:=s+sv;
writeln ('FIST SOMME SV= ', sv);
writeln ('SECOND SOMME S=',i,'=',s);
end;
writeln ('SECOND SOMME S= ',s);
writeln ('-----------------------------------------------');
writeln ('THE OPERATION WAS MAKED.');
writeln ('TO GO OUT OF SYSTEM PRESS THE KEY ENTER.');
writeln ('-----------------------------------------------');
readln(y);
end. 

voila j'ai corrigé le prob mais pour vérifier les resultats esque tu peu mettre l'énonces de ton exercice cela m'aiderai aussi pour améliorer la lisibilité du programme

Utilisateur anonyme · Answer

ok voila l'enonce de l'exo: 

  
                                                               _______
                        { x-  ^V |sin V|x|                :   x<=-1;         
                                                    {
                                               B={  sin ln^2|x^3+1|             :      -1<=x<0;
                                                    {      _________
                                                    {4^Vx+e^x Vx+1   +pi        :   x>=0;

utiliser les  sttructures  :  IF-THEN-GOTO,  WHILE,  REPEAT-UNTIL. pour ecrire le program en laguage pascal dont trois programmes

Utilisateur anonyme · Answer

voila l'enonce ci dessus y'a eu une eurreur d'affichage.:



      [ x- racine troisieme de (|sin *racine carre de(|x|)|) : x<=-1;  
     [ 
B=[sin ln^2|x^3+1| : -1<=x<0; 
     [  
     [racine quatrieme de((x+e^x )*(racine carre de(x+1)) +pi :      x>=0;    


{bien regarder les parentheses pour savoir ou s'arrete les racines...}

spoophy · Answer

ya un petit probléme dans ton programme c'est que tu n'a utilisé aucune des conditions que tu ma montrer il est a refaire en entier 
PS: désolé de repondre apres si longtant petit probléme avec mon fourniseur d'internet "se sont des cons "

Utilisateur anonyme · Answer

stp on le fais ensemmble?

spoophy · Answer

oui pas de probléme je le commence aujourd'hui

Utilisateur anonyme · Answer

BONNE ANNEE et merci pour tous tous mes voeux de bonheur a toi

spoophy · Answer

merci baucoup a toi aussi

Compilation Pascal

31 réponses

Discussions similaires