rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[Turbo Pascal] Solution d'un exercice

Posté par butterfly66, le vendredi 19 octobre 2007 à 23:49:28
Bonjour,
Je cherche la solution du preoblème suivant en Pascal:


1- Ecrire une unité qui contient:
a- déclaration d'un tableau à n éléments (1<n<50) entiers.
b- procédure qui lit le tableau.
c- fonction qui retourne l'indice du tableau, du plus grand élément à partir d'une position donée (de k) à l aposition n (1<k<n).
d- procédure qui affiche les éléments du tableau.

2- Ecrire un programme en Turbo Pascal qui fait apple aux procédures et fonctions de l'unité pour ordonner un tableau au sens décroissant.


Merci d'avance, j'ai galéré avec cet exercice..
Configuration: Windows XP
Internet Explorer 6.0
Répondre à butterfly66  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
question, le mercredi 7 novembre 2007 à 03:41:06
Bonjour,
vous etes etudiant(e) a la fac d'el jadida ?????
   
Répondre à question

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
butterfly66, le mardi 13 novembre 2007 à 18:48:32
oui, je suis étudiant à l'UCD
   
Répondre à butterfly66

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
ahmedo, le jeudi 27 mars 2008 à 21:18:02
ecrire une analyse et en deduir un algorithme intitulé neg qui transfere les elements positifs et les elements negatif d un tableau t dans deux tableaux tp et tn
   
Répondre à ahmedo

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amine, le mardi 13 mai 2008 à 22:47:16
Bonjour,
Je cherche la solution du preoblème suivant en Pascal
   
Répondre à amine

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 mounk, le mercredi 14 mai 2008 à 02:37:13
slt amine...
si c'est le probleme en pascal concernant l'unité sur le tableau, voici une unité qui pourra t'aider....
pour la taille du tableau, je me suis arreté a 10, a toi d'augmenter juska 50 ou plus si tu veux.


unit U_Tableau;

Interface


type indice = cardinal;

type tableau = array [ 1 .. 10 ] of cardinal ;


// Lecture du tableau
procedure lireTableau ( out t : tableau ) ;

// Affichage des elements du tableau
procedure afficherTableau ( const t : tableau ) ;


// Retourne l'indice du plus grand element du tableau
// à partir de l'indice k jusqu'a taille du tableau
function indice_du_max ( t : tableau; k : indice ) : indice;



Implementation


// Lecture du tableau
procedure lireTableau ( out t : tableau ) ;
var i : cardinal;
begin
for i := low(t) to high(t) do begin
readln(t[i]);
end;
end;


// Affichage des elements du tableau
procedure afficherTableau ( const t : tableau ) ;
var i : cardinal ;
begin
for i := low(t) to high(t) do begin
write(t[i],' ') ;
end;
writeln;
end;


// Retourne l'indice du plus grand element du tableau
// à partir de l'indice k jusqu'a taille du tableau
function indice_du_max ( t : tableau; k : indice ) : indice;
var ind,i : cardinal;
begin
ind := k;
for i := succ(k) to high(t) do begin
if t[i] > t[ind] then begin
ind := i;
end;
end;
indice_du_max := ind;
end;



End.



et si tu veux tester l'unité, utilise ce bout de code.....
il fait aussi le rangement dans l'ordre decroissant.


program teste_U_Tableau;

uses crt,U_Tableau;


// Procedure qui echange les valeurs de 2 elements
procedure echanger ( var x,y : cardinal );
var z : cardinal;
begin
z := x;
x := y;
y := z;
end;



var tab : tableau;
var i,k,a,b : cardinal;

begin
clrscr;


lireTableau(tab);
writeln('******************');
afficherTableau(tab);
writeln('*************************************');
// Je met juste a partir de l'indice 7 du tableau pour tester
// tu peux changer l'indice, à condition de ne pas depasser ton indice
// max de ton tableau.
writeln('Indice du Max du Tableau = ',indice_du_max(tab,7));


a := low(tab);
b := high(tab);
for k := a to (b-1) do
begin
i := indice_du_max(tab,k);
echanger(tab[k],tab[i]);
end;

writeln('*************************************');
afficherTableau(tab);


end.


en esperant ke ca puisse t'aider....
bon courage.
   
Répondre à mounk
Posez votre question Répondre
Discussions pertinentes trouvées dans le forum
01/11 22h32Exercice Turbo Pascal14
04/07 21h29Bibliotheque CRT pour turbo pascal 71
13/05 11h03Turbo pascal7
30/03 14h04Turbo pascal20
Plus de discussions sur « [Turbo Pascal] Solution d'un exercice »
Logiciels pertinents trouvés dans les téléchargements
Télécharger PrévisiOOo 19 Février 2007PrévisiOOo - PrévisiOOo est un logiciel pour faire des prévisionnels. Un budget prévisionnel bien conçu n’a rien d’un laborieux exercice...Catégorie: Comptabilité/Paie
Licence: Freeware/gratuit
Télécharger OCS Inventory 1.01OCS Inventory - *Connaissez-vous tous les périphériques connectés à votre réseau informatique ? Savez-vous quel logiciel ou composant...Catégorie: Gestion de parc
Licence: Freeware/gratuit
Télécharger Workrave 1.8.4Workrave - Workrave vous veut du bien: Si vous travaillez à longueur de journée sur ordinateur, ce logiciel vous incite à effectuer des...Catégorie: Organisation
Licence: Open Source
Télécharger Orbit 2.7.2Orbit - Orbit Downloader est un gestionnaire de téléchargement permettant de télécharger facilement et à haut débit du contenu rich...Catégorie: Téléchargement
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [Turbo Pascal] Solution d'un exercice »