Codes sources Pascal347 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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.

Ce composant souvent utilisé pour saisir des dates courantes dans toutes sortes d'application peut également servir de saisie et d'affichage d'un comptage du temps très précis en un seul composant.
TDateTimePicker permet de gérer les dates du 01/10/1752 jusqu'au 31/12/9999

Code très simple à comprendre mais qui doit être géré de manière précise.

Les propriétés essentiels du composant sont :

DateDisplayOrder := ddoTryDefault; // pour ordonner l'ordre des parties composant la date
King := dtkDateTime; // pour acquisition et affichage des dates et heures jusqu'à la ms
TimeDisplay := tdHMSMs; // pour gestion des milli-secondes

Ce code permet simplement d' ... Voir la suite

Dessin et rotation d'un visage en 3D par lissage Gouraud.

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

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

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.

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

Compilateur : Turbo Pascal.

Gestion d'images au format PCX et création d'images BGI à partir d'images PCX.

Pour Turbo Pascal 7.0 ou autre compilateur compatible. Nécessite le package objet de Turbo Pascal (contenant les unités Objects, Strings et Memory).

Cette unité définit le type TList, afin de gérer une liste chaînée d'objets quelconques (ceci inclut l'ajout, la suppression, le remplacement et la recherche d'éléments).
Elle définit également le type TStringList, dérivé de TList, pour gérer une liste de chaînes de caractères. En plus des fonctionnalités précédentes, le type TStringList est en mesure de trier la liste et de vérifier si les chaînes ajoutées ne sont pas déjà présentes dans la liste. Il est également possible d'associer à chaque chaîne un objet quelconque.

Attention : les éléments ajoutés ... Voir la suite

Compilateur : Turbo Pascal.

Jeu du Serpent, jusqu'à 4 joueurs. Le but est d'esquiver les obstacles en blanc, la trace des autres joueurs ainsi que sa propre trace.

Unité permettant d'utiliser la bibliothèque SDL_bgi.

Compatible avec Delphi et avec Free Pascal.

Jeu d'échecs en Pascal d'Evgeniy Korniloff. Originellement écrit pour Turbo Pascal, adapté pour Free Pascal et l'unité ptcGraph.

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

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Il s'agit d'un parser permettant d'analyser des expressions mathématiques telles que :
A=10/4
B=25.478
F=A*X^2+B*X+C
25.75*2+1.784
2*pi*R...
Supporte également les fonctions atan, cos, exp, log, root, sin, tan.

Ref.: "Advanced Turbo C" de Herbert Schildt, Borland-Osborne/McGraw-Hill, Berkeley, USA, 1987.

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

Quels sont les types de chaînes de caractères les plus courants et quelles procédures et fonctions permettent de les manipuler.
L'application d'exemple découpera une phrase en mots ; l'utilisateur aura le choix entre un découpage programmé à la main et un découpage assisté par les routines de l'unité StrUtils (image 1).
Dans le laboratoire, voici les applications à réaliser :

• supprimer les espaces en début ou en fin d’une chaîne (image 2) ;
• classer des chaînes (image 3) ;
• un scrutateur de chaînes de cara ... Voir la suite

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

Bonjour.
Vous trouverez deux composants dans l'unité ThColorspal :

TThPalette : palette de couleurs sous forme de grille.

• ajout et suppression de couleurs
• ordonnancement des couleurs par drag and drop
• sauvegarde et chargement des palettes créées

TThColorCreator : création de nouvelles nuances, composant contenant une barre de plage de couleurs, une barre de luminosité, 3 barres RGB

Testé sous Win7, Win8, Linux mint

Les deux composants peuvent être utilisés conjointement pour se confectionner un dialogue de couleurs personnalisé.
Le zip contient un programme demo (rien à installer, les composants sont créés dynamiquement) ainsi qu'un programme "p ... Voir la suite

Superbe effet avec de l'eau.

Quelques exemples d'utilisation de la bibliothèque SwinGame, destinée à la création de jeux et basée sur SDL2.