Compilation Pascal

Résolu/Fermé

Utilisateur anonyme - 25 déc. 2008 à 14:17
spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 - 31 déc. 2008 à 18:54

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.

A voir également:

Compilation Pascal
Turbo pascal download - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Compilation pdf - Guide
Dev-pascal - Télécharger - Édition & Programmation
Breach compilation - Guide

31 réponses

Réponse 1 / 31

Utilisateur anonyme
25 déc. 2008 à 17:25

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(abs(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.

Réponse 2 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 19:49

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

Réponse 3 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 14:42

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
25 déc. 2008 à 16:04

merci mais sa ne fontionne pas tjrs (lors de la compilation pascal indique un erreur " invalid qualifier "
svp aidez moi a le resoudre....

Réponse 4 / 31

Utilisateur anonyme
25 déc. 2008 à 16:07

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 "

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

Posez votre question

Réponse 5 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 16:15

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

amie_ccm
25 déc. 2008 à 16:53

la fonction pow n'existe plus dans turbo pascal
10^-3 est equivalente à 1/(10*10*10) en pascal
alors en obtient:
W:=(x*x*(pi-x)*exp(x+1)*1.1*(1/10*10*10))/(pi+x)
bonne continuation:)

Réponse 6 / 31

Utilisateur anonyme
25 déc. 2008 à 16:44

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

Réponse 7 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 17:00

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

Réponse 8 / 31

Utilisateur anonyme
25 déc. 2008 à 17:04

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

comment faire stp????

Réponse 9 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 17:15

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

Réponse 10 / 31

Utilisateur anonyme
25 déc. 2008 à 17:32

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 "

Réponse 11 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 17:35

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);

Réponse 12 / 31

Utilisateur anonyme
25 déc. 2008 à 17:40

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!!!!

Réponse 13 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 17:41

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

Réponse 14 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 17:53

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

Réponse 15 / 31

Utilisateur anonyme
25 déc. 2008 à 17:53

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

Réponse 16 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 18:23

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

Réponse 17 / 31

Utilisateur anonyme
25 déc. 2008 à 18:42

merci beacoup pb resolu!!!
que DIEU te protege

Réponse 18 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 18:45

met status resolu olala pas de quoi l'ami

Réponse 19 / 31

Utilisateur anonyme
25 déc. 2008 à 18:51

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 !!!

Réponse 20 / 31

spoophy Messages postés 354 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 19 août 2009 41
25 déc. 2008 à 19:17

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.

Discussions similaires

Erreur de compilation dans le module caché

A quoi sert uses crt dans le programme PASCAL

visionneuse photo ne peut ouvrir cette image

exercices corrigées en pascal

Bibliothèque introuvable

Discussions similaires

Newsletters