Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 exo pascal

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 pascal   Mar 25 Déc - 22:49

bon voila les exo
calculre la moyenne des 2 matier
g deja fais une petite demo
mais il me manque un control sur les notes par ce ke la note doit >=0et <=20
la voila
Code:
[b]program tp1;
uses crt;
var
nom_stagiaire:string;
noteinf,notegest,moyenne:real;
reponse:char;
begin
clrscr ;
repeat
write('nom stagiaire:');
readln(nom_stagiaire);
write('note informatique:');
readln(noteinf);
write('note de gestion:');
readln(notegest);
(*calculer_la_moyenne_generale*);
moyenne:=(noteinf+notegest)/2;
writeln('moyenne generale de:',nom_stagiaire,':',moyenne:7:2);[/b]
[b]write('continuer o or n:');
repeat
readln(reponse);
if((reponse <> 'o') and (reponse <> 'n')) then
begin
write ('taper o or n:');
end;
until((upcase(reponse)='O') or (upcase(reponse)='N'));
clrscr;
until(upcase(reponse)='N');[/b]
[b]end.[/b]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://s.sousou123@hotmail.com
manianis
V.I.P
V.I.P
avatar

Nombre de messages : 471
Age : 106
Date d'inscription : 19/03/2007

MessageSujet: Re: exo pascal   Mar 25 Déc - 23:49

Merci pour l'exercice. Pourquoi avez-vous posté l'exercice avec sa solution ?

Vous aurez dû poster uniquement l'énoncé et donner un laps de temps aux membres de forum pour s'y exercer et pour enrichir vos connaissance par leurs contributions.

Excellent, votre solution semble bonne.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://manianis.sitesled.com/
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: exo pascal   Mer 26 Déc - 16:53

j'ai fai qq modéfication sur ton code sanaa

Code:
[b]program tp1;
uses crt;
 var
  nom_stagiaire:string;
  noteinf,notegest,moyenne:real;
  rep:char;


begin
clrscr ;
  repeat
    write('nom stagiaire: ');(* si on utilise write - et non writeLN - il faut faire une espace à la fin du phrase pour bien presenter notre travail*)
    readln(nom_stagiaire);
  repeat
    write('note informatique: ');
    readln(noteinf);
    until (noteinf in [0..20]);
    repeat
    write('note de gestion: ');
    readln(notegest);
  until (notegest in [0..20]);
    (*calculer_la_moyenne_generale*);
    moyenne:=(noteinf+notegest)/2;
    writeln('moyenne generale de:',nom_stagiaire,': ',moyenne:7:2);[/b]
[b]    write('continuer o or n:');
    writeln('voulez vous contunier?');
    readln(rep);
    rep:= upcase(rep);
while not(rep in ['N'..'O']) do
                begin
                    write ('taper o or n:');
    readln(rep);
    rep:=upcase(rep);
                end;
    clrscr;
  until(upcase(reponse)='N');[/b]
[b]end.[/b]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sanaa
Nouveau
Nouveau


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

MessageSujet: Re: exo pascal   Mer 26 Déc - 18:30

g un question
chno tat3ni hadik et
7ite matandirohache
c pour se la g poser cette qest
et meci pour l information
c tres gentil de ta par
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://s.sousou123@hotmail.com
pseudo
Nouveau
Nouveau


Nombre de messages : 3
Date d'inscription : 02/12/2007

MessageSujet: Re: exo pascal   Jeu 27 Déc - 17:29

vous pouvez ecrire la sequence d'instruction sous la forlme >?

repeat
write('note informatique: ');
readln(noteinf);
until (noteinf in [0..20]);


ou bien

repeat
write('note informatique: ');
readln(noteinf);
until (noteinf >=0) et (noteinf<=20);
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: exo pascal   

Revenir en haut Aller en bas
 
exo pascal
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» L,ARBITRE PASCAL LARUE 10....ST-CYRILLE 4
» ? Presentation de ma chaine Pascal Clus
» Peindre les rails avec Rusty
» Bonjour à toutes et à tous
» Arrondir un réel à deux chiffres après la virgule

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