Equations sous dev pascal
Fermé
AdR
-
11 janv. 2009 à 11:38
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 20 janv. 2009 à 14:58
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 20 janv. 2009 à 14:58
A voir également:
- Equations sous dev pascal
- Telecharger dev c++ - Télécharger - Langages
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Bta no dev - Forum Audio
5 réponses
william7007
Messages postés
335
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
23 mars 2010
46
11 janv. 2009 à 12:57
11 janv. 2009 à 12:57
Bonjour
je m'excuse si je m'éloigne de ton domaine mais il se fait que moi je ne connais pas le Pascal et je fais avec le java donc tu peux essaie de traduire ton programme toi même sinon voilà ce que j'ai trouvé en Java
et tu as comme solution
bonne chance et à plus
je m'excuse si je m'éloigne de ton domaine mais il se fait que moi je ne connais pas le Pascal et je fais avec le java donc tu peux essaie de traduire ton programme toi même sinon voilà ce que j'ai trouvé en Java
import java.math.*;
public class NombreMagique {
public void afficheNombre(){
int a;
int b;
int som, dif;
boolean ver = true;
while(ver){
a = (int)((Math.random())*10000);
b = (int)((Math.random())*10000);
som = a + b;
dif = (a < b)?(b - a):(a - b);
if((som == 2005) && (dif == 1105 )){
ver = false;
System.out.println("a = "+a+"\nb = "+b+"\nSomme = "+som+"\nDifference = "+dif);
}
}
}
}
et tu as comme solution
a = 450 b = 1555 Somme = 2005 Difference = 1105
bonne chance et à plus
Merci de ton temps dévoué à mon problème mais le problème c'est que c'est bel et bien en dev pascal que je dois le résoudre :S
Le Java ce sera pour plus tard xD
Le Java ce sera pour plus tard xD
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
16 janv. 2009 à 09:59
16 janv. 2009 à 09:59
J'ai réécris en Pascal le programme de william7007 cependant l'utilisation des random me parait mal choisi (peut-être est-ce dû à des différence entre Pascal et Java) et c'est pourquoi je propose un autre programme mais avec des boucles...
program NombreMagique;
var a,b,som,dif:integer; ver:boolean;
begin
ver:=true;
randomize;
while ver do
begin
a:=random(10000);
b:=random(10000);
som:=a+b;
dif:=abs(b-a);
if (som=2005) and (dif=1105) then begin
ver:=false;
writeln('a = ',a);
writeln('b = ',a);
writeln('Somme = ',som);
writeln('Difference = ',dif);
end;
end;
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.Et :program NombreMagique;
var a,b,som,dif:integer;
begin
for a:=1 to 10000 do
for b:=a to 10000 do
begin
som:=a+b;
dif:=b-a;
if (som=2004) and (dif-1=1105) then begin
writeln('a = ',a);
writeln('b = ',b);
writeln('Somme = ',som);
writeln('Difference = ',dif);
writeln;
end;
end;
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
william7007
Messages postés
335
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
23 mars 2010
46
16 janv. 2009 à 14:27
16 janv. 2009 à 14:27
Ok je voie c'est cool ce que tu as fait.
je cris qu'ici avec les boucles tu auras une répetition du genre
il affiche
c = a + b;
et encore
c = b + a;
si je ne me trompe pas biensure.
je cris qu'ici avec les boucles tu auras une répetition du genre
il affiche
c = a + b;
et encore
c = b + a;
si je ne me trompe pas biensure.
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
20 janv. 2009 à 14:58
20 janv. 2009 à 14:58
En fait non parce que la boucle a commence à partir de b, du coup on aura toujours a<=b...