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
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
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
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 à 21:57
25 déc. 2008 à 21:57
nagrissim tu peu marqué le sujet comme etant resolu
Utilisateur anonyme
28 déc. 2008 à 15:48
28 déc. 2008 à 15:48
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.
saly_inf
Messages postés
44
Date d'inscription
lundi 13 octobre 2008
Statut
Membre
Dernière intervention
29 décembre 2008
4
28 déc. 2008 à 23:02
28 déc. 2008 à 23:02
bonsoir,
pour ton programme ça marche et il m'affiche des resultats seulement je sé pas si les resultats sont justes ou non !!
cordialement
*******W.Y.S.I.W.Y.G *******
"What Yu See Is What You Get"
pour ton programme ça marche et il m'affiche des resultats seulement je sé pas si les resultats sont justes ou non !!
cordialement
*******W.Y.S.I.W.Y.G *******
"What Yu See Is What You Get"
spoophy
Messages postés
354
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
19 août 2009
41
28 déc. 2008 à 23:55
28 déc. 2008 à 23:55
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
saly_inf
Messages postés
44
Date d'inscription
lundi 13 octobre 2008
Statut
Membre
Dernière intervention
29 décembre 2008
4
29 déc. 2008 à 15:40
29 déc. 2008 à 15:40
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
Utilisateur anonyme
29 déc. 2008 à 16:47
29 déc. 2008 à 16:47
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
Utilisateur anonyme
29 déc. 2008 à 17:30
29 déc. 2008 à 17:30
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...}
spoophy
Messages postés
354
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
19 août 2009
41
31 déc. 2008 à 01:17
31 déc. 2008 à 01:17
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 "
spoophy
Messages postés
354
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
19 août 2009
41
31 déc. 2008 à 18:45
31 déc. 2008 à 18:45
oui pas de probléme je le commence aujourd'hui
Utilisateur anonyme
31 déc. 2008 à 18:49
31 déc. 2008 à 18:49
BONNE ANNEE et merci pour tous tous mes voeux de bonheur a toi
spoophy
Messages postés
354
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
19 août 2009
41
31 déc. 2008 à 18:54
31 déc. 2008 à 18:54
merci baucoup a toi aussi