<html>
<head>
<title> carnet d'adresses </title>
<script language ='javascript'> function
ajout()
{
np=document.f1.znp.value;
adr= document.f1.znp.value;
var taille =
document.f1.carnet.options.length;
var nouveau = true;
if (taille !=0)
{for (i=0; i<taille; i++)
{elt= document.f1.carnet.options[i].text;
if(elt==np)
{nouveau = false;
alert('contact deja existence');
break;}}}
if (nouveau)
{nelt = new option(np,adr);
document.f1.carnet.option[taille]=nelt;}}
//*****************
function sup()
{selt=
document.f1.carnet.options.selectedindex;
if(sel ==-1)
alert("veuillez selectionner un element SVP");
else
{document.f1.carnet.option[sel]=null;}}
//*******************
function adr()
{sel=
document.f1.carnet.opions.selectedindex;
if(sel==-1)
alert ("selection un ellemnt bras omkom");
else {np=document.f1.carnet.options.[sel].text;
adr=document.f1.carnet.options[sel].value
alert("ladresse mail de"+np+"est: "+adr);
}}
</script></head>
<body>
<div align="center">
<font face="arial" color="#3333ff" size="4">carnet d'adress</font>
</div>
<form name="f1">
Nome et prenom: <input name="znp" type="text"><br>
Adress E-mail: <input name='zadr" type="text">
<table>
<tr>
<td>
<input type="button" onclick="ajout()" value="ajouter">
</td>
<td><input type="button"
onclick="sup()" value="supprimer">
</td>
<td><input type="button"
onlick="adr()" value="retrouver adresse Mail"></td>
</tr></table>
<select name="carnet" size="5">
</select>
</form></body>
</html>
<head>
<title> carnet d'adresses </title>
<script language ='javascript'> function
ajout()
{
np=document.f1.znp.value;
adr= document.f1.znp.value;
var taille =
document.f1.carnet.options.length;
var nouveau = true;
if (taille !=0)
{for (i=0; i<taille; i++)
{elt= document.f1.carnet.options[i].text;
if(elt==np)
{nouveau = false;
alert('contact deja existence');
break;}}}
if (nouveau)
{nelt = new option(np,adr);
document.f1.carnet.option[taille]=nelt;}}
//*****************
function sup()
{selt=
document.f1.carnet.options.selectedindex;
if(sel ==-1)
alert("veuillez selectionner un element SVP");
else
{document.f1.carnet.option[sel]=null;}}
//*******************
function adr()
{sel=
document.f1.carnet.opions.selectedindex;
if(sel==-1)
alert ("selection un ellemnt bras omkom");
else {np=document.f1.carnet.options.[sel].text;
adr=document.f1.carnet.options[sel].value
alert("ladresse mail de"+np+"est: "+adr);
}}
</script></head>
<body>
<div align="center">
<font face="arial" color="#3333ff" size="4">carnet d'adress</font>
</div>
<form name="f1">
Nome et prenom: <input name="znp" type="text"><br>
Adress E-mail: <input name='zadr" type="text">
<table>
<tr>
<td>
<input type="button" onclick="ajout()" value="ajouter">
</td>
<td><input type="button"
onclick="sup()" value="supprimer">
</td>
<td><input type="button"
onlick="adr()" value="retrouver adresse Mail"></td>
</tr></table>
<select name="carnet" size="5">
</select>
</form></body>
</html>
<html>
<head>
<title>boutton chekbox</title>
<script language="javascript">
function reponse()
{
if((document.f4.check1.checked)==false && (document.f4.check2.checked)==true && (document.f4.check3.checked)==fals &&(document.f4.check4.checked)==true)
{ alert("c'ent bonne reponse!");}
else
{alert("désolé,continuer a chercher");}
}
</script>
</head>
<body>
<h3>Quels sont les nombres premiers parmi ces 4 nombre</h3>
<form name="f4">
<input type="checkbox" name="check1" value="1" >209<br>
<input type="checkbox" name="check2" value="2" >223<br>
<input type="checkbox" name="check3" value="3" >517<br>
<input type="checkbox" name="check4" value="4" >647<br>
<input type="button" name="but" value="réponse" onclick="reponse()">
</form></body>
</html>
<head>
<title>boutton chekbox</title>
<script language="javascript">
function reponse()
{
if((document.f4.check1.checked)==false && (document.f4.check2.checked)==true && (document.f4.check3.checked)==fals &&(document.f4.check4.checked)==true)
{ alert("c'ent bonne reponse!");}
else
{alert("désolé,continuer a chercher");}
}
</script>
</head>
<body>
<h3>Quels sont les nombres premiers parmi ces 4 nombre</h3>
<form name="f4">
<input type="checkbox" name="check1" value="1" >209<br>
<input type="checkbox" name="check2" value="2" >223<br>
<input type="checkbox" name="check3" value="3" >517<br>
<input type="checkbox" name="check4" value="4" >647<br>
<input type="button" name="but" value="réponse" onclick="reponse()">
</form></body>
</html>
<html>
<head>
<title>bouton radio</title>
<script language="javascript">
function choisir()
{
if(document.f3.choix[0].checked)
{ alert("il ya:"+document.f3.choix[0].value+"solution");}
if(document.f3.choix[1].checked)
{alert("il ya:"+document.f3.choix[1].value+"solution");}
if(document.f3.choix[2].checked)
{alert("il ya:"+document.f3.choix[2].value+"solution");}
}
</script>
</head>
<body>
<h3>le signe du disciminant d'une équation de scond degree</h3>
<form name="f3">
<input type='radio' name='choix' value="2" >stritement positif<br>
<input type='radio' name='choix' value="1" >null<br>
<input type='radio' name='choix' value="0" >stritement negative<br>
<input type="button" name="but" value="le nombre de solutions reelles" onclick="choisir()">
</form></body>
</html>
<head>
<title>bouton radio</title>
<script language="javascript">
function choisir()
{
if(document.f3.choix[0].checked)
{ alert("il ya:"+document.f3.choix[0].value+"solution");}
if(document.f3.choix[1].checked)
{alert("il ya:"+document.f3.choix[1].value+"solution");}
if(document.f3.choix[2].checked)
{alert("il ya:"+document.f3.choix[2].value+"solution");}
}
</script>
</head>
<body>
<h3>le signe du disciminant d'une équation de scond degree</h3>
<form name="f3">
<input type='radio' name='choix' value="2" >stritement positif<br>
<input type='radio' name='choix' value="1" >null<br>
<input type='radio' name='choix' value="0" >stritement negative<br>
<input type="button" name="but" value="le nombre de solutions reelles" onclick="choisir()">
</form></body>
</html>
<html>
<head>
<title>zone de texte</title>
<script language="javascript">
function afficher()
{
var n=document.f2.nombre1.value;
document.f2.resultat.value=n*n;
}
</script>
</head>
<body>
<form name="f2">
l'entier donné:
<input type="text" name="nombre1" value=""
<br><br>
<input type="button" name="button" value="calculer le carré" OnClick="afficher()">
<br><br>
l'enier résultat:
<input type="text" name="resultat" value="">
</form></body>
</html>
<head>
<title>zone de texte</title>
<script language="javascript">
function afficher()
{
var n=document.f2.nombre1.value;
document.f2.resultat.value=n*n;
}
</script>
</head>
<body>
<form name="f2">
l'entier donné:
<input type="text" name="nombre1" value=""
<br><br>
<input type="button" name="button" value="calculer le carré" OnClick="afficher()">
<br><br>
l'enier résultat:
<input type="text" name="resultat" value="">
</form></body>
</html>
program ex;
uses wincrt;
type tab=array [1..10] of integer;
var
t:tab;
i,n,j,p,aux:integer;
procedure shell (var t:tab ; n,p:integer);
var i,j,aux:integer;
begin
if p>1 then
begin
p:= p div 3 ;
for i:=p+1 to n do
begin
aux := t[i];
j:=i;
while (j>p) and (t[j-p] > aux ) do
begin
t[j]:=t[j-p];
j:=j-p;
end;
t[j]:= aux;
end;
shell(t,n,p)
end;
end;
procedure affich (t:tab ; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
writeln('t[',i,'] ',t[i]);
end;
end;
procedure rem (var t:tab ; var n:integer ) ;
var i:integer ;
begin
write ('n'); read(n);
for i:=1 to n do
begin
write('t[',i,']');read(t[i]);
end;
end;
begin
rem(t,n);
p:=1;
while p<n do
begin
p:=p*3+1;
end;
shell(t,n,p);
affich(t,n);
end.
uses wincrt;
type tab=array [1..10] of integer;
var
t:tab;
i,n,j,p,aux:integer;
procedure shell (var t:tab ; n,p:integer);
var i,j,aux:integer;
begin
if p>1 then
begin
p:= p div 3 ;
for i:=p+1 to n do
begin
aux := t[i];
j:=i;
while (j>p) and (t[j-p] > aux ) do
begin
t[j]:=t[j-p];
j:=j-p;
end;
t[j]:= aux;
end;
shell(t,n,p)
end;
end;
procedure affich (t:tab ; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
writeln('t[',i,'] ',t[i]);
end;
end;
procedure rem (var t:tab ; var n:integer ) ;
var i:integer ;
begin
write ('n'); read(n);
for i:=1 to n do
begin
write('t[',i,']');read(t[i]);
end;
end;
begin
rem(t,n);
p:=1;
while p<n do
begin
p:=p*3+1;
end;
shell(t,n,p);
affich(t,n);
end.
program application_Tri;
uses wincrt ;
Type
TAB = array[1..100] of integer;
Var
T:TAB;
N,p:integer;
{========== CORPS DE LA PROCEDURE DE TAILLE ===========}
{ UN PEU DE RECURSIVITE POUR LA SAISIE DE N PAS MAL }
procedure taille(Var N: integer);
Begin
read(N);
if NOT (N in [1..100]) then
taille(N);
End;
{========== CORPS DE LA PROCEDURE REMPLISSAGE ===========}
procedure remplissage( var T:TAB ; N:integer) ;
Begin
if (N=1) then readln(T[1])
else
Begin
readln(T[N]);
remplissage(T,N-1);
End;
End;
{========== CORPS DE LA PROCEDURE DE TRI ===========}
procedure shell_itr(var t:tab;n:integer);
var
i,j,p,tmp:integer;
begin
p:=1;
while(p<n)do
p:=3*p+1;
while (p>1) do
begin
p:=p div 3;
for i:= p+1 to n do
begin
tmp:=t[i];
j:=i;
while((j>p) and (tmp<t[j-p])) do
begin
t[j]:=t[j-p];
j:=j-p;
end;
t[j]:=tmp;
end;
end;
end;
{========== CORPS DE LA PROCEDURE AFFICHAGE ===========}
procedure affichage( T:TAB ; N:integer);
var
i:integer;
Begin
for i:=1 to N do
write(T[i],' | ');
End;
{========== CORPS DE PROGRAMME PRINCIPAL ===========}
Begin
write('quelle est la taille de votre tableau ? .........: ');
taille(N);
writeln('commencer à remplir le tableau :');
remplissage(T,N);
{clrscr; }
writeln('Contenu du tableau AVANT le TRI ');
affichage(T,N);
p:=0;
while (p<=N) do
p:=3*P+1;
shell_itr(t,n);
writeln;
writeln('Contenu du tableau APRES le TRI ');
affichage(T,N);
End.
uses wincrt ;
Type
TAB = array[1..100] of integer;
Var
T:TAB;
N,p:integer;
{========== CORPS DE LA PROCEDURE DE TAILLE ===========}
{ UN PEU DE RECURSIVITE POUR LA SAISIE DE N PAS MAL }
procedure taille(Var N: integer);
Begin
read(N);
if NOT (N in [1..100]) then
taille(N);
End;
{========== CORPS DE LA PROCEDURE REMPLISSAGE ===========}
procedure remplissage( var T:TAB ; N:integer) ;
Begin
if (N=1) then readln(T[1])
else
Begin
readln(T[N]);
remplissage(T,N-1);
End;
End;
{========== CORPS DE LA PROCEDURE DE TRI ===========}
procedure shell_itr(var t:tab;n:integer);
var
i,j,p,tmp:integer;
begin
p:=1;
while(p<n)do
p:=3*p+1;
while (p>1) do
begin
p:=p div 3;
for i:= p+1 to n do
begin
tmp:=t[i];
j:=i;
while((j>p) and (tmp<t[j-p])) do
begin
t[j]:=t[j-p];
j:=j-p;
end;
t[j]:=tmp;
end;
end;
end;
{========== CORPS DE LA PROCEDURE AFFICHAGE ===========}
procedure affichage( T:TAB ; N:integer);
var
i:integer;
Begin
for i:=1 to N do
write(T[i],' | ');
End;
{========== CORPS DE PROGRAMME PRINCIPAL ===========}
Begin
write('quelle est la taille de votre tableau ? .........: ');
taille(N);
writeln('commencer à remplir le tableau :');
remplissage(T,N);
{clrscr; }
writeln('Contenu du tableau AVANT le TRI ');
affichage(T,N);
p:=0;
while (p<=N) do
p:=3*P+1;
shell_itr(t,n);
writeln;
writeln('Contenu du tableau APRES le TRI ');
affichage(T,N);
End.