Compilation Pascal

Résolu

Utilisateur anonyme -
spoophy Messages postés 355 Date d'inscription Statut Membre Dernière intervention - 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.

Afficher la suite

A voir également:

Compilation Pascal
Turbo pascal - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Dev pascal - Télécharger - Édition & Programmation
Breach compilation c'est quoi - Guide
Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal

31 réponses

Réponse 1 / 31

Utilisateur anonyme

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 355 Date d'inscription Statut Membre Dernière intervention 41

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

Réponse 3 / 31

spoophy Messages postés 355 Date d'inscription Statut Membre Dernière intervention 41

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

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

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 355 Date d'inscription Statut Membre Dernière intervention 41

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

amie_ccm

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

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 355 Date d'inscription Statut Membre Dernière intervention 41

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

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 355 Date d'inscription Statut Membre Dernière intervention 41

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

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 355 Date d'inscription Statut Membre Dernière intervention 41

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

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 355 Date d'inscription Statut Membre Dernière intervention 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 355 Date d'inscription Statut Membre Dernière intervention 41

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

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

Réponse 16 / 31

spoophy Messages postés 355 Date d'inscription Statut Membre Dernière intervention 41

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

merci beacoup pb resolu!!!
que DIEU te protege

Réponse 18 / 31

spoophy Messages postés 355 Date d'inscription Statut Membre Dernière intervention 41

met status resolu olala pas de quoi l'ami

Réponse 19 / 31

Utilisateur anonyme

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 355 Date d'inscription Statut Membre Dernière intervention 41

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

A quoi sert uses crt dans le programme PASCAL

Comment voir l’épisode 11 de la saison 1 Pascal le grand frère avec Maud ?

Pascal

Bibliothèque introuvable

puissance en pascal

Votre réponse

Discussions similaires