Aide programme pascal a resoudre
Fermé
punisher338
Messages postés
2
Date d'inscription
samedi 1 août 2009
Statut
Membre
Dernière intervention
11 août 2009
-
1 août 2009 à 19:54
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 13 août 2009 à 01:01
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 13 août 2009 à 01:01
A voir également:
- Aide programme pascal a resoudre
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Turbo pascal download - Télécharger - Édition & Programmation
- Frequence programme national ✓ - Forum Messagerie
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
3 réponses
tintin0684
Messages postés
214
Date d'inscription
jeudi 13 septembre 2007
Statut
Membre
Dernière intervention
23 octobre 2016
16
1 août 2009 à 20:08
1 août 2009 à 20:08
punisher338
Messages postés
2
Date d'inscription
samedi 1 août 2009
Statut
Membre
Dernière intervention
11 août 2009
11 août 2009 à 18:16
11 août 2009 à 18:16
program parfait;
uses wincrt;
var
begin
writeln('enter un entier m');
readln(m);
writeln('entrer un entier n');
readln(n);
repeat
writeln ('entrer un entier p');
readln(p);
until (p˂m) and (n˂p);
somme:=0;
for i:=1 to ( p div 2 ) do
if p mod 2 = 0 then somme:=somme+i;
if p=somme then writeln('l''entier est parfait ');
else writeln('l''entier est parfait');
end.
ou ol existe une autre solution pour affichier tous les entiers parfaits
on procede de la maniere suivante
begin
writeln('entrer un entier m');
readln(m);
writeln('entrer un entier n');
readln(n);
for i:=m to n do
somme:=0;
for j:= 1 to ( i div 2) do
if i mod j = 0 then somme:=somme+j;
if i=somme then writeln(i,' ');
end.
uses wincrt;
var
begin
writeln('enter un entier m');
readln(m);
writeln('entrer un entier n');
readln(n);
repeat
writeln ('entrer un entier p');
readln(p);
until (p˂m) and (n˂p);
somme:=0;
for i:=1 to ( p div 2 ) do
if p mod 2 = 0 then somme:=somme+i;
if p=somme then writeln('l''entier est parfait ');
else writeln('l''entier est parfait');
end.
ou ol existe une autre solution pour affichier tous les entiers parfaits
on procede de la maniere suivante
begin
writeln('entrer un entier m');
readln(m);
writeln('entrer un entier n');
readln(n);
for i:=m to n do
somme:=0;
for j:= 1 to ( i div 2) do
if i mod j = 0 then somme:=somme+j;
if i=somme then writeln(i,' ');
end.
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
13 août 2009 à 01:01
13 août 2009 à 01:01
Salut,
Il est très important de décomposer ton code en fonctions et procédures si tu veux arriver à quelque chose de facilement corrigible et donc d'arriver plus facilement à un programme correct.
Il est très important de décomposer ton code en fonctions et procédures si tu veux arriver à quelque chose de facilement corrigible et donc d'arriver plus facilement à un programme correct.
program punisher338;
function EstParfait(n:integer):boolean;
var i,s:integer;
begin
s:=0;
for i:=1 to (n div 2) do
if (n mod i)=0 then s:=s+i;
result:= (n=s);
end;
procedure AfficherNbParfait(min,max:integer);
var i:integer;
begin
for i:=min to max do
if EstParfait(i) then writeln(i);
end;
var a,b:integer;
begin
writeln('Affichage des nombres premiers compris entre a et b.');
writeln;
write('a = '); readln(a);
write('b = '); readln(b);
writeln;
AfficherNbParfait(a,b);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.