Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

X-Parameters est une application inspirée de la discussion :
https://www.developpez.net/forums/d1756313/environnements-developpement/delphi/bases-donnees/debutant-aide-creation-table/

Elle a pour objet l'inscription de prix de vente d'un produit alimentaire selon plusieurs paramètres :

-L'année
-Le mois
-La zone (dépôt)

Les graphes permettent la visualisation des résultats par Zones, par mois et par années
mais aussi la sauvegarde des images sous forme BMP destinées à l'impression.

Outils:

Lazarus 1.8 RC5
Firebird 2.5.7
Flamerobin

Merci pour votre Intérêt.

Simple application pour faciliter l'usage de youtube-dl, l'outil de téléchargement de vidéos YouTube.

Programme calculant la date du dimanche de Pâques pour une année quelconque du calendrier grégorien.

MATER - Un programme simple de recherche de mat. Valentin Albillo, 1998.

MATER est un programme simple de recherche de mat, implémenté comme une commande MS-DOS. Etant donné 1° une position légale notée au format FEN, 2° la couleur qui a le trait et 3° un nombre de coups, le programme cherche un coup qui aboutit à un mat en un nombre de coups inférieur ou égal à la limite prescrite.

J'avais téléchargé il y a quelques mois le code source de ce programme, ainsi que la page de présentation au format HTM. Or je viens de constater que la page en question est devenue indisponible.
C'est pourquoi je me suis permis d'ajouter le code source et la page de présentation originale dans les sources de developpez.com.

Voir la suite

Compilateur : Borland Pascal.

Le squelette d'un petit compilateur Pascal.

Compilateur : Delphi.

Le code source complet d'un jeu librement inspiré du Tetris.
(règlement)

Un programme de gestion de bibliothèque en mode graphique : gestion des livres, suivi des prêts, fonctions de recherche.

Puissance 4 de Fabien Torre.

Version Lazarus par Roland Chastain.

Compilé avec Lazarus 1.6.2.

L'intérêt de ce programme réside, d'une part, dans l'utilisation du composant TStringGrid, qu'on a détourné de sa finalité initiale, pour en faire une grille de "Puissance 4". La propriété DefaultDrawing a été réglée à FALSE, de sorte que le dessin des cellules est intégralement effectué par la méthode Redessiner. Par ce moyen on se débarrasse du carré en pointillés qui d'ordinaire marque la cellule sélectionnée. En contrepartie, il faut dessiner même les cases vides.

Mais l'intérêt du programme réside surtout dans la partie "intelligence artificielle", et dans la mise en œuvre de l'algorithme "MinMax". < ... Voir la suite

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Soyez capable d’identifier et d’utiliser des enregistrements étendus, une forme plus moderne des enregistrements simples. Les enregistrements sont éléments très utiles dès qu’il s’agit de rassembler des données de types différents dans une même structure.
L'exemple d'application permet de créer des nombres complexes et de leur appliquer des opérations mathématiques.

Recherche et suppression de doublons sous Windows.

Par doublons on entend des fichiers identiques, même avec des noms différents (mais avec la même extension toutefois).

Le programme DEMO1.PAS recherche des doublons dans un dossier donné pour un fichier donné.
Le programme DEMO2.PAS recherche des doublons dans un dossier donné pour un ensemble de fichiers.
Le programme DEMO3.PAS recherche des doublons pour un ensemble de fichiers et les envoie à la corbeille.
Le programme DEMO4\DEMO.LPR est une application fenêtrée qui permet de rechercher les doublons pour un ensemble de fichiers avec en option la possibilité de les envoyer aussitôt à la corbeille.
Le programme DEMO5\DEMO.LPR fait la même chose que ... Voir la suite

Bonjour,
Je vous présente mon jeu de serpent développé en Pascal sous dev-pascal en utilisant l'unité graph.
Le code n'est pas optimisé.
Le but était de montrer à des élèves débutants en programmation comment créer un jeu en Pascal en travaillant un peu avec les graphiques (dessin de cercles, de rectangles...).
Je peux écrire un article explicatif si c'est demandé.
Merci pour vos remarques.

Support de la norme USB 1.1 pour Turbo Pascal 7.

L'archive comprend :

• USB.PAS : routines USB de base ;
• PCI.PAS : accès aux périphériques PCI ;
• DUTILS.PAS : utilitaires ;
• HUBDISCO.PAS : programme d'exemple.

File Encoding Expert est une application réalisée avec Lazarus, qui utilise trois façons différentes de détecter l'encodage d'un fichier, permettant ainsi de comparer les résultats obtenus, qui ne sont pas toujours concordants !

L'application est bâtie, d'une part, sur la fonction GuessEncoding() de l'unité LConvEncoding de Lazarus ; d'autre part sur une fonction équivalente de Delphi (XE2), préalablement exportée dans une bibliothèque dynamique, pour pouvoir être utilisée dans un programme Lazarus ; enfin sur la bibliothèque Charset Detector :

http://chsdet.sourceforge.net/

Bonjour
Je vous propose une petite appli sous Windows en rapport avec Thunderbird.
Elle vous permet de déplacer, sauvegarder ou restaurer le profil et les dossiers locaux de Thunderbird.
L'appi utilise TZipper.

Compilateur : Turbo Pascal.

Ce programme réalise la compression par l'algorithme de Huffman dynamique. L'intérêt est donc qu'il n'y a qu'un seul parcours du fichier source et pas de dictionnaire transmis dans le fichier compressé.

Dessin animé d'un pendule. Exemple d'utilisation de la bibliothèque Cairo dans une application fenêtrée.

Version 2023, multiplateforme.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme permet de calculer le plus grand commun diviseur (PGCD) et le plus petit commun multiple (PPCM) de plusieurs nombres entiers.

Ref.: "Mathématiques en Turbo-Pascal" de M. Ducamp et A. Reverchon, Eyrolles, Paris, 1988.

TSlideBar est un composant semblable à TTrackBar, mais au look entièrement personnalisable et indépendant de l'OS.
Dérivé de TGraphicControl, il est donc transparent.
5 styles prédéfinis pour une utilisation rapide + style bsOwnerDraw (dessin dans événement OnPaint).
Soyez créatifs, modifiez ou créez de nouveaux styles. C'est très simple à faire, et je suis à votre disposition pour toute explication.
Le zip comprend une démo (rien à installer).
Testé sous Win7, Win8, Linux mint.

Le but de ce jeu de dés est de répartir de la manière la plus efficiente possible, dans une grille de 13 * 3 cases, les résultats de 39 lancers de 5 dés. À chaque tour, vous disposez de trois lancers au maximum, et vous pouvez décider quels dés vous souhaitez conserver ou relancer. À la colonne 2, le total est doublé et à la colonne 3, triplé. Certains objectifs de la grille totalisent certains dés (par exemple, dans la section supérieure, à la ligne "Tous les 5" seuls les dés de valeur 5 sont additionnés), ou tous les dés (par exemple, le full et le carré) ; d'autres (comme le full, les suites, etc.) un forfait en cas de réussite. Le Yahtzee est une combinaison de 5 dés identiques qui rapporte un maximum de points ainsi que des bonus suppl ... Voir la suite

Le projet GVLOGO est né en 2014. Il s'agissait d'implémenter le langage LOGO sur un PC (avec Windows ou Linux).

GVLOGO est un langage de programmation. Il descend de LOGO, lui-même apparu dans les années 60 à la suite de recherches menées par des universitaires du M.I.T. (U.S.A.) autour du mathématicien Seymour Papert.

Peut-être avez-vous utilisé ce langage au cours de votre scolarité en pilotant sur l'écran de l'ordinateur un triangle (baptisé « tortue ») grâce à une série de commandes telles que : AVANCE, RECULE, GAUCHE, DROITE… Comme cette tortue pouvait laisser une trace de son passage, vous obteniez des dessins en programmant ses déplacements. Plus tard, peut-être avez-vous aussi manipulé les listes ... Voir la suite