Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 exercice

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
pascal68360
Nouveau
Nouveau


Nombre de messages : 1
Date d'inscription : 17/10/2009

MessageSujet: exercice   Sam 17 Oct - 16:45

Bonjour,


Voilà les exo qui me pose des soucie:


1) Ecrivez un programme Pascal qui affiche l'ensemble des
nombres entiers entre 1 et 10000 dont la somme des chiffres est
divisible par 7.


exemples:

123: 1+2+3=6>>pas bon

142: 1+4+2=7>>bon


2) Soit un vecteur V de n entiers; n est une constante. Je désire trouver le plus petit des entiers du vecteur V.


-Ecrivez le programme Pascal corespondant.



Si quelqu'un pourrait m'aider pour ces 2 programmes en Pascal ça m'aiderai beaucoup parceque je m'arrache vraiment les cheveux!!!


Merci d'avance.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
snooper
Nouveau
Nouveau


Nombre de messages : 1
Date d'inscription : 06/12/2009

MessageSujet: Re: exercice   Dim 6 Déc - 15:32

Je doit dire qu'ils sont vraiment defficilles
Bon si je trouves les solution je te les postes
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
rool
Nouveau
Nouveau


Nombre de messages : 1
Date d'inscription : 30/12/2009

MessageSujet: Re: exercice   Mer 30 Déc - 20:04

1) 1ere programme

var i,j,k,l,m:integer;
c:string[5];
begin
for i:=1 to 10000 do
begin
str(i,c) ;
m:=0;
for j:=1 to length(c) do
begin
val(c[j],k,l);
m:=m+k;
end;
k:=m mod 7 ;
if k=0 then
begin
writeln(i);
end;
end;
readln;readln
end.

2) 2eme programme

const n=10
var v:arrray[1..n] of integer;
i,j,min:integer;
begin
for i:= 1 to n do
begin
write('la ',i,'eme :');readln(v[i]);
end;
min:=v[1];
for i:=2 to n do
if min>v[i] then
min:=v[i];
writeln('le plus petit entieres de victeur V est : ' )
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: exercice   

Revenir en haut Aller en bas
 
exercice
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Exercice : faire une barre de scrolling
» Petit exercice autout du GRID
» Exercice d'arpèges et d'accords sur Coldplay
» exercice: logiciel de dessin (+ zoom)
» Exercice MG accordéon accompagnement Boléro

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: