TesteALGO1 .pdf



Nom original: TesteALGO1.pdfAuteur: user

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 31/05/2017 à 19:32, depuis l'adresse IP 105.103.x.x. La présente page de téléchargement du fichier a été vue 498 fois.
Taille du document: 150 Ko (6 pages).
Confidentialité: fichier public


Aperçu du document


Republique Algerienne Et Berbérine, Populaire Et Démocratique
Wilaya De Bejaia
Enseignante Et Auteure : Choubane Faiza
Correction Des Testes Sur ALGO1
Groupe D3 D1 C4 D6

Groupe D3
program exo1;
uses wincrt;
var val:real;
begin
writeln(' Lisez Moi La Valeur De Val');
read(val);
if(val<0) then
writeln(' Erreur la racine carré d''une valeur n''accepte pas de valeurs négatives')
else
writeln(' La racine carrée de ',val:2:2, ' est ',sqrt(val):2:2);
end.
**********************************************************************************
program exo2;
uses wincrt;
var a,choix:integer;
begin
writeln('Lisez moi la valeur entière');
read(a);
writeln(' Lisez moi la valeur de choix');
read(choix);
case(choix) of

1

1:writeln('Le double de',a,'est',a*2);
2:writeln('Le triple de',a,'est',a*3);
3:writeln('Le carrée de',a,'est',a*a)
else
writeln('Le choix est inéxistant');
end;
end.

2

******************************************************************************

Groupe D1
program exo1;
uses wincrt;
var a,b:real;
begin
writeln('Lisez moi A et B');
read(a,b);
if(a=0) then
writeln(' c''est la division sur 0 ')
else
writeln(' X= ',-b,'/',a,'=',-b/a:2:2);
end.
program exo2;
uses wincrt;
var cote1:real;
function surface(cote:real):real;
begin
surface:=cote*cote;
end;
begin

writeln(' Lisez moi la côte du carré');
read(cote1);
while(cote1<=0) do
begin
writeln(' Relisez moi côte du carré');
read(cote1);
end;

3

writeln(' La surface du carré est',surface(cote1),'pour une côte de valeur ', cote1:2:2);
end.
**********************************************************************************

Groupe C4
program exo1;
uses wincrt;
var lar, lan: real;
begin
writeln('Lisez moi la largeur et la langueur du peérimètre du rectangle');
read(lar, lan);
while( lar <=0) do
begin
writeln(' Relisez moi la largeur du rectangle ');
read(lar);
end;
while( lan <=0) do
begin
writeln(' Relisez moi la longeur du rectangle ');
read(lan);
end;

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

Groupe D6

program exo1;
uses wincrt;
var n,f,i:integer;
begin
writeln(' Lisez moi une valeur de n');
read(n);
while(n<0) do
begin
writeln(' Relisez moi la valeur de n');
read(n);
end;
if (n=0) then
writeln(' Le factorielle de 0 est 1')
else
begin
f:=1;
for i:=1 to n do
f:=f*i;
writeln(' La factorielle de ', n, 'est ',f);
end;
end.

5

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.

6


TesteALGO1.pdf - page 1/6
 
TesteALGO1.pdf - page 2/6
TesteALGO1.pdf - page 3/6
TesteALGO1.pdf - page 4/6
TesteALGO1.pdf - page 5/6
TesteALGO1.pdf - page 6/6
 




Télécharger le fichier (PDF)


TesteALGO1.pdf (PDF, 150 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


testealgo1
groupe a6
tp3correction
corrige exercices
cours7 imp
tp4

Sur le même sujet..