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:
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées.
- Ordinateur lent que faire - Guide
- Turbo pascal - Télécharger - Édition & Programmation
- Clavier de l'ordinateur - Guide
- Réinitialiser ordinateur - Guide
- Qu'est ce qui se lance au démarrage de l'ordinateur - Guide
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.