gon

Les Tri (Turbo pascal 1.5):

2010-02-22T16:00:00.000-08:00

Le Tri Insertion

const MAX = 100;
type tab = array [1..MAX] of integer;


Procedure TriInsertion(n : integer ; var t : tab);
var i, j, k : integer;
begin
for i:=2 to n do begin

   k := t[i]; (* k est la valeur à insérer *)
              (* dans l'endroit approprié du tableau *)

   (* On décale toutes les valeurs du tableau <>
   (* à droite pour vider une place pour k        *)
   j := i - 1;
   while (j >= 1) and (t[j] > k) do begin

       t[j + 1] := t[j];
       j := j - 1;
   end;

   (* finalement la valeur k est insérée à son emplacement adéquat *)
   t[j + 1] := k;
end;
end;

Le Tri Shell :

Procedure Tri_Shell_Rec (Var t: TAB; n,h : integer);
Var aux,i : integer;
begin
If h > 0 Then
Begin
If n > h Then
begin

Tri_Shell_Rec (t,n - h,h);
If t[n] < i =" h)"> t[i - h]);
t[i] := aux ;
End;
End;
Tri_Shell_Rec (t,n,h Div 3);
End;
End;

Utilisation des fichiers type text

2010-02-22T15:55:00.000-08:00

Sur Pascal, il est possible d'utiliser d'autres fichiers externes :

La déclaration :

var
nom_de_variable : text;

Les opérations possibles sur ce genre de fichiers sont les suivantes :

assign (f,'path');
permet de dire que le fichier f se trouve dans le "path" donné

reset(f)
Permet d'ouvrir le fichier pour la lecture

rewrite(f)
permet d'ouvrir le fichier pour l'écriture (si le fichier n'existait pas avant, un nouveau fichier est crée, si un fichier porte son nom, il est écrasé)

close(f)
permet de fermer le fichier (indipensable si on utilise rewrite(f)!!);

Enfin, pour pourvoir lire et écrire c'est simple :

readln(f,s) ça veut dire : lire depuis le fichier f la variable s

writeln(f,s) permet d'écrire dans f la varaible s!!

Impossible is nothing ( couleur avec TPW 1.5 ):

2010-02-01T09:06:00.000-08:00

: é oui la preuve en images :

Télécharger dès maintenant le fichier .txt

Télécharger dès maintenant le fichier .exe

Télécharger dès maintenant le fichier .txt

Télécharger dès maintenant le fichier .exe

COURS DE JAVASCRIPT

2010-01-26T14:18:00.000-08:00

découvrez le meilleur cours javascript sur

SLAXIGON.BLOGSPOT.COM

Exclusive pour BACinfo

Cours javascript pdf à télecharger :

Click here Click here

Turbo Pascal TPW 1.5 et TP 6 :

2010-01-26T13:24:00.000-08:00

Remarque :

les deux versions supporte les commandes graphiques.

TPW 1.5

http://www.ziddu.com/download/8337951/TPW.zip.html

TP 6

http://www.ziddu.com/download/8337949/TP.zip.html

Calcul des termes Un et Vn (suites croisées) :

2010-01-22T16:04:00.001-08:00

program suites;
uses wincrt;
var
n:byte;

function V(n:byte):word;forward ;
function U(n:byte):word;
begin
if n=0 then U:=1
else U:= 3+ U(n-1)+2 * V(n-1);
end;
function V(n:byte):word;
begin
if n=0 then V:=2
else V:= 2* U(n-1)+ 3 * V(n-1);
end;

begin
writeln('Donner n : ');
readln(n);
writeln('U ',n,' = ', U(n));
writeln('V ',n,' = ', V(n));
end.

Supprimer un élément du fichier de données grâce à un accès direct :

2010-01-22T16:02:00.000-08:00

{Ouverture et accès directe à une valeur dans un fichier de données
à fin de la supprimer. €
cas ou les valeurs ne sont pas triées}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}

var
eleve1 : f_eleve; {instance de f_eleve}
rang, p_fin : byte;

procedure ouvrir(var eleve1:f_eleve);
var
chemin : string;
begin
chemin:='c:\fich_el.dat';
assign(eleve1,chemin);
reset(eleve1);
end;

procedure saisie(var rang:byte;p_fin:byte);
begin
repeat
writeln('entrer le rang de l''élève à supprimé : (0 --> ',p_fin,')');
readln(rang);
until rang in [0..p_fin];
end;

procedure suppression(var eleve1:f_eleve;rang:byte;p_fin:byte);
var
ch : string;
begin
seek(eleve1,p_fin); {récuperation de la dernière valeur du fichier}
read(eleve1,ch);

seek(eleve1,rang); {écraser la valeur à supprimée par la dernière valeur}
write(eleve1,ch);

seek(eleve1,p_fin); {tronquer le fichier à partir de la dernière valeur}
truncate(eleve1);
end;

begin
ouvrir(eleve1);

p_fin := filesize(eleve1)-1;

saisie(rang,p_fin);

suppression(eleve1,rang,p_fin);

write('L''enregistrement n° : ',rang,' a été supprimé avec succès !');

close(eleve1);
end.

Ajout dans un fichier séquentiel :

2010-01-22T16:01:00.001-08:00

{Ouverture et ajout dans le fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;

begin

assign(eleve1,'c:\fich_el.dat');

reset(eleve1);{Ouvrir et remettre à zéro le pointeur}

{lire toutes lignes juste pour attedre la dernière }
{Ce ci nous permettra de faire l'ajout d'une valeur}

while Not(eof(eleve1)) do
begin
read(eleve1,ch);
end;

read(ch);

write(eleve1,ch);
writeln('Ajout effectué avec succès');

close(eleve1);
end.

Fichier séquentiel, Ouvrir et remettre à zéro le pointeur :

2010-01-22T16:00:00.001-08:00

{Ouverture et lecture dans un fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;
chemin : string;

begin
chemin:='c:\fich_el.dat';
assign(eleve1,chemin);

reset(eleve1);{Ouvrir et remettre à zéro le pointeur}

writeln('Contenu du fichier ',chemin);
while not(eof(eleve1)) do
begin
read(eleve1,ch);
writeln('ligne n°',filepos(eleve1),' : ',ch);
end;
close(eleve1);
end.

Fichier séquentiel, création et écriture :

2010-01-22T15:58:00.000-08:00

{création et écriture dans un fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;

begin
assign(eleve1,'c:\fich_el.dat'); {associer nom logique du fichier au nom physique}

rewrite(eleve1); {Ouvrir et écrire dans le fichier}

Readln(ch);

writeln('Le fichier a été crée ! ');

write(eleve1,ch);

close(eleve1);
end.

WELCOME

2010-01-20T12:37:00.000-08:00

Cette série d'exercices que nous vous proposons à pour but de mettre progressivement en pratique les connaissances que vous avez pu glaner lors de votre découverte du langage pascal. Les exercices proposés se basent sur le compilateur Turbo pascal 1.5