Compilation Pascal
Résolu
Utilisateur anonyme
-
spoophy Messages postés 355 Date d'inscription Statut Membre Dernière intervention -
spoophy Messages postés 355 Date d'inscription Statut Membre Dernière intervention -
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.
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 - 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
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.
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.
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
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
salut,
est_ce que je peux savoir où est le probleme?
j'ai vu que t'as ajouté le readln(y); à la fin du programmes; si tu veut voir l'affichage des resultats il suffit d'ajouter readkey; ou bien ne pas l'ajouter et cliques sur Alt+ F5 apres l'execution du pgm :)
*******W.Y.S.I.W.Y.G *******
"What Yu See Is What You Get"
est_ce que je peux savoir où est le probleme?
j'ai vu que t'as ajouté le readln(y); à la fin du programmes; si tu veut voir l'affichage des resultats il suffit d'ajouter readkey; ou bien ne pas l'ajouter et cliques sur Alt+ F5 apres l'execution du pgm :)
*******W.Y.S.I.W.Y.G *******
"What Yu See Is What You Get"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
_______
{ 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
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...}
[ 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...}
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 "
PS: désolé de repondre apres si longtant petit probléme avec mon fourniseur d'internet "se sont des cons "
