Equations sous dev pascal
Fermé
AdR
-
11 janv. 2009 à 11:38
KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 - 20 janv. 2009 à 14:58
KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 - 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
- Massgrave dev - Accueil - Windows
- Dev home. - Télécharger - Développement
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
16752
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
31 août 2024
3 019
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
16752
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
31 août 2024
3 019
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...