A voir également:
- Turbo Pascal problème de compilation
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Turbo pascal linux ✓ - Forum Linux / Unix
- Turbo sim c'est quoi - Forum Mobile
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
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.
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,
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
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
Utilisateur anonyme
24 déc. 2008 à 16:35
24 déc. 2008 à 16:35
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
Utilisateur anonyme
24 déc. 2008 à 22:18
24 déc. 2008 à 22:18
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
Utilisateur anonyme
25 déc. 2008 à 11:17
25 déc. 2008 à 11:17
ok je vais te poster mes essai mais tu sais comment poster des fichier jpeg ou .DOC , .TXT sur le forum?
Utilisateur anonyme
25 déc. 2008 à 14:11
25 déc. 2008 à 14:11
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.
Òåêñò ïðîãðàìè íà Ïàñêàë³
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.