Turbo Pascal problème de compilation
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
bonsoir a tous svp aidez moi a trouver q'u'est ce qui ne va pas avec ce programme svp l'enoce est:
y=1/x*x ecrire le prog en pascal je le compile il ne fonction pas svp aidez moi ...
program ck7up;
var x,y:real;
begin
writeln('enter');
readln(x);
if x<>0 then
writeln ('Equation have solution Y=',y:2);
else
writeln ('Equation Don't have solution Y=error');
readln;
end.
--
ck-7up.inc +380638653721 negrissim@hotmail.com
" nul ne peu ce qu'il veut mais veut ce qu'il ne peu "
y=1/x*x ecrire le prog en pascal je le compile il ne fonction pas svp aidez moi ...
program ck7up;
var x,y:real;
begin
writeln('enter');
readln(x);
if x<>0 then
writeln ('Equation have solution Y=',y:2);
else
writeln ('Equation Don't have solution Y=error');
readln;
end.
--
ck-7up.inc +380638653721 negrissim@hotmail.com
" nul ne peu ce qu'il veut mais veut ce qu'il ne peu "
Configuration: Windows XP Internet Explorer 7.0
7 réponses
-
salut,
l'erreur c que l'instruction avant le else ne se termine pas par point virgule (;)
alors il faut la supprimer ;
cdlt -
essaie en introduisant y.
comme ceci:
program ck7up;
var x,y:real;
begin
writeln('enter');
readln(x);
if x<>0 then
y=1/(x*x);
writeln ('Equation have solution Y=',y);
else
writeln ('Equation Don't have solution Y=error');
readln;
end. -
salut t'a raison informaticienne j'ai pas vu, MAIS t'a oubliée le begin end
essaye avec ce code,var x,y:real; begin write('enter value of x:'); readln(x); if x<>y then begin y:=1/x*x; writeln('equation have solution y=',y:2:2); end else writeln('ERROR;equation have not solution '); end.-
- bonsoir amie_ccm voila mon second soucie stp ki ke se soit aimez moi a ecrire le program en pascal car je nais plus de cheveux sur la tete a forcee de l'ecrire et de l'effacer aide moi svp!!!!1
exo1: En utilisant la structure if...then...else
------ ______
{ x- ^3V|sin V|x|| ; x <= -1
{
B= { sin ln^2 |x^3+1| ; -1<= x < 0
{ _________
{^4V x+e^x V x+1 +pi ; x >= 0
exo2:En utilisant la structure REPEAT-UNTIL et IF-THEN-GOTO et WHILE
-------
x^i+1 ln(i+x)
somme de i=1 jusqu'a l'infinie de (-1)^i+1. ----------------
(i+1)! + e^i+x
exo3 REPEAT-UNTIL et IF-THEN-GOTO et WHILE
------
___
V i+pi sin(ix)
somme de j=3 jusqu'a 13.somme de i=1 jusqu'a 12 (-1)^i .-------------------
(j+1)! + e^ix
voila exercices svp aidez moi a les resoudre pour ceux qui ne comprennent pas ce que j'ai ecris ajoutez moi a votre msn ou yahoo! messenger pour que je puisse vous envoyer le doc en fichier .doc ou .jpeg svp j'en ai tres besoin c'est tre tres tres !!! urgent . (negrissim@yahoo.fr ou negrissim@hotmail.com)
merci d'avace et bonne soiree a tous
-
-
ERREUR DE FRAPPE!!!!! bonsoir amie_ccm voila mon second soucie stp ki ke se soit aimez moi a ecrire le program en pascal car je nais plus de cheveux sur la tete a forcee de l'ecrire et de l'effacer aide moi svp!!!!1 exo1: En utilisant la structure if...then...else ------ <code> ______ <code> { x- ^3V|sin V|x|| ; x <= -1 { B= { sin ln^2 |x^3+1| ; -1<= x < 0 { _________ {^4V x+e^x V x+1 +pi ; x >= 0
exo2:En utilisant la structure REPEAT-UNTIL et IF-THEN-GOTO et WHILE
-------
somme de i=1 jusqu'a l'infinie de (-1)^i+1. x^i+1 ln(i+x) / (i+1)! + e^i+x
exo3 REPEAT-UNTIL et IF-THEN-GOTO et WHILE
------
___
somme de j=3 jusqu'a 13.somme de i=1 jusqu'a 12 (-1)^i . V i+pi sin(ix) / (j+1)! + e^ix
voila exercices svp aidez moi a les resoudre pour ceux qui ne comprennent pas ce que j'ai ecris ajoutez moi a votre msn ou yahoo! messenger pour que je puisse vous envoyer le doc en fichier .doc ou .jpeg svp j'en ai tres besoin c'est tre tres tres !!! urgent . (negrissim@yahoo.fr ou negrissim@hotmail.com)
merci d'avace et bonne soiree a tous </code>
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
voila le lien pour les exo au format jpeg merci encore pour tous!!! >>>> http://www.siteduzero.com/forum-83-352591-turbo-pascal-urgent-sos.html
-
ok je vais te poster mes essai mais tu sais comment poster des fichier jpeg ou .DOC , .TXT sur le forum?
-
voila j'ai ecris ceci et je n'arrive pas a le compiller aidez moi svp:
Òåêñò ïðîãðàìè íà Ïàñêàë³
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('___________________________________');
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.
