Groupe A6 .pdf


Nom original: Groupe A6.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:40, depuis l'adresse IP 105.103.x.x. La présente page de téléchargement du fichier a été vue 185 fois.
Taille du document: 132 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 A6, Niveau : 1ère Année MI

Programme1 :
program comparaisons;
uses wincrt;
var a, b:integer;
begin
writeln(' Lisez moi les valeurs de a et b');
read(a,b);
if(a>b)then
writeln(a,'>',b)
else
if(a<b)then
writeln(a, '<',b)
else
writeln( a,'=',b);
end.

Programme2 :
program rectangle;
uses wincrt;
1

var L1,L2:real;
begin
writeln(' Lisez moi la largeur et la langueur du rectangle');
read(L1,L2);
while(L1<=0)do
begin
writeln(' Relisez moi la largeur du rectangle');
read(L1);
end;
while(L2<=0)do
begin
writeln(' Relisez moi la langueur du rectangle');
read(L2);
end;

writeln(' La Surface du rectangle est ',(L1*L2):2:2);
writeln(' Le périmètre du rectangle est ',(L1+L2)*2:2:2);
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 A6.pdf - page 1/2
Groupe A6.pdf - page 2/2

Documents similaires


groupe a6
tp7
tp7
correctiontp6
tp3correction
testealgo1


Sur le même sujet..