Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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

Comment définir et utiliser les différents types d’entiers, une des formes que prennent les types ordinaux.
L'exemple principal est une application calculant des carrés magiques (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser les applications suivantes :

• table de multiplication (image 2) ;
• somme des N premiers entiers (image 3) ;
• factorielle d'un nombre entier (image 4).

Le sujet du défi 2009 était de réaliser un résolveur de grilles de Sudoku pouvant être compilé au minimum pour Windows et Linux. Il s'agit du projet du vainqueur.

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

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

Initiation au graphisme.
L'application d'exemple est la réalisation de l'animation d'un attelage écossais, c'est-à-dire un mécanisme roratif doté d'un ergot qui permet de transformer un mouvement circulaire en mouvement rectiligne.
Dans le laboratoire, il s'agit d'apporter des améliorations à cette application.

C'est un programme didactique de jeu d'échecs, adapté de JS-Schach (jeu d'échecs de Jürgen Schlottke).

Cette version du programme propose une interface graphique basée sur la librairie OWL. Le programme a été développé pour Virtual Pascal 2.1.

Mise à jour 21 décembre 2013 : La nouvelle version du jeu inclut le livre d'ouvertures du programme Pro Deo d'Ed Schröder.

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.

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.

Je vous propose ma première réalisation avec lazarus.
Windows tools select permet d’accéder directement aux services et applications qui permettent de configurer windows (administration, services, gestion disques, registre, veille, arrêt, affichage, souris, périphériques etc).
Ce logiciel permet également d’ajouter d’autre applications et de créer des raccourcis.

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

Que sont les booléens et les expressions booléennes ? Comment les utiliser dans vos programmes ?
L'application d'exemple est un évaluateur d'expressions logiques. Les fonctionnalités RAD de Lazarus sont bien mises en évidence.

Bonjour à tous.

Le tri alphabétique ne se fait pas correctement dans un TStringList lorsque des chaines contiennent des caractères accentués.
En attendant une implémentation dans une version ultérieure de Lazarus, voici de quoi vous dépanner.
Deux manières :
a) utiliser TLatinStringList (dans le zip) qui est dérivé de TStringList avec simplement un override de la fonction DoCompareText : remplacement, pour le tri, des caractères accentués par leur correspondant non accentué. L'avantage est que, pour une liste triée, l'ajout de nouvelles chaines va directement se faire au bon endroit. L'inconvénient est que les fonctions Find et IndexOf (qui utilisent DoCompareText) ne vont plus distinguer "élève" de "élevé". Ce qui ... Voir la suite

Programme générant l'image d'une spirale de Théodore avec la bibliothèque BGRABitmap.

miniaudio Player

Lit la musique contenue dans le dossier passé en paramètre.

Exemple d'utilisation de la bibliothèque miniaudio.

L'unité *miniaudio_object* provient du projet CPas.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme d'analyse combinatoire permet d'effectuer des opérations telles que Factorielle N, Combinaison C(n,p) et Permutation A(n,p).

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

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

Qu’est-ce qu'un caractère et quelles sont les fonctions les plus courantes permettant de les manipuler.
L'application d'exemple est un petit utilitaire affichant, par blocs de 256, tous les caractères Unicode au format UTF-16, avec la possibilité de copier l'un d'entre eux dans le presse-papier (image 1).
Dans le laboratoire, vous êtes invité(e) à créer trois routines outils pour l'analyse des caractères (image 2) :

• une fonction qui détermine si le caractère fourni en entrée est un chiffre ;
• une fonction qui détermine s ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme convertit un nombre d'une base A vers une base B, A et B étant compris entre 2 et 36.

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

Compilateur : Turbo Pascal

K-Tools est un ensemble d'unités et d'applications écrites par Bruno Kostrzewa :

Unit UDrivers : gestion du clavier et de la souris
Unit UTextScr : gestion de l'écran en mode texte
Unit UMem : gestion de la mémoire
Unit UImprim : gestion de l'imprimante
Unit OTableau : objets liés aux tableaux dynamiques
Unit OFile : objets liés aux fichiers
Unit OBinFile : objets liés aux fichiers avec mémoire tampon
Unit OFText : objets liés aux fichiers textes
Unit OFHelp : objets liés aux fichiers d'aide
Unit OFWrite : objets liés aux fichiers .wri (Write for Windows)
Unit OFSwag : objets liés aux fichiers swag
Unit OFZip : objets liés aux fichiers . ... Voir la suite

Qui n’a jamais eu à parcourir un répertoire où s’accumulaient les fichiers sources divers en regrettant de ne pas avoir un aperçu de leur contenu et un minimum de renseignements sur leurs attributs ? PASInfos est un petit utilitaire entièrement autonome et portable qui permet justement, par simple glisser/déposer, d’afficher le contenu de fichiers sources issus de différents langages de programmation, ainsi que des informations sur ces fichiers.

S'il est particulièrement adapté aux paquets et projets Lazarus et Delphi, PASInfos accepte de nombreux formats pour l’affichage avec coloration syntaxique : fichiers Pascal, C, C++, Java, Javascript, Perl, HTML, XML, CSS, PHP, TeX, SQL, Python, Batch, Basic, INI, PO, texte brut e ... Voir la suite

Simple client FTP basé sur WinInet.

Version Lazarus d'un projet Delphi de Damien Leveugle.

Formatage de code source en Pascal. Outil en ligne de commande dérivé de DelForExp d'Egbert van Nes.

Cette petite application permet de chronométrer le temps d'infusion de votre thé. Il est possible de chronométrer jusqu'à 5 thés simultanément. Selon le thé choisi, l'application enverra un signal sonore et visuel dès que le temps minimal d'infusion puis le temps maximal seront atteints.

Les composants suivant ont été utilisés :

• un jToneGenerator, permettant de produire deux sortes de bips ;
• 5 jTimer, produisant un tic d'horloge chaque seconde ;
• 5 jPanel identiques, contenant respectivement :
• un jSwitchButton, permettant d'activer le chronomètre associé ;
• un jTextView, affichant le chronomètre ;
• un jToggleButton, permettant de déma ... Voir la suite