Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 exo sur pascal pour 2m1

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


Nombre de messages : 6
Age : 29
Date d'inscription : 14/12/2007

MessageSujet: exo sur pascal pour 2m1   Jeu 27 Déc - 23:54

slt mes amies
g un probleme
g deje bdite f 1 exo mais ma9dartche nkamlo
svp aidée moi bache nkamlo
les donee
on a deux tableaus
tableau note et nom
les quest
1-saisie non stagaire saisie de sa note
2-affichage du classement/ordre de merite
3-exit
hadchi li khassna ndiroh
bon voila un petit program lidarto
et j veux que vous m aidée pour le terminer
program notes;
uses crt;
const
n=4;
var
note : array[1..n] of real;
nom:array[1..n]of string;
compt,i,j:integer;
choix:char;
aux:real;
aux1:string;
begin
clrscr;
(*________affichage du menu_____*)
repeat
gotoxy(10,1); write('menu:');
gotoxy(10,2); write('1- saisie nom et sa note:');
gotoxy(10,3); write('2-affichage du classement:');
gotoxy(10,4); write('3-exit:');
gotoxy(10,5);write('tapez vote choix:');
(*_______fin affichage du menu_____*)
(*_______remplissage des tableaux___*)
note[j] := note[1];
readln(choix);
compt:=11;
case(choix)of
'1':for i:=1 to n do
begin
gotoxy(12,compt); write(' nom:_________________note');
compt:=compt+1;
gotoxy(12,compt); readln( nom[i],_______________',readln(note[i]);
end;
(*_______fin remplissage des tableaux____*)
(*_______affichage & tri des tableaux_________*)

'2':for i:=1 to n-1 do
for j:=i+1 to n do
begin
if (note[i] > note[j]) then
begin
aux:=note[j];
note[j]:=note[i];
note[i]:=aux;
aux1:=nom[1];
nom[1]:=nom[i];
nom[i]:=aux1;
end;
end;
end;
compt:=9;
for i:=1 to n do
begin
compt:=compt+1;
gotoxy(10,compt); write('nom:',nom[i] ,note[i]:8:2);
end;
until ((choix) = '3');
end.

rahe 3ndi prob 3ire f l affichage
et merci bzaf
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://s.sousou123@hotmail.com
 
exo sur pascal pour 2m1
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie
» hébergeur gratuit pour un site rein quand flash(RESOLUT)
» Affiches comment être et faire pour apprendre

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