Groupe B3 .pdf


Nom original: Groupe B3.pdf
Auteur: pc

Ce document au format PDF 1.5 a été généré par Microsoft® Office Word 2007, et a été envoyé sur fichier-pdf.fr le 02/03/2018 à 19:33, depuis l'adresse IP 105.103.x.x. La présente page de téléchargement du fichier a été vue 103 fois.
Taille du document: 182 Ko (2 pages).
Confidentialité: fichier public




Télécharger le fichier (PDF)










Aperçu du document


République Algérienne démocratique et populaire
Université de Bejaia (ville berbérine)
Université A. Mira
Groupe B3 Niveau : 1ère Année MI

Programme1 :
program Test;
var x:real;
begin
writeln(' Lisez moi la valeur de X');
read(x);
if( x >0) then
writeln(x:2:2, ' est positif')
else
if( x<0) then
writeln(x:2:2, 'est n‚gatif')
else
writeln(x:2:2,' est nul');
end.

1

Programme2 :
program Somme;
var i,s,m:integer;
begin
writeln(' Lisez moi la valeur de m');
read(m);
while(m<=0) do
begin
writeln(' Relisez moi la valeur de m , m doit etre strictement
positive');
read(m);
end;
s:=0;
for i:=1 to 2* m+1 DO
begin
if (i mod 2 <>0 ) then
s:=s+i;
end;
writeln(' La somme est ',s);
end.
Choubane Faiza
Enseignante en Mathématique et en Informatique U.Mira
Formatrice en Informatique LDWAS BEJAIA
Enseignante au primaire en langue arabe (19 Février 1962)

2


Groupe B3.pdf - page 1/2
Groupe B3.pdf - page 2/2

Documents similaires


tp7
tp7
testealgo1
groupe b3
correctiontp6
groupe a6


Sur le même sujet..