Exercice de programmation en Pascal
Fermé
Blougoubou
Messages postés
4
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
23 novembre 2008
-
23 nov. 2008 à 18:38
nesrine23 Messages postés 15 Date d'inscription vendredi 18 avril 2008 Statut Membre Dernière intervention 10 décembre 2008 - 10 déc. 2008 à 18:56
nesrine23 Messages postés 15 Date d'inscription vendredi 18 avril 2008 Statut Membre Dernière intervention 10 décembre 2008 - 10 déc. 2008 à 18:56
A voir également:
- Clrscr pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Clrscr - Forum C
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
- Uses crt pascal - Forum Pascal
2 réponses
exercice 3
program le_plus_grand_nombre;
uses crt;
var nb,cpt,grd:real;
rep:char;
begin
repeat
clrscr;
write('Entrer le nombre n° 1:');
readln(nb);
cpt:=2;grd:=nb;
while cpt<=20 do
begin
write('Entrer le nombre n° ',cpt,':');
readln(nb);
if nb>grd then
grd:=nb;
cpt:=cpt+1;
end;
writeln('Le plus grand nombre est:',grd);
write('vouler vous continuer (O/N)?:');
readln(rep);
until (rep='n') or(rep='N');
end.
program le_plus_grand_nombre;
uses crt;
var nb,cpt,grd:real;
rep:char;
begin
repeat
clrscr;
write('Entrer le nombre n° 1:');
readln(nb);
cpt:=2;grd:=nb;
while cpt<=20 do
begin
write('Entrer le nombre n° ',cpt,':');
readln(nb);
if nb>grd then
grd:=nb;
cpt:=cpt+1;
end;
writeln('Le plus grand nombre est:',grd);
write('vouler vous continuer (O/N)?:');
readln(rep);
until (rep='n') or(rep='N');
end.
nesrine23
Messages postés
15
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
10 décembre 2008
3
10 déc. 2008 à 18:56
10 déc. 2008 à 18:56
program Zorglub;
Uses CRT;
Var Age: integer;
Sexe: char;
Begin
clrscr;
writeln('Quelle est votre sexe? Entrer "h" ou "H" pour homme et "f" ou "F" pour femme');
readln(Sexe);
writeln('Quelle est votre Age?');
readln(Age);
if ((Sexe='h') or (Sexe='H')) and (Age >20) then writeln('Vous etes imposable')
else if ((Sexe='f') or (Sexe='F')) and ((Age >=18) or (Age <=25)) then writeln('Vous etes imposable')
else writeln('Vous n''etes pas imposable');
readln;
end.
Uses CRT;
Var Age: integer;
Sexe: char;
Begin
clrscr;
writeln('Quelle est votre sexe? Entrer "h" ou "H" pour homme et "f" ou "F" pour femme');
readln(Sexe);
writeln('Quelle est votre Age?');
readln(Age);
if ((Sexe='h') or (Sexe='H')) and (Age >20) then writeln('Vous etes imposable')
else if ((Sexe='f') or (Sexe='F')) and ((Age >=18) or (Age <=25)) then writeln('Vous etes imposable')
else writeln('Vous n''etes pas imposable');
readln;
end.