TesteALGO1.pdf


Aperçu du fichier PDF testealgo1.pdf

Page 1 2 3 4 5 6




Aperçu texte


writeln(' Le périmètre du rectangle est ' ,(lar+lan)*2);
writeln(' pour une largeur de valeur ', lar, ' et une langeur de valeur ', lan);
end.

program exo2;
uses wincrt;
var s,i,n,valeur:integer;
function carre(val:integer):integer;
begin
carre:=val*val;
end;
begin
writeln(' Lisez moi la taille des valeurs entières');
read(n);
while (n<=0) do
begin
writeln(' Lisez moi la taille des valeurs entières');
read(n);
end;
s:=0;
for i:= 1 to n do
begin
writeln(' Valeur',i,'=');
read(valeur);
s:=s+carre(valeur);
end;
writeln(' La somme des ',n,' valeurs aux carrées est',s);
end.

4