SWAG Pascal

Edito

Bienvenue dans les archives SWAG !

Depuis des lustres, le SourceWare Archive Group (SWAG) collationne des milliers de codes sources et d'exemples de programmes Pascal du monde entier.
Bien que pas mal d'entre eux datent de l'époque de MS-DOS et ne sont plus guère applicables sous nos systèmes d'exploitation protégés d'aujourd'hui, beaucoup d'exemples présentent des techniques inaltérables qui peuvent aider le programmeur actuel.

Le nouveau projet http://sourceforge.net/projects/xswag/ a vu le jour sur SourceForge. Son but est de compléter les SWAG originales par des sources qui concernent tous les systèmes actuels. Vous pouvez vous aussi participer à l'enrichissement des sources de XSWAG en faisant profiter tout le monde de vos sources, de vos trouvailles, de vos astuces.

L'équipe Pascal de Developpez.com s'efforce de traduire en français un maximum d'explications et de commentaires. Si vous voulez participer à ce monumental travail, vous êtes cordialement invité(e) à prendre contact avec l'équipe via l'adresse e-mail en bas de page.

Nous vous souhaitons un parcours fructueux des SWAG. N'oubliez pas qu'un moteur de recherche intégré est à votre disposition !

Statistiques

Nombre d'auteurs : 33
Nombre de questions : 50
Dernière mise à jour : 08/11/2009

Sommaire

'); } else { $lefiltre{$position-1} = 'O'; return('

'); } } echo(' Ouvrir

Tout développer Ouvrir

Tout réduire

'); echo('      '.plusmoins(1,$filtre).'  1. '."Tous systèmes".' (0)
');if ($filtre{1-1}=='O'){echo('              '.plusmoins(2,$filtre).'  1.1. '."Langage".' (0)
');if ($filtre{2-1}=='O'){}echo('              '.plusmoins(3,$filtre).'  1.2. '."Maths".' (0)
');if ($filtre{3-1}=='O'){}echo('              '.plusmoins(4,$filtre).'  1.3. '."Tris".' (0)
');if ($filtre{4-1}=='O'){}echo('              '.plusmoins(5,$filtre).'  1.4. '."Chaînes".' (0)
');if ($filtre{5-1}=='O'){}}echo('      '.plusmoins(6,$filtre).'  2. '."DOS".' (50)
');if ($filtre{6-1}=='O'){echo('              '.plusmoins(7,$filtre).'  2.1. '."Console".' (50)
');if ($filtre{7-1}=='O'){echo('                      '.plusmoins(8,$filtre).'  2.1.1. '."Contrôle et output ANSI".' (50)
');if ($filtre{8-1}=='O'){echo('                                '."Procédure Display_ANSI".'
');echo('                                '."Unité ANSI".'
');echo('                                '."Programme AnsiWrite".'
');echo('                                '."Affichage direct ANSI".'
');echo('                                '."Unité AnsiOut".'
');echo('                                '."Sortie ANSI avec l'interruption 29h".'
');echo('                                '."Clone ANSI de l'unité Crt".'
');echo('                                '."Détecter si ANSI.SYS est installé".'
');echo('                                '."Lecture dans une image TheDraw".'
');echo('                                '."Affichage d'images TheDraw".'
');echo('                                '."Comment importer et afficher un fichier TheDraw ?".'
');echo('                                '."Comment utiliser TheDraw ?".'
');echo('                                '."Displaying TheDraw images".'
');echo('                                '."Display TheDraw BIN file".'
');echo('                                '."Ansi Screens".'
');echo('                                '."Detect if ANSI.SYS is present".'
');echo('                                '."Program SHOWANSI.PAS".'
');echo('                                '."Combine ANSI Screens".'
');echo('                                '."ANSI Music".'
');echo('                                '."ANSI Bulletin files".'
');echo('                                '."ANSI in a window".'
');echo('                                '."Detect ANSI.SYS".'
');echo('                                '."ANSI string scrolling".'
');echo('                                '."ANSI Driver".'
');echo('                                '."ANSI save screen".'
');echo('                                '."Direct ANSI write".'
');echo('                                '."ANSI screen dump".'
');echo('                                '."ANSI color strings".'
');echo('                                '."Full ANSI output unit".'
');echo('                                '."Complete ANSI output unit".'
');echo('                                '."Fast ANSI display unit".'
');echo('                                '."ANSI file dump".'
');echo('                                '."Pascal ANSI engine".'
');echo('                                '."Full ANSI unit".'
');echo('                                '."Use LVI color on BBS".'
');echo('                                '."ANSI save to file".'
');echo('                                '."ANSI BIOS write".'
');echo('                                '."ANSI color setting".'
');echo('                                '."ANSI in Turbo Vision".'
');echo('                                '."ANSI viewer".'
');echo('                                '."ANSI screen bounce".'
');echo('                                '."Local ANSI detect".'
');echo('                                '."ANSI unit".'
');echo('                                '."An ANSI viewer for Sauce".'
');echo('                                '."ANSI file scroller".'
');echo('                                '."Object-oriented ANSI unit".'
');echo('                                '."Display ANSI files fast".'
');echo('                                '."ANSI Input/Output".'
');echo('                                '."The fastest CD-Audio unit".'
');echo('                                '."Display ANSI char set".'
');}}echo('              '.plusmoins(9,$filtre).'  2.2. '."Fichiers et flux".' (0)
');if ($filtre{9-1}=='O'){}echo('              '.plusmoins(10,$filtre).'  2.3. '."Graphismes".' (0)
');if ($filtre{10-1}=='O'){}echo('              '.plusmoins(11,$filtre).'  2.4. '."Mémoire".' (0)
');if ($filtre{11-1}=='O'){}echo('              '.plusmoins(12,$filtre).'  2.5. '."Réseau".' (0)
');if ($filtre{12-1}=='O'){}echo('              '.plusmoins(13,$filtre).'  2.6. '."Périphériques".' (0)
');if ($filtre{13-1}=='O'){}echo('              '.plusmoins(14,$filtre).'  2.7. '."Son".' (0)
');if ($filtre{14-1}=='O'){}echo('              '.plusmoins(15,$filtre).'  2.8. '."Date & heure".' (0)
');if ($filtre{15-1}=='O'){}}echo('      '.plusmoins(16,$filtre).'  3. '."Linux".' (0)
');if ($filtre{16-1}=='O'){echo('              '.plusmoins(17,$filtre).'  3.1. '."Console".' (0)
');if ($filtre{17-1}=='O'){}echo('              '.plusmoins(18,$filtre).'  3.2. '."Fichiers et flux".' (0)
');if ($filtre{18-1}=='O'){}echo('              '.plusmoins(19,$filtre).'  3.3. '."Graphismes".' (0)
');if ($filtre{19-1}=='O'){}echo('              '.plusmoins(20,$filtre).'  3.4. '."Mémoire".' (0)
');if ($filtre{20-1}=='O'){}echo('              '.plusmoins(21,$filtre).'  3.5. '."Réseau".' (0)
');if ($filtre{21-1}=='O'){}echo('              '.plusmoins(22,$filtre).'  3.6. '."Périphériques".' (0)
');if ($filtre{22-1}=='O'){}echo('              '.plusmoins(23,$filtre).'  3.7. '."Son".' (0)
');if ($filtre{23-1}=='O'){}echo('              '.plusmoins(24,$filtre).'  3.8. '."Date & heure".' (0)
');if ($filtre{24-1}=='O'){}}echo('      '.plusmoins(25,$filtre).'  4. '."MacOS".' (0)
');if ($filtre{25-1}=='O'){echo('              '.plusmoins(26,$filtre).'  4.1. '."Console".' (0)
');if ($filtre{26-1}=='O'){}echo('              '.plusmoins(27,$filtre).'  4.2. '."Fichiers et flux".' (0)
');if ($filtre{27-1}=='O'){}echo('              '.plusmoins(28,$filtre).'  4.3. '."Graphismes".' (0)
');if ($filtre{28-1}=='O'){}echo('              '.plusmoins(29,$filtre).'  4.4. '."Mémoire".' (0)
');if ($filtre{29-1}=='O'){}echo('              '.plusmoins(30,$filtre).'  4.5. '."Réseau".' (0)
');if ($filtre{30-1}=='O'){}echo('              '.plusmoins(31,$filtre).'  4.6. '."Périphériques".' (0)
');if ($filtre{31-1}=='O'){}echo('              '.plusmoins(32,$filtre).'  4.7. '."Son".' (0)
');if ($filtre{32-1}=='O'){}echo('              '.plusmoins(33,$filtre).'  4.8. '."Date & heure".' (0)
');if ($filtre{33-1}=='O'){}}echo('      '.plusmoins(34,$filtre).'  5. '."OS/2".' (0)
');if ($filtre{34-1}=='O'){echo('              '.plusmoins(35,$filtre).'  5.1. '."Console".' (0)
');if ($filtre{35-1}=='O'){}echo('              '.plusmoins(36,$filtre).'  5.2. '."Fichiers et flux".' (0)
');if ($filtre{36-1}=='O'){}echo('              '.plusmoins(37,$filtre).'  5.3. '."Graphismes".' (0)
');if ($filtre{37-1}=='O'){}echo('              '.plusmoins(38,$filtre).'  5.4. '."Mémoire".' (0)
');if ($filtre{38-1}=='O'){}echo('              '.plusmoins(39,$filtre).'  5.5. '."Réseau".' (0)
');if ($filtre{39-1}=='O'){}echo('              '.plusmoins(40,$filtre).'  5.6. '."Périphériques".' (0)
');if ($filtre{40-1}=='O'){}echo('              '.plusmoins(41,$filtre).'  5.7. '."Son".' (0)
');if ($filtre{41-1}=='O'){}echo('              '.plusmoins(42,$filtre).'  5.8. '."Date & heure".' (0)
');if ($filtre{42-1}=='O'){}}echo('      '.plusmoins(43,$filtre).'  6. '."Windows".' (0)
');if ($filtre{43-1}=='O'){echo('              '.plusmoins(44,$filtre).'  6.1. '."Console".' (0)
');if ($filtre{44-1}=='O'){}echo('              '.plusmoins(45,$filtre).'  6.2. '."Fichiers et flux".' (0)
');if ($filtre{45-1}=='O'){}echo('              '.plusmoins(46,$filtre).'  6.3. '."Graphismes".' (0)
');if ($filtre{46-1}=='O'){}echo('              '.plusmoins(47,$filtre).'  6.4. '."Mémoire".' (0)
');if ($filtre{47-1}=='O'){}echo('              '.plusmoins(48,$filtre).'  6.5. '."Réseau".' (0)
');if ($filtre{48-1}=='O'){}echo('              '.plusmoins(49,$filtre).'  6.6. '."Périphériques".' (0)
');if ($filtre{49-1}=='O'){}echo('              '.plusmoins(50,$filtre).'  6.7. '."Son".' (0)
');if ($filtre{50-1}=='O'){}echo('              '.plusmoins(51,$filtre).'  6.8. '."Date & heure".' (0)
');if ($filtre{51-1}=='O'){}}echo('      '.plusmoins(52,$filtre).'  7. '."Autres systèmes".' (0)
');if ($filtre{52-1}=='O'){echo('              '.plusmoins(53,$filtre).'  7.1. '."Console".' (0)
');if ($filtre{53-1}=='O'){}echo('              '.plusmoins(54,$filtre).'  7.2. '."Fichiers et flux".' (0)
');if ($filtre{54-1}=='O'){}echo('              '.plusmoins(55,$filtre).'  7.3. '."Graphismes".' (0)
');if ($filtre{55-1}=='O'){}echo('              '.plusmoins(56,$filtre).'  7.4. '."Mémoire".' (0)
');if ($filtre{56-1}=='O'){}echo('              '.plusmoins(57,$filtre).'  7.5. '."Réseau".' (0)
');if ($filtre{57-1}=='O'){}echo('              '.plusmoins(58,$filtre).'  7.6. '."Périphériques".' (0)
');if ($filtre{58-1}=='O'){}echo('              '.plusmoins(59,$filtre).'  7.7. '."Son".' (0)
');if ($filtre{59-1}=='O'){}echo('              '.plusmoins(60,$filtre).'  7.8. '."Date & heure".' (0)
');if ($filtre{60-1}=='O'){}}?>

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2010 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.