Scribd
Importer
3 vues2 pages

Menu de calculs sur les nombres

Ce programme en Pascal propose un menu pour effectuer des opérations sur des nombres, incluant la somme et le comptage des nombres positifs et négatifs. L'utilisateur peut choisir l'opération souhaitée et entrer jusqu'à 10 nombres pour obtenir les résultats correspondants. Si le choix est incorrect, un message d'erreur est affiché.

Transféré par

claudebernarkloukpo
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
3 vues2 pages

Menu de calculs sur les nombres

Ce programme en Pascal propose un menu pour effectuer des opérations sur des nombres, incluant la somme et le comptage des nombres positifs et négatifs. L'utilisateur peut choisir l'opération souhaitée et entrer jusqu'à 10 nombres pour obtenir les résultats correspondants. Si le choix est incorrect, un message d'erreur est affiché.

Transféré par

claudebernarkloukpo
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Program Menu;

uses wincrt;

var i,choix,comptpos,comptneg,posi:integer;

n,neg:real;

Begin

posi:=0;

neg:=0;

comptneg:=0;

comptpos:=0;

writeln('MENU');

writeln('____');

writeln('[Link] somme des nombres positifs:');

writeln('[Link] somme des nombres négatifs:');

writeln('[Link] des nombres positifs:');

writeln('[Link] des nombres négatifs:');

writeln('Entrez votre choix:');

Readln(choix);

case choix Of

1:For i:=1 to 10 do

writeln('Entrer un nombre:');

Readln(n);

if n>0 Then

posi:=posi+n;

end;

writeln('La somme des nombres positifs est:',posi);

2:For i:=1 to 10 do

writeln('Entrer un nombre:');

readln(n);

if n<0 Then

neg:=neg+n;
end;

writeln('La somme des nombres négatifs est:',neg);

3:For i:=1 to 10 do

writeln('Entrer un nombre:');

readln(n);

if n>0 Then

comptpos:=comptpos+1;

end;

writeln('Le comptage posi est:',comptpos);

4:For i:=1 to 10 do

writeln('Entrer un nombre:');

readln(n);

if n<0 Then

comptneg:=comptneg+1;

end;

writeln('Le comptage néga est:',comptneg);

else

writeln('Choix incorrect!:');

end;

End.

Vous aimerez peut-être aussi