TesteALGO1.pdf


Aperçu du fichier PDF testealgo1.pdf

Page 1 2 3 4 5 6




Aperçu texte


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